diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 690738748..2dcae1e8e 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2135,12 +2135,12 @@ Partial Class AF_AF
'PREPOLIZA DE IMPORTACION DESDE ALMACEN
If AFInvCvePS > 0 AndAlso AFInvCveAlmacen > 0 Then
Dim IDCtaContableInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
- Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
+ 'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
If Not ErrorGuardar Then
Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual)
If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(DdlCtaContable.SelectedValue.Trim.ToEntero, UsuarioActual.CveEmpresa), -1)) Then
If Not ErrorGuardar Then
- If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=CveCuentaInv) Then
+ If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then
ErrorGuardar = True
End If
End If
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 41a2511cb..eacb04c20 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -417,8 +417,8 @@ Public Class ClsBancos
Me.FFinal = Data.Rows(0)("FFinal").ToString.ToEntero
Me.IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero
Me.IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero
- Me.CveCuentaConta = Data.Rows(0)("IdCtaContableSIG").ToString.ToEntero
- Me.CveCuentaContaComplementaria = Data.Rows(0)("IdCtaContableComplementariaSIG").ToString.ToEntero
+ Me.CveCuentaConta = Data.Rows(0)("CveCuentaContable").ToString.ToEntero
+ Me.CveCuentaContaComplementaria = Data.Rows(0)("CveCuentaComplementaria").ToString.ToEntero
Me.FormatoCheque = Data.Rows(0)("FormatoCheque").ToString
Me.Estatus = Data.Rows(0)("Estatus").ToString
Me.Fecha = Data.Rows(0)("Fecha").ToString.ToDate
diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index cd1106378..bf0da4b34 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -2183,13 +2183,14 @@ Public Class ClsCompras
#Region " ESTATUS ALMACEN "
- Public Function UpdateEstatusAlmacen(CveCompra As Integer, ValorEstatus As Integer) As Boolean
+ Public Function UpdateEstatusAlmacen(CveCompra As Integer, ValorEstatus As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasEstatusAlmacenUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCompra", SqlDbType.Int).Value = CveCompra
.Add("@Estatus", SqlDbType.Int).Value = ValorEstatus
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
@@ -2201,13 +2202,14 @@ Public Class ClsCompras
Return Retorno
End Function
- Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer) As Boolean
+ Public Function UpdateEstatusAlmacenDetalle(CveCompraDetalle As Integer, ValorEstatus As Integer, CveUsuario As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ComprasDetalleEstatusAlmacenUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCompraDetalle", SqlDbType.Int).Value = CveCompraDetalle
.Add("@Estatus", SqlDbType.Int).Value = ValorEstatus
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
End With
Try
@@ -2445,6 +2447,30 @@ Public Class ClsCompras
Return Retorno
End Function
+ Public Function GetComprasPagosConciliados(CveCompra As Integer, CveEmpresa As Integer) As Boolean
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Comp_ComprasPagosConciliadosGet")
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ .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 de pagos de compra", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+
+ End Function
+
+
+
+
Public Function RemoveComplementoPagoDesVincular(CveFactura As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_CompraComplementoDesVincular")
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 4085f9b24..a3e36c05a 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -62,7 +62,7 @@ Public Class ClsContabilidad
Public Property CveEmpresa As Integer
Public Property CveTipoPlantillaPoliza As Integer
- Public Property ContaIdPoliza As Integer
+ Public Property ContaIdPoliza As Integer = 0
Public Property ContaFolio As Integer
Public Property ValorPolizaDescuadre As Integer
@@ -153,22 +153,22 @@ Public Class ClsContabilidad
- Public Function CuentasContablesSigGet(cveEmpresa As Int32) As Boolean
- Dim retorno As Boolean = False
- DataAdapter("PA_Conta_CuentasContablesSigGet", CommandType.StoredProcedure)
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
- End With
- Try
- SqlAdapter.Fill(Data)
- retorno = True
- Catch ex1 As SqlException
- OnError("Ocurrió un error al obtener las Cuentas Contables", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- Catch ex As Exception
- OnError("Ocurrió un error al obtener las Cuentas Contables", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
- Return retorno
- End Function
+ 'Public Function CuentasContablesSigGet(cveEmpresa As Int32) As Boolean
+ ' Dim retorno As Boolean = False
+ ' DataAdapter("PA_Conta_CuentasContablesSigGet", CommandType.StoredProcedure)
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ ' End With
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' retorno = True
+ ' Catch ex1 As SqlException
+ ' OnError("Ocurrió un error al obtener las Cuentas Contables", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al obtener las Cuentas Contables", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' End Try
+ ' Return retorno
+ 'End Function
#Region " C O N T A B I L I D A D - P R E P O L I Z A"
Public Function ObtenerTipoPoliza(Valor1 As String, Valor2 As String, CveEmpresa As Integer) As Integer
@@ -1118,8 +1118,9 @@ Public Class ClsContabilidad
Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "",
Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
-
+ Dim StrLog As New StringBuilder
Dim Retorno As Boolean = False
+ StrLog.AppendFormat("CvePrep:{0} - Inicio", CvePrePoliza)
If Empresa.TipoContabilizacion = 1 Then ' contabilidad en SIG
@@ -1396,6 +1397,8 @@ Public Class ClsContabilidad
If Not ContaCompartida Then ObjConta.Dispose()
End If
+ StrLog.AppendFormat(" - Fin")
+ StrLog.ToString.GuardaLogAD("LogContabilidazacion")
Return Retorno
End Function
@@ -4645,25 +4648,25 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function GetSaldoCuenta(IdCuenta As Integer, TipoMovto As Integer, Ejercicio As Integer) As Boolean
- Dim Retorno As Boolean
+ 'Public Function GetSaldoCuenta(IdCuenta As Integer, TipoMovto As Integer, Ejercicio As Integer) As Boolean
+ ' Dim Retorno As Boolean
- If TipoMovto = 0 Then
- DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 1 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0}", IdCuenta, Ejercicio), CommandType.Text)
- Else
- DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 0 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0} ", IdCuenta, Ejercicio), CommandType.Text)
- End If
+ ' If TipoMovto = 0 Then
+ ' DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 1 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0}", IdCuenta, Ejercicio), CommandType.Text)
+ ' Else
+ ' DataAdapter(String.Format("SELECT SUM(CASE WHEN TipoMovto = 0 THEN -1 ELSE 1 END * Importe) AS Saldo from Conta_PolizasDetalle CD inner join Conta_Polizas CP on CP.CvePoliza=CD.CvePoliza and year(CP.Fecha)={1} WHERE CveCuenta = {0} ", IdCuenta, Ejercicio), CommandType.Text)
+ ' End If
- Try
- SqlAdapter.Fill(Data)
- 'Retorno = Math.Round(SqlCommand.ExecuteScalar.ToString.ToDouble, 2)
- Retorno = True
- Catch ex As Exception
- Me.OnError("Ocurrió un error al obtener eL saldo de la cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' 'Retorno = Math.Round(SqlCommand.ExecuteScalar.ToString.ToDouble, 2)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' Me.OnError("Ocurrió un error al obtener eL saldo de la cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
Public Function GetRepPresupuestosEgresosSaldos(Ejercicio As Integer, Fecha As Date, Capitulo As String, CveClasificacion As Integer, CveFuenteFinanciamiento As Integer, CveProgramaOperativo As Integer, CveUnidadAdministrativa As Integer, CveTipoGasto As Integer, Gpo As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_PresupuestosEgresosSaldosRep")
@@ -4742,138 +4745,138 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function Conta_ContabilizaPrePoliza(CvePrepoliza As Integer, Ejercicio As Integer) As Boolean
- Dim Retorno = False
+ 'Public Function Conta_ContabilizaPrePoliza(CvePrepoliza As Integer, Ejercicio As Integer) As Boolean
+ ' Dim Retorno = False
- DataAdapter("PA_Conta_ContabilizaPrepolizas")
+ ' DataAdapter("PA_Conta_ContabilizaPrepolizas")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CvePrepoliza", SqlDbType.Int).Value = CvePrepoliza
- .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
- .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CvePrepoliza", SqlDbType.Int).Value = CvePrepoliza
+ ' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+ ' .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
- Retorno = True
- Else
- Retorno = False
- End If
- Catch ex As Exception
- Me.OnError("Ocurrió un error al contabilizar la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
+ ' Retorno = True
+ ' Else
+ ' Retorno = False
+ ' End If
+ ' Catch ex As Exception
+ ' Me.OnError("Ocurrió un error al contabilizar la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
- Public Function Conta_CompactaPrePoliza(CvePrepoliza As Integer) As Boolean
- Dim Retorno = False
+ ' Return Retorno
+ 'End Function
+ 'Public Function Conta_CompactaPrePoliza(CvePrepoliza As Integer) As Boolean
+ ' Dim Retorno = False
- DataAdapter("PA_Comp_CompactaPrepoliza")
+ ' DataAdapter("PA_Comp_CompactaPrepoliza")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrepoliza
- .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrepoliza
+ ' .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
- Retorno = True
- Else
- Retorno = False
- End If
- Catch ex As Exception
- Me.OnError("Ocurrió un error al contabilizar la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
+ ' Retorno = True
+ ' Else
+ ' Retorno = False
+ ' End If
+ ' Catch ex As Exception
+ ' Me.OnError("Ocurrió un error al contabilizar la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
- Public Function Conta_GeneraPptarias(CveCompra As Integer) As Boolean
- Dim Retorno = False
+ ' Return Retorno
+ 'End Function
+ 'Public Function Conta_GeneraPptarias(CveCompra As Integer) As Boolean
+ ' Dim Retorno = False
- DataAdapter("PA_Conta_GeneraPptarias")
+ ' DataAdapter("PA_Conta_GeneraPptarias")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
- .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ ' .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
- Retorno = True
- Else
- Retorno = False
- End If
- Catch ex As Exception
- Me.OnError("Ocurrió un error al Generar las Cuentas Presupuestarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero = 0 Then
+ ' Retorno = True
+ ' Else
+ ' Retorno = False
+ ' End If
+ ' Catch ex As Exception
+ ' Me.OnError("Ocurrió un error al Generar las Cuentas Presupuestarias", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
- Public Function AddConta_Poliza(CveTipoPoliza As Integer, CveEjercicio As Integer, Folio As Integer, FechaPoliza As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
- Dim Retorno As Integer = 0
+ 'Public Function AddConta_Poliza(CveTipoPoliza As Integer, CveEjercicio As Integer, Folio As Integer, FechaPoliza As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
+ ' Dim Retorno As Integer = 0
- DataAdapter("PA_Add_Conta_Polizas")
+ ' DataAdapter("PA_Add_Conta_Polizas")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@Folio", SqlDbType.Int).Value = Folio
- ' .Add("@CveTipoPoliza", SqlDbType.Int).Value = CveTipoPoliza
- .Add("@Ejercicio", SqlDbType.Int).Value = CveEjercicio
- .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
- .Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza
- .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- .Add("@CvePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
- End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = SqlAdapter.SelectCommand.Parameters("@CvePoliza").Value.ToString.ToEntero
- Catch ex As Exception
- OnError("Ocurrió un error al agregar la poliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@Folio", SqlDbType.Int).Value = Folio
+ ' ' .Add("@CveTipoPoliza", SqlDbType.Int).Value = CveTipoPoliza
+ ' .Add("@Ejercicio", SqlDbType.Int).Value = CveEjercicio
+ ' .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
+ ' .Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza
+ ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ ' .Add("@CvePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
+ ' End With
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = SqlAdapter.SelectCommand.Parameters("@CvePoliza").Value.ToString.ToEntero
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al agregar la poliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
- Public Function AddConta_PolizaDetalle(CvePoliza As Integer, CveCuenta As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String,
- Concepto As String, FechaMovto As Date, CveUsuario As Integer, Optional ImporteMonedaExtranjera As Double = 0) As Boolean
- Dim Retorno As Boolean = False
+ ' Return Retorno
+ 'End Function
+ 'Public Function AddConta_PolizaDetalle(CvePoliza As Integer, CveCuenta As Integer, TipoMovto As Boolean, Importe As Double, Referencia As String,
+ ' Concepto As String, FechaMovto As Date, CveUsuario As Integer, Optional ImporteMonedaExtranjera As Double = 0) As Boolean
+ ' Dim Retorno As Boolean = False
- If CvePoliza <= 0 Or CveCuenta <= 0 Then
- Return False
- End If
+ ' If CvePoliza <= 0 Or CveCuenta <= 0 Then
+ ' Return False
+ ' End If
- DataAdapter("PA_Add_Conta_PolizasDetalles")
- 'DataAdapter("PA_Conta_PolizasDetalleAdd")
+ ' DataAdapter("PA_Add_Conta_PolizasDetalles")
+ ' 'DataAdapter("PA_Conta_PolizasDetalleAdd")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
- .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
- .Add("@TipoMovto", SqlDbType.Int).Value = TipoMovto
- .Add("@Total", SqlDbType.Money).Value = Math.Round(Importe, 2)
- .Add("@ImporteME", SqlDbType.Money).Value = ImporteMonedaExtranjera
- .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
- .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
- .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CvePoliza", SqlDbType.Int).Value = CvePoliza
+ ' .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+ ' .Add("@TipoMovto", SqlDbType.Int).Value = TipoMovto
+ ' .Add("@Total", SqlDbType.Money).Value = Math.Round(Importe, 2)
+ ' .Add("@ImporteME", SqlDbType.Money).Value = ImporteMonedaExtranjera
+ ' .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
+ ' .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
+ ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ ' .Add("@Error", SqlDbType.Int).Direction = ParameterDirection.Output
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero <> 0 Then
- Retorno = False
- Else
- Retorno = True
- End If
- Catch ex As Exception
- OnError("Ocurrió un error al agregar el movimiento en la póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' If SqlAdapter.SelectCommand.Parameters("@Error").Value.ToString.ToEntero <> 0 Then
+ ' Retorno = False
+ ' Else
+ ' Retorno = True
+ ' End If
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al agregar el movimiento en la póliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
Public Function GetSaldoCuentaAC(TipoMovto As Integer, CveCuentaAprobado As Integer, CveCuentaDevengado As Integer, Ejercicio As Integer) As Decimal
Dim Retorno As Decimal
DataAdapter("PA_Conta_CalculaSaldo")
@@ -4895,51 +4898,51 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function GetSegmentosNegocio(Id As Integer, Codigo As String) As Boolean
- Dim Retorno As Boolean = False
- Dim StrSQl = New StringBuilder
+ 'Public Function GetSegmentosNegocio(Id As Integer, Codigo As String) As Boolean
+ ' Dim Retorno As Boolean = False
+ ' Dim StrSQl = New StringBuilder
- StrSQl.Clear()
- StrSQl.Append(" SELECT Id, RTRIM (LTRIM (Codigo)) AS Codigo, Nombre, '' AS CveProyecto, '' AS CveSubProyecto ")
- StrSQl.Append(" FROM SegmentosNegocio ")
- StrSQl.Append(" WHERE (@Id = -1 OR Id = @Id) ")
- StrSQl.Append(" AND (@Codigo = '-1' OR Codigo = @Codigo) ")
+ ' StrSQl.Clear()
+ ' StrSQl.Append(" SELECT Id, RTRIM (LTRIM (Codigo)) AS Codigo, Nombre, '' AS CveProyecto, '' AS CveSubProyecto ")
+ ' StrSQl.Append(" FROM SegmentosNegocio ")
+ ' StrSQl.Append(" WHERE (@Id = -1 OR Id = @Id) ")
+ ' StrSQl.Append(" AND (@Codigo = '-1' OR Codigo = @Codigo) ")
- DataAdapter(StrSQl.ToString, CommandType.Text)
- SqlAdapter.SelectCommand.Parameters.Add("@Id", SqlDbType.Int).Value = Id
- SqlAdapter.SelectCommand.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
+ ' DataAdapter(StrSQl.ToString, CommandType.Text)
+ ' SqlAdapter.SelectCommand.Parameters.Add("@Id", SqlDbType.Int).Value = Id
+ ' SqlAdapter.SelectCommand.Parameters.Add("@Codigo", SqlDbType.VarChar).Value = Codigo
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al consultar los Segmentos de Negocio.", ex)
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al consultar los Segmentos de Negocio.", ex)
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
- Public Function GetSubProyectos(CveEmpresa As Integer) As Boolean
- Dim Retorno As Boolean = False
- Dim StrSQl = New StringBuilder
+ 'Public Function GetSubProyectos(CveEmpresa As Integer) As Boolean
+ ' Dim Retorno As Boolean = False
+ ' Dim StrSQl = New StringBuilder
- DataAdapter("PA_Comp_Compras_Pptarias")
+ ' DataAdapter("PA_Comp_Compras_Pptarias")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ ' End With
- SqlAdapter.Fill(Data)
- Retorno = True
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex As Exception
- OnError("Ocurrió un error al consultar los Segmentos de Negocio.", ex)
- End Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al consultar los Segmentos de Negocio.", ex)
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
Public Function GetNumeroPoliza(CveTipoPoliza As Integer, Tipo As String, Fecha As DateTime, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -4962,29 +4965,29 @@ Public Class ClsContabilidad
Return Retorno
End Function
- Public Function Compras_Pptarias(CveCompra As Integer, Importe As Decimal, CveConceptoContable As Integer) As Boolean
+ 'Public Function Compras_Pptarias(CveCompra As Integer, Importe As Decimal, CveConceptoContable As Integer) As Boolean
- Dim Retorno As Boolean = False
+ ' Dim Retorno As Boolean = False
- DataAdapter("PA_Comp_Compras_Pptarias")
+ ' DataAdapter("PA_Comp_Compras_Pptarias")
- With SqlAdapter.SelectCommand.Parameters
- .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
- .Add("@Importe", SqlDbType.Decimal).Value = Importe
- .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
- End With
+ ' With SqlAdapter.SelectCommand.Parameters
+ ' .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+ ' .Add("@Importe", SqlDbType.Decimal).Value = Importe
+ ' .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
+ ' End With
- Try
- SqlAdapter.Fill(Data)
- Retorno = True
- Catch ex1 As SqlException
- OnError("Ocurrió un error al obtener las Plantillas", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- Catch ex As Exception
- OnError("Ocurrió un error al obtener las Plantillas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
- End Try
+ ' Try
+ ' SqlAdapter.Fill(Data)
+ ' Retorno = True
+ ' Catch ex1 As SqlException
+ ' OnError("Ocurrió un error al obtener las Plantillas", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' Catch ex As Exception
+ ' OnError("Ocurrió un error al obtener las Plantillas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ' End Try
- Return Retorno
- End Function
+ ' Return Retorno
+ 'End Function
#End Region
#Region "FIS IMPUESTOS"
@@ -5878,7 +5881,7 @@ Public Class ClsContabilidad
End Function
Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
- Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional IdSegNegocio As Integer = -1,
+ Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional CveSubProyecto As Integer = -1,
Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False
@@ -5892,7 +5895,7 @@ Public Class ClsContabilidad
.Add("@FolioI", SqlDbType.Int).Value = FolioI
.Add("@FolioF", SqlDbType.Int).Value = FolioF
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@IdSegNegocio", SqlDbType.Int).Value = IdSegNegocio
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
.Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 2b82c5a1b..16d1f7a61 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -1106,6 +1106,87 @@ Public Class ClsGenerales
OnError("Ocurrió un error al eliminar el modelo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
+ Return Retorno
+ End Function
+ Public Function GetMedidasEquivalentes(CveEmpresa As Integer, Optional CveMedida As Integer = -1, Optional CveRin As Integer = -1) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_MedidasEquivalenciasGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
+ .Add("@CveRin", SqlDbType.Int).Value = CveRin
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener las equivalencias de medidas", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function AddMedidasEquivalentes(CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_MedidasEquivalenciasAdd")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
+ .Add("@CveRin", SqlDbType.Int).Value = CveRin
+ .Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente
+ .Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function UpdateMedidasEquivalentes(CveMedidaEquivalencia As Integer, CveMedida As Integer, CveRin As Integer, CveMedidaEquivalente As Integer, CveRinEquivalente As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_MedidasEquivalenciasUpdate")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia
+ .Add("@CveMedida", SqlDbType.Int).Value = CveMedida
+ .Add("@CveRin", SqlDbType.Int).Value = CveRin
+ .Add("@CveMedidaEquivalente", SqlDbType.Int).Value = CveMedidaEquivalente
+ .Add("@CveRinEquivalente", SqlDbType.Int).Value = CveRinEquivalente
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+ Public Function RemoveMedidasEquivalentes(CveMedidaEquivalencia As Integer) As Boolean
+ Dim Retorno As Boolean = False
+
+ DataAdapter("PA_Gral_MedidasEquivalenciasDelete")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveMedidaEquivalencia", SqlDbType.Int).Value = CveMedidaEquivalencia
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al eliminar la equivalencia de medida", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
Return Retorno
End Function
#End Region
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index c8384b872..a3d763c62 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4386,6 +4386,9 @@ Public Class ClsPaginas
PaginaDict.Add("/Finanzas/RazonesFinancierasCuentas.aspx".ToUpper(), -1)
PaginaDict.Add("/Finanzas/RepRotacionCartera.aspx".ToUpper(), 649)
PaginaDict.Add("/Finanzas/RepRotacionCarteraDetalle.aspx".ToUpper(), 649)
+
+
+ PaginaDict.Add("/Finanzas/RepBalanceGeneralHorizontal2.aspx".ToUpper(), -1)
#End Region
#Region "Flotillas"
@@ -4420,6 +4423,7 @@ Public Class ClsPaginas
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
+ PaginaDict.Add("/General/CatMedidaEquivalencia.aspx".ToUpper(), 773)
#End Region
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 6df233d4e..deb17d739 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -4631,7 +4631,7 @@ Namespace Modelos
Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"})
Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
- Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
+ 'Dim CveCuentaAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {CveAlmacenDevolucion}").ToEntero
Dim IdCtaContable As Integer = 0
Dim CveCuenta As Integer = 0
If tmpCostos.Rows.Count > 0 Then
@@ -4668,7 +4668,7 @@ Namespace Modelos
cont += 1
Next
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto, CveCuenta:=CveCuentaAlmacen) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaDev, True, -1 * TotalCosto, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveSubProyecto:=ObjFactura.CveSubProyecto, ImporteMX:=-1 * TotalCosto) Then
ErrorCancelar = True
End If
diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index 2b4c1f02f..656a2aa10 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -41,9 +41,8 @@ Partial Class Bancos_CuentasBancariasDetalle
ViewState("CveCuenta") = Request("CveCuenta")
- If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
- trCuentaContable.Visible = True
- trCuentaContableComplementaria.Visible = True
+ If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
CargaCuentasContables()
End If
@@ -60,9 +59,8 @@ Partial Class Bancos_CuentasBancariasDetalle
ViewState("CveCuenta") = -1
BtnEliminar.Visible = False
CreaDTUsuarios()
- If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
- trCuentaContable.Visible = True
- trCuentaContableComplementaria.Visible = True
+ If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+
CargaCuentasContables()
End If
'LbAgregarSucursal.Enabled = False
@@ -98,37 +96,69 @@ Partial Class Bancos_CuentasBancariasDetalle
DdlMoneda.DataSource = GlobalDTMonedas
DdlMoneda.DataBind()
End Sub
- Private Sub CargaCuentasContables()
- Dim IdPadre As Integer
- Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
- If DdlTipoCuenta.SelectedValue.ToEntero = 1 Then 'Caja Chica
- IdPadre = UsuarioActual.Empresa.Funcionalidad(218).ToEntero
- Else
- Dim tesstr = UsuarioActual.Empresa.Funcionalidad(209)
- IdPadre = UsuarioActual.Empresa.Funcionalidad(209).ToEntero
- End If
-
- If IdPadre = 0 Then IdPadre = -1
+ Private Sub CargaCuentasContables()
Dim dt As DataTable = Nothing
- If Conta.GetCuentasRecursiva(IdPadre, 1) Then
- dt = Conta.DtResultados
- End If
- Conta.Dispose()
- DDlCuentaContable.DataSource = dt
- DDlCuentaContable.DataBind()
- DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
- DdlCuentaContableComplementaria.DataSource = dt
- DdlCuentaContableComplementaria.DataBind()
- DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
- If dt IsNot Nothing Then dt.Dispose()
- End Sub
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ Using ObjContabilidad As New ClsContabilidad
+ 'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
+ If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+ DDlCuentaContable.DataSource = ObjContabilidad.DtResultados
+ DDlCuentaContable.DataBind()
+ DDlCuentaContable.Items.Insert(0, New ListItem("Selecione", "-1"))
+ DDlCuentaContable.DataTextField = "Cuenta"
+ DDlCuentaContable.DataValueField = "CveCuenta"
+ End If
+ End Using
+
+ DDlCuentaContable.DataSource = dt
+ DDlCuentaContable.DataBind()
+ DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+ DdlCuentaContableComplementaria.DataSource = dt
+ DdlCuentaContableComplementaria.DataBind()
+ DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
+ If dt IsNot Nothing Then dt.Dispose()
+ trCuentaContable.Visible = True
+ trCuentaContableComplementaria.Visible = True
+
+ Else
+ If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then
+ Dim IdPadre As Integer
+ Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
+
+ If DdlTipoCuenta.SelectedValue.ToEntero = 1 Then 'Caja Chica
+ IdPadre = UsuarioActual.Empresa.Funcionalidad(218).ToEntero
+ Else
+ Dim tesstr = UsuarioActual.Empresa.Funcionalidad(209)
+ IdPadre = UsuarioActual.Empresa.Funcionalidad(209).ToEntero
+ End If
+
+ If IdPadre = 0 Then IdPadre = -1
+
+ If Conta.GetCuentasRecursiva(IdPadre, 1) Then
+ dt = Conta.DtResultados
+ End If
+
+ Conta.Dispose()
+ DDlCuentaContable.DataSource = dt
+ DDlCuentaContable.DataBind()
+ DDlCuentaContable.Items.Insert(0, New ListItem("-", "-1"))
+ DdlCuentaContableComplementaria.DataSource = dt
+ DdlCuentaContableComplementaria.DataBind()
+ DdlCuentaContableComplementaria.Items.Insert(0, New ListItem("-", "-1"))
+ If dt IsNot Nothing Then dt.Dispose()
+ trCuentaContable.Visible = True
+ trCuentaContableComplementaria.Visible = True
+ End If
+ End If
+
+
+ End Sub
#End Region
-
+
#End Region
-
-
+
+
#Region " CARGA DATOS "
Private Sub CargaDatos()
Dim ObjCuentasBancariasDetalle As New ClsBancos()
@@ -164,8 +194,14 @@ Partial Class Bancos_CuentasBancariasDetalle
DdlTipoCuenta.SelectedValue = ObjCuentasBancariasDetalle.CveTipoCuenta.ToString
DdlTipoCuenta_SelectedIndexChanged(DdlTipoCuenta, EventArgs.Empty)
- DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
- DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaConta.ToString)
+ DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.CveCuentaContaComplementaria.ToString)
+ Else
+ DDlCuentaContable.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContable.ToString)
+ DdlCuentaContableComplementaria.SelectedValueExist(ObjCuentasBancariasDetalle.IdCtaContableComplementaria.ToString)
+ End If
+
Else
Alert("El Banco Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Enabled = False
diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb
index fec2b767e..3ed466c16 100644
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -26,13 +26,13 @@ Partial Class Bancos_DepositosCaja
End Sub
Private Sub CargaCuentas()
- DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
+ DdlCuentaDeposito.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta <> 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCuentaDeposito.DataBind()
- DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
+ DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(" CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
DdlCajaChica.DataBind()
- DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa)
+ DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
@@ -86,8 +86,8 @@ Partial Class Bancos_DepositosCaja
Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0
Dim CveCuentaBancariaDestino As Integer = 0
- Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCajaChica.SelectedValue}")
- Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero($"CveCuenta = {DdlCuentaDeposito.SelectedValue}")
+ Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
+ Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
If drOrigen IsNot Nothing Then
CveMoneda = drOrigen("CveMoneda").ToString.ToEntero
diff --git a/Bancos/Devoluciones.aspx.cs b/Bancos/Devoluciones.aspx.cs
index 991e48ded..65a91d93d 100644
--- a/Bancos/Devoluciones.aspx.cs
+++ b/Bancos/Devoluciones.aspx.cs
@@ -339,6 +339,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
int cvePersonal = (DdlPersonal.SelectedValue.ToEntero() > 0) ? DdlPersonal.SelectedValue.ToEntero() : -1;
int cveCliente = (DdlCliente.SelectedValue.ToEntero() > 0) ? DdlCliente.SelectedValue.ToEntero() : -1;
bool TipoMovoDevolucion = false;
+ double TC = 1;
StringBuilder Msg = new StringBuilder();
switch (OpcionDevolucion.SelectedValue)
@@ -369,6 +370,11 @@ public partial class Bancos_Devoluciones : ClsPaginas
break;
}
+ if (CveMoneda != 1)
+ {
+ TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate());
+ }
+
// DATOS PREPOLIZA
if ( DdlTipoTransanccion.SelectedValue == "1" && UsuarioActual.CveEmpresa != 119) FolioFijo = TxtFolio.Text.ToEntero();
CvePrePoliza = ObjMov.AddPrePolizas("Bancos/IE Devoluciones", CvePlantillaPoliza, TxtImporte.Text.Trim().ToDouble(), TxtImporte.Text.Trim().ToDouble(), CveMoneda, TxtFechaDocumento.Text.ToDate(), TxtObservaciones.Text.Trim(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo: FolioFijo, ReglaFolioPoliza: ObjComp.ObtenerReglaFolio(DdlTipoTransanccion.SelectedValue, null, UsuarioActual.CveEmpresa), CveTipoPoliza: ObjMov.ObtenerTipoPoliza(DdlTipoTransanccion.SelectedValue, "-1", UsuarioActual.CveEmpresa));
@@ -379,7 +385,7 @@ public partial class Bancos_Devoluciones : ClsPaginas
string Ref = TxtObservaciones.Text == "" ? TxtFolio.Text : TxtObservaciones.Text;
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransanccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), PagueseA, TxtImporte.Text.Trim().ToDouble(), CveMoneda,
- 1, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+ TC, TxtObservaciones.Text.Trim(), "", false, false, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
if (CveIE > 0)
{
//GUARDA PREPOLIZAS DETALLE DEVOLUCION
diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 3ecd068fa..93673c3d1 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -147,9 +147,7 @@
-
-
-
+
@@ -230,15 +228,15 @@
-
-
+
+
-
+
@@ -335,7 +333,7 @@
-
+
@@ -343,7 +341,7 @@
-
+
@@ -387,7 +385,7 @@
-
+
@@ -395,7 +393,7 @@
-
+
@@ -445,7 +443,7 @@
-
+
@@ -453,7 +451,7 @@
-
+
@@ -494,7 +492,7 @@
-
+
@@ -502,7 +500,7 @@
-
+
@@ -541,7 +539,7 @@
-
+
@@ -549,7 +547,7 @@
-
+
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 504ba6539..56901e562 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -20,12 +20,12 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos)
- CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores)
+ CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "")
+ CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
CargaUltimaFluctuacion()
End If
@@ -340,32 +340,32 @@ Partial Class Bancos_FluctuacionCambiaria
ErrorRegistrar = True
End If
- Dim CveConconceptoCliente As Integer = 203
-
- 'saco las cuentas de pérdida y ganancia
- For Each gvr As GridViewRow In GvVentas.Rows
- Total = -gvr.DataKey("Fluctuacion").ToDecimal
-
- If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
- CveConconceptoCliente = 226
- Else
- CveConconceptoCliente = 203
- End If
-
- 'movimiento de complementaria
- If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
- ErrorRegistrar = True
- Exit For
- End If
- Next
-
- If Not ErrorRegistrar Then
- Conta.Commit()
- Alert(String.Format("La Fluctuación se ha generado Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion)
-
- Else
- Conta.RollBack()
- End If
+ Dim CveConconceptoCliente As Integer = 203
+
+ 'saco las cuentas de pérdida y ganancia
+ For Each gvr As GridViewRow In GvVentas.Rows
+ Total = -gvr.DataKey("Fluctuacion").ToDecimal
+
+ If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
+ CveConconceptoCliente = 226
+ Else
+ CveConconceptoCliente = 203
+ End If
+
+ 'movimiento de complementaria
+ If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+ ErrorRegistrar = True
+ Exit For
+ End If
+ Next
+
+ If Not ErrorRegistrar Then
+ Conta.Commit()
+ Alert(String.Format("La Fluctuación se ha generado Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion)
+
+ Else
+ Conta.RollBack()
+ End If
Conta.Dispose()
End Sub
@@ -380,7 +380,6 @@ Partial Class Bancos_FluctuacionCambiaria
Conta.IniciaTransacSQL()
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -388,28 +387,28 @@ Partial Class Bancos_FluctuacionCambiaria
Dim TipoMovto As Boolean = False
Dim CveConceptoContable As Integer = 0
Dim ErrorRegistrar As Boolean = False
- Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
-
+ Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
+ Dim MesTCtexto As String = String.Format("{0} TC:{1}", TxtFecha.Text.ToDate.ToString("MMMM-yyyy"), TCCierreFluctuacion)
+
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
CveCuentaPerdida = 0 ' 55379
CveCuentaGanancia = 0 ' 55382
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
- Total = LblTotalBancos.Text.ToDecimal
-
-
-
-
- Dim CveConconceptoBancos As Integer = 204
-
-
- 'saco las cuentas de pérdida y ganancia
+ Total = LblTotalBancos.Text.ToDecimal
+
+ Dim CveConconceptoBancos As Integer = 204
+
+ 'saco las cuentas de pérdida y ganancia
For Each gvr As GridViewRow In GvCuentas.Rows
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
If cb.Checked Then
Total = gvr.DataKey("Fluctuacion").ToDecimal
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
- Dim ConceptoReferencia As String = $"{gvr.DataKey("Banco")} - {gvr.DataKey("NumCuenta")} "
+ Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
'MOVIMIENTO DE FLUCTUACION
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index c5e19185d..574ec5150 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1291,7 +1291,7 @@
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 503feacc6..716f86cfc 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -1945,7 +1945,7 @@ Partial Class Bancos_IE
ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "003",
.Clave = "003",
.Concepto = "Viáticos (entregados al trabajador).",
- .Importe = TxtImporte.Text.ToString.ToDouble
+ .Importe = TxtImporte.Text.ToString.ToDecimal
}
)
If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
@@ -3671,27 +3671,7 @@ Partial Class Bancos_IE
End If
End Select
-
- 'El movimiento 1 es el de Venta
-
- 'Conta ContPAQ
- If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
- If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
- If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
- IDPoliza = ObjMov.ContaIdPoliza
- 'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
- Else
- Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
- End If
- Else
- If IDCtaContable < 1 Then
- Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
- End If
- If IDCtaBeneficiario < 1 Then
- Alert("No se puede contabilizar la Prepoliza debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
- End If
- End If
- End If
+
If UsuarioActual.Empresa.UsaAC Then
Dim ConceptoRenglon, Referencia As String
@@ -3783,6 +3763,29 @@ Partial Class Bancos_IE
Else
MsgError = "No se pudo validar la prepoliza de cuadre."
End If
+ End If
+
+
+ 'El movimiento 1 es el de Venta
+
+ 'Conta ContPAQ
+ If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+ If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
+ If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+ IDPoliza = ObjMov.ContaIdPoliza
+ 'Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+ MsgError = "Error al contabilizar."
+ End If
+ Else
+ If IDCtaContable < 1 Then
+ Alert("No se puede contabilizar la Prepoliza debido a que la cuenta de Bancos es invalida", TipoMensaje.MsgAdvertencia)
+ End If
+ If IDCtaBeneficiario < 1 Then
+ Alert("No se puede contabilizar la Prepoliza debido a que las cuenta del Beneficiario es invalida", TipoMensaje.MsgAdvertencia)
+ End If
+ End If
End If
If MsgError = "" Then
@@ -5678,15 +5681,31 @@ Partial Class Bancos_IE
Protected Sub GvComplementoPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComplementoPagos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
- e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
- e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
- If e.Row.DataKey("Estatus").Contiene("1", "3") Then
- e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True
- Else
- e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
+ If e.Row.DataKey("Tipo") = "Ing" Then
+ e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
+ e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolio"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
+
+ If e.Row.DataKey("Estatus").Contiene("1", "3") Then
+ e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = True
+ Else
+ e.Row.FCLinkButton("LnkCancelarComplemetno").Visible = False
+ End If
+
+ ElseIf e.Row.DataKey("Tipo") = "Egs" Then
+
+ e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
+ e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCde").ToString.Replace("&", "%26%"))))
+
+ GvComplementoPagos.Columns(6).Visible = False
+ GvComplementoPagos.Columns(7).Visible = False
+ GvComplementoPagos.Columns(8).Visible = False
+
End If
+
+
+
End If
End Sub
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index f9674a6bb..2ecb1b234 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -106,6 +106,17 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
+ if(UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)
+ {
+ TxtFechaPrestamo.Enabled = false;
+ ImgCalendarioPrestamo.Visible = false;
+
+ TxtFechaDocumento.Enabled = false;
+ ImgCalendario.Visible = false;
+
+ }
+
+
}
}
diff --git a/Compras/CatTipoGasto.aspx b/Compras/CatTipoGasto.aspx
index c1f4a738e..ac328153b 100644
--- a/Compras/CatTipoGasto.aspx
+++ b/Compras/CatTipoGasto.aspx
@@ -45,7 +45,7 @@
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index d7ef591ea..6109d4080 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
TieneOC = False
CveMoneda = -1
- '[IPP] Eliminar 22Junio2018
- 'If UsuarioActual.Empresa.UsaInventarios Then
- ' TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
- 'End If
ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
@@ -1333,9 +1329,9 @@ Partial Class Compras_Compras
ViewState("CveFactura") = Request("CveFactura").ToEntero
Dim RFC As String = CargaFactura(CveFactura)
- If Not VerificarProductosSATPS() Then
- Exit Sub
- End If
+ 'If Not VerificarProductosSATPS() Then
+ ' Exit Sub
+ 'End If
If RFC.Trim <> String.Empty Then
DdlProveedor.Visible = False
HplProveedor.Visible = True
@@ -1663,14 +1659,10 @@ Partial Class Compras_Compras
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
-
-
-
Dim SWatch As New Stopwatch
SWatch.Start()
Dim ts As New TimeSpan
-
Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
SWatch.Stop()
@@ -1764,6 +1756,21 @@ Partial Class Compras_Compras
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
AddPS2(False)
+
+ 'VALIDA QUE EL XML SI VIENE CON EL CODIGO SAT 01010101
+ Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+ For Each drr As DataRow In TmpDT.FiltraParametros("ClaveProdServ = '01010101'").Rows
+
+ ProductosCodigoSATNoPermitidos.AppendFormat("{0}", drr("PS"))
+
+ Next
+
+ If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+ Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
+ Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+
+ End If
+
End If
Else
CargaConceptosXML(XMLDoc)
@@ -1785,8 +1792,6 @@ Partial Class Compras_Compras
DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant"))
ChkAplicaNotaCredito.Enabled = False
-
-
DdlTipoCompra.Items.Clear()
DdlTipoCompra.Items.Add(New ListItem("Seleccione", "-1"))
DdlTipoCompra.Items.Add(New ListItem("NC Con Productos", "6"))
@@ -3946,6 +3951,15 @@ Partial Class Compras_Compras
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
+ If RBLPago.SelectedValue.ToEntero = 2 Then
+ If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
+ If Not TxtRembolsoNumero.Text.Length > 0 Then
+ Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+ End If
+ End If
+
If RBLPago.SelectedValue.ToEntero = 4 Then
Dim DifCreCompra As Decimal = 0
@@ -3983,30 +3997,30 @@ Partial Class Compras_Compras
End If
End If
- 'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
- If UsuarioActual.CveEmpresa = 72 Then
+ ''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
+ 'If UsuarioActual.CveEmpresa = 72 Then
- Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
- If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
- Dim StrNoEncontrados As New StringBuilder
- StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT
")
- For Each drt As DataRow In DtNoEncontrados.Rows
- StrNoEncontrados.AppendFormat("{0} ", drt("CodigoPS"))
- Next
- Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
- DtNoEncontrados.Dispose()
- StrNoEncontrados.Clear()
- Exit Sub
- End If
- DtNoEncontrados.Dispose()
- End If
+ ' Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
+ ' If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+ ' Dim StrNoEncontrados As New StringBuilder
+ ' StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT
")
+ ' For Each drt As DataRow In DtNoEncontrados.Rows
+ ' StrNoEncontrados.AppendFormat("{0} ", drt("CodigoPS"))
+ ' Next
+ ' Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+ ' DtNoEncontrados.Dispose()
+ ' StrNoEncontrados.Clear()
+ ' Exit Sub
+ ' End If
+ ' DtNoEncontrados.Dispose()
+ 'End If
'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
If Not CompraEstaVinculadaOC Then
- Alert("Debe de vincular una orden de compra para realizar esta factura")
+ Alert("Debe de vincular una orden de compra para registrar la factura")
Exit Sub
End If
End If
@@ -4632,7 +4646,7 @@ Partial Class Compras_Compras
ErrorOC = True
End If
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
- If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+ If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorOC = True
End If
End Select
@@ -4647,7 +4661,7 @@ Partial Class Compras_Compras
ErrorOC = True
End If
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
- If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+ If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorOC = True
End If
End Select
@@ -12827,7 +12841,6 @@ Partial Class Compras_Compras
Select Case RBLPago.SelectedValue
Case "1" 'Credito
PnlContado.Visible = False
-
If Not UsuarioActual.Empresa.UsaAC Then
TxtNumeroReembolso.Text = ""
tdNumeroReembolso.Visible = False
@@ -12836,7 +12849,6 @@ Partial Class Compras_Compras
romCreditosTabla.Visible = False
Case "2" 'Contado
PnlContado.Visible = True
-
TxtNumeroReembolso.Text = ""
tdNumeroReembolso.Visible = False
@@ -12870,7 +12882,6 @@ Partial Class Compras_Compras
Case "3" 'Reembolso/Comprobacion
PnlContado.Visible = True
-
''AGARRA VALORES DE SESSION PARA REEMBOLSO -- SI YA ESTA REGISTRADA LA COMPRA IGNORA DATOS DE REEMBOLSO
If Not CveCompra > 0 Then
If UsuarioActual.Sesion("Comp-NumeroReembolso") <> Nothing AndAlso UsuarioActual.Sesion("Comp-NumeroReembolso").ToString <> "" Then
@@ -12998,26 +13009,61 @@ Partial Class Compras_Compras
Case "1" ' Bancos
PnlContadoBancos.Visible = True
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
+ ChkCreditoMultiple.Visible = False
+ DivReembolsoModal.Visible = False
+ RfvTxtRembolsoModal.Enabled = False
+ TxtRembolsoModal.Text = ""
+ TxtRembolsoNumero.Text = ""
Case "2" ' F y E
PnlContadoFyE.Visible = True
CargaFuncionariosEmpleados()
+ ChkCreditoMultiple.Visible = False
+ DivReembolsoModal.Visible = True
+ RfvTxtRembolsoModal.Enabled = True
+ TxtRembolsoNumero.Text = ""
+ TxtRembolsoModal.Text = ""
Case "3" ' Creditos
PnlContadoCreditos.Visible = True
+ ChkCreditoMultiple.Visible = True
CargaCreditos()
+ DivReembolsoModal.Visible = False
+ RfvTxtRembolsoModal.Enabled = False
+ TxtRembolsoModal.Text = ""
+ TxtRembolsoNumero.Text = ""
Case "4" ' Deudores
PnlContadoDeudores.Visible = True
CargaDeudores()
+ ChkCreditoMultiple.Visible = False
+ DivReembolsoModal.Visible = False
+ RfvTxtRembolsoModal.Enabled = False
+ TxtRembolsoModal.Text = ""
+ TxtRembolsoNumero.Text = ""
Case "5" ' ACREEDORES
PnlContadoAcreedores.Visible = True
+ ChkCreditoMultiple.Visible = True
CargaAcreedores()
+ DivReembolsoModal.Visible = False
+ RfvTxtRembolsoModal.Enabled = False
+ TxtRembolsoModal.Text = ""
+ TxtRembolsoNumero.Text = ""
Case "6" ' Caja Chica
PnlContadoCajaChica.Visible = True
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
+ ChkCreditoMultiple.Visible = False
+ DivReembolsoModal.Visible = True
+ RfvTxtRembolsoModal.Enabled = True
+ TxtRembolsoModal.Text = ""
+ TxtRembolsoNumero.Text = ""
End Select
UpContado.Update()
End Sub
+ Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
+ TxtRembolsoNumero.Text = TxtRembolsoModal.Text
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
+ End Sub
+
Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
TrRembolsoCajaChica.Visible = False
TrRembolsoPersonal.Visible = False
@@ -14591,6 +14637,35 @@ Partial Class Compras_Compras
Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
RegistraScript("$('#DivCancelarCompra').modal('hide');")
+
+ Dim ObjComprasComprobacion As New ClsCompras
+
+
+ If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
+
+ Dim TienePagosConciliados As Boolean = False
+
+ If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
+ TienePagosConciliados = True
+ Dim PagosConciliados As New StringBuilder
+
+ For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
+ PagosConciliados.AppendLine($"{Drow("Folio").ToString} ")
+ Next
+
+
+ Alert($"La compra no se puede cancelar, tiene pagos conciliados: {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
+ End If
+
+ If TienePagosConciliados Then
+ ObjComprasComprobacion.Dispose()
+ Exit Sub
+ End If
+
+
+ End If
+ ObjComprasComprobacion.Dispose()
+
Dim ObjAC As ClsContPAQi = Nothing
If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -15098,7 +15173,7 @@ Partial Class Compras_Compras
'SI PUEDE RECIBIR POR OC Y COMPRA
' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
- If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+ If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
DivOCVinculaInv.Visible = True
End If
@@ -15126,12 +15201,7 @@ Partial Class Compras_Compras
Dr("RetISRTC") = Dr("RetISR")
Dr("TotalTC") = Dr("ImporteAjustadoDescuento")
- '[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
- 'If UsuarioActual.CveUsuario = 100 Then
- 'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
- ' Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
- 'End If
- 'End If
+
Next
'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
@@ -15163,7 +15233,7 @@ Partial Class Compras_Compras
'SI PUEDE RECIBIR POR OC Y COMPRA
If UsuarioActual.CveEmpresa.Contiene(119) Then
- If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
+ If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
Select Case DdlOCVinculaInv.SelectedValue.ToEntero
Case 176
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
@@ -15419,6 +15489,12 @@ Partial Class Compras_Compras
'If DdlOCVinculaInv.SelectedValue.ToEntero = 237 And Not CveFlete > 0 Then Alert("Necesita vincular un flete si selecciona Factura de Flete", TipoMensaje.MsgAdvertencia) : Exit Sub
'If DdlOCVinculaInv.SelectedValue.ToEntero = 240 And Not CveImportacion > 0 Then Alert("Necesita vincular una Importación si selecciona Factura de Importación", TipoMensaje.MsgAdvertencia) : Exit Sub
+ If UsuarioActual.CveEmpresa = 119 And DdlTipoComprobante.SelectedValue = "Fac" Then
+ If Not VerificarProductosCompraConOC() Then
+ Exit Sub
+ End If
+ End If
+
Dim SubTotalGV = 0.0D
Dim Amortizacion As Decimal = TmpDT.SUMD("Total")
If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
@@ -15428,21 +15504,21 @@ Partial Class Compras_Compras
Dim DiferenciaPermitida = 1
Dim Cont = 0
'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
- 'For Each gvr As GridViewRow In GvOC1.Rows
- ' SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
- ' If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
- ' Cont = 1
- ' If GvOC1.Columns(6).Visible Then
- ' Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
- ' Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
- ' If SatPS.Contains("01010101") Then
- ' ProductosCodigoSATNoPermitidos.AppendFormat("{0}", NombreProducto)
- ' 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
- ' 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ For Each gvr As GridViewRow In GvOC1.Rows
+ SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
+ If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
+ Cont = 1
+ ' If GvOC1.Columns(6).Visible Then
+ ' Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+ ' Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+ ' If SatPS.Contains("01010101") Then
+ ' ProductosCodigoSATNoPermitidos.AppendFormat("{0}", NombreProducto)
+ ' 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+ ' 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
- ' End If
- ' End If
- 'Next
+ ' End If
+ ' End If
+ Next
'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
' Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
' Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
@@ -15480,15 +15556,16 @@ Partial Class Compras_Compras
'SI PUEDE RECIBIR POR OC Y COMPRA
- If UsuarioActual.CveEmpresa.Contiene(119) Then
- If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
- If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
- Alert("El campo Tipo de recepción almacén es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
+
+ If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+
+ If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
+ Alert("El campo Tipo de recepción almacén es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
End If
+
If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then
Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -18649,14 +18726,14 @@ Partial Class Compras_Compras
For Each gvr As GridViewRow In GvSolDev.Rows
If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
'actualiza el estatus del detalle
- ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
+ ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario)
Else
- ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
+ ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario)
End If
Next
End If
- If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
+ If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
End If
@@ -19019,7 +19096,7 @@ Partial Class Compras_Compras
End If
CveMovimientoInventario = DtInv.MAX("CveMovimiento", $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToEntero
IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
- CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
+ ' CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
ImporteMovimiento = DtInv.SUM(If(DdlMoneda.SelectedValue = "1", "Total", "TotalExtranjero"), $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToDecimal
ImporteMovimiento = If(ImporteMovimiento > Row2("Total").ToString.ToDecimal, Row2("Total").ToString.ToDecimal, ImporteMovimiento) * Multiplicador
@@ -19049,15 +19126,15 @@ Partial Class Compras_Compras
If IdCtaContable = 0 Then
CuentasContablesInvalidas.Append(" " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
End If
- If CveCuenta = 0 Then
- CuentasContablesInvalidasSIG.Append(" " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
- End If
+ 'If CveCuenta = 0 Then
+ ' CuentasContablesInvalidasSIG.Append(" " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+ 'End If
Dim SeContabiliza As Boolean = True
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
If DdlTipoCompra.SelectedValue = "10" Then
SeContabiliza = False
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), Contabilizable:=SeContabiliza) Then
TieneError = True
Exit For
End If
@@ -19402,7 +19479,7 @@ Partial Class Compras_Compras
Case 237
Select Case FleteImportacionOpcion
Case 1
- If Not ObjInventario.AddFletescompras(CveFlete, CveCompra) Then
+ If Not ObjInventario.AddFletesCompras(CveFlete, CveCompra) Then
ErrorTrans = True
End If
'''actualiza la compra para que no se surta en almacen. sino por el flete o importación
@@ -19414,7 +19491,7 @@ Partial Class Compras_Compras
ErrorTrans = True
End If
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
- If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+ If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorTrans = True
End If
End Select
@@ -19429,7 +19506,7 @@ Partial Class Compras_Compras
ErrorTrans = True
End If
'actualiza la compra para que no se surta en almacen. sino por el flete o importación
- If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+ If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
ErrorTrans = True
End If
End Select
@@ -19878,7 +19955,7 @@ Partial Class Compras_Compras
End If
Else
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
- If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
Retorno = False
Exit For
@@ -20203,36 +20280,97 @@ Partial Class Compras_Compras
End Sub
- Private Function VerificarProductosSATPS() As Boolean
- Dim CvePSGRuposAux As New StringBuilder("")
- For Each gvr As GridViewRow In GvPS.Rows
- Dim CvePSIndividual As String = gvr.DataKey("CvePS")
- CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+ 'Private Function VerificarProductosSATPS() As Boolean
+ ' Dim CvePSGRuposAux As New StringBuilder("")
+ ' For Each gvr As GridViewRow In GvPS.Rows
+ ' Dim CvePSIndividual As String = gvr.DataKey("CvePS")
+ ' CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+ ' Next
+
+ 'Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+
+ 'Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+
+ 'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+ 'For Each PS As GridViewRow In GvPS.Rows
+ 'Dim PSIndividual As String = PS.DataKey("PS")
+ 'Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+ 'If ClavePSSAT = "46920" Then
+ ' ProductosCodigoSATNoPermitidos.AppendFormat("{0}", PSIndividual)
+ ' End If
+ 'Next
+
+ 'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+ 'Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
+ ' Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ ' Return False
+ 'End If
+
+ 'Return True
+
+ 'End Function
+
+ Private Function VerificarProductosCompraConOC() As Boolean
+
+
+ Dim ProductosNoValidados As New StringBuilder()
+
+ Dim DtCompras As New DataTable()
+ DtCompras.Columns.Add("Cantidad", GetType(String))
+ DtCompras.Columns.Add("UM", GetType(String))
+ DtCompras.Columns.Add("PS", GetType(String))
+ DtCompras.Columns.Add("SATClaveProductoServicio", GetType(String))
+ DtCompras.Columns.Add("PU", GetType(String))
+ DtCompras.Columns.Add("Total", GetType(String))
+
+ For Each GvOC2Row As GridViewRow In GvOC2.Rows
+ Dim Cantidad As String = GvOC2Row.DataKey("Cantidad")
+ Dim UM As String = GvOC2Row.DataKey("UM")
+ Dim PS As String = GvOC2Row.DataKey("PS")
+ Dim SATClaveProductoServicio As String = GvOC2Row.DataKey("SATClaveProductoServicio")
+ Dim PU As String = (GvOC2Row.DataKey("Total").ToEntero / GvOC2Row.DataKey("Cantidad").ToEntero).ToString
+ Dim Total As String = GvOC2Row.DataKey("Total")
+ DtCompras.Rows.Add(Cantidad, UM, PS, SATClaveProductoServicio, PU, Total)
Next
- Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+ For Each GvOCRow As GridViewRow In GvOC1.Rows
- Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+ Dim TipoPS As String = GvOCRow.DataKey("CveTipoPS")
- Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
- For Each PS As GridViewRow In GvPS.Rows
- Dim PSIndividual As String = PS.DataKey("PS")
- Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
- If ClavePSSAT = "46920" Then
- ProductosCodigoSATNoPermitidos.AppendFormat("{0}", PSIndividual)
+ If TipoPS = "2" Then
+ Dim ProductoAisloadoString As String = GvOCRow.DataKey("PS").Split("-"c)(1).Trim()
+ Dim PSOC As String = ProductoAisloadoString
+ Dim CantidadOC As String = GvOCRow.DataKey("CantidadF")
+ Dim PrecioUnitarioOC As String = GvOCRow.DataKey("Importe")
+
+ Dim Filtro As String = String.Format("Cantidad = {0} AND PS = '{1}' AND PU = {2}", CantidadOC, PSOC, PrecioUnitarioOC)
+
+ Dim RenglonCompras As DataRow = DtCompras.FiltroPrimero(Filtro)
+
+ If RenglonCompras Is Nothing Then
+ Dim FiltroCantidad As String = String.Format("Cantidad = {0} AND PS = '{1}'", CantidadOC, PSOC)
+ Dim RenglonFiltroCantidad As DataRow = DtCompras.FiltroPrimero(FiltroCantidad)
+ If RenglonFiltroCantidad Is Nothing Then
+ ProductosNoValidados.AppendFormat("La Cantidad del producto '{0}' no coincide ", PSOC)
+ End If
+
+ Dim FiltroPU As String = String.Format("PS = '{0}' AND PU = {1}", PSOC, PrecioUnitarioOC)
+ Dim RenglonFiltroPU As DataRow = DtCompras.FiltroPrimero(FiltroPU)
+ If RenglonFiltroPU Is Nothing Then
+ ProductosNoValidados.AppendFormat("El Precio Unitario del producto '{0}' no coincide ", PSOC)
+ End If
+
+ ProductosNoValidados.Append(" ")
+ End If
End If
Next
-
- If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
- Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
- Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ If ProductosNoValidados.ToString().Length() > 0 Then
+ Dim AlertProductosNoValidados As String = String.Format("Los siguientes productos no se encuentran en la factura:
{0}", ProductosNoValidados.ToString)
+ Alert(AlertProductosNoValidados, TipoMensaje.MsgAdvertencia)
Return False
End If
-
Return True
-
End Function
-
End Class
Public Class MMensajeDevolucion
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 49ae7b3d6..ebb9a654f 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -937,7 +937,10 @@ Partial Class PopUpVerFactura
'se rellena la sucursal
'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
- Vta.SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto).Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
+
+ Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
+
+ Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
Vta.Cliente = New Modelos.ClienteModel
Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
@@ -1272,10 +1275,23 @@ Partial Class PopUpVerFactura
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
Dim CveMovimientoRelacionado As Integer = -1
+ Dim FolioRelacionado As String = ""
+ Dim CveConceptoMovtoRelacionado As Integer = -1
+
+ 'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
- End If
-
+ If CveConcepto.Contiene(3, 26) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+ FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
+ CveConceptoMovtoRelacionado = 37
+ ElseIf CveConcepto = 37 Then
+ FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
+ CveConceptoMovtoRelacionado = 3
+ End If
+ End If
+
+
+
Dim CantidadProductos As Decimal = 0
Dim CantidadUsados As Decimal = 0
@@ -1342,7 +1358,8 @@ Partial Class PopUpVerFactura
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
- CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)
+ CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
+ CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1359,7 +1376,8 @@ Partial Class PopUpVerFactura
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
- RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")
+ RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
+ Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "")
Select Case CveConcepto
@@ -1539,7 +1557,7 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
- Case 3, 16 ' S A L I D A S
+ Case 3, 16, 37 ' S A L I D A S
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1549,6 +1567,8 @@ Partial Class PopUpVerFactura
Dim concepto As String = ""
If CveConcepto = 3 Then
concepto = "SALIDA DE ALMACÉN"
+ ElseIf CveConcepto = 37 Then
+ concepto = "SALIDA VIRTUAL"
Else
concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
End If
@@ -1685,6 +1705,34 @@ Partial Class PopUpVerFactura
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+ ElseIf UsuarioActual.CveEmpresa = 140 Then
+
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Concepto", concepto))
+ params.Add(New ReportParameter("Almacen", Almacen))
+ params.Add(New ReportParameter("Fecha", Fecha))
+ params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+ params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
+ params.Add(New ReportParameter("Observaciones", Observaciones))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Folio", Folio))
+ params.Add(New ReportParameter("Descuentos", ""))
+ params.Add(New ReportParameter("IVA", ""))
+ params.Add(New ReportParameter("Total", ""))
+ 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ params.Add(New ReportParameter("NombreRecibio", Recibio))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+ params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+
+ ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
Else
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
@@ -2121,7 +2169,9 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
- params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+ params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+ params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+ params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
Else
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
@@ -2466,19 +2516,19 @@ Partial Class PopUpVerFactura
If (UsuarioActual.CveEmpresa = 72) Then
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
End If
- ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
- 'Else
- ' params.Add(New ReportParameter("Folio", Folio))
- ' params.Add(New ReportParameter("Fecha", Fecha))
- ' params.Add(New ReportParameter("Almacen", Almacen))
- ' params.Add(New ReportParameter("SubProyecto", SubProyecto))
- ' params.Add(New ReportParameter("Observaciones", Observaciones))
- ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
- ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
- 'End If
-
-
+ ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+ 'Else
+ ' params.Add(New ReportParameter("Folio", Folio))
+ ' params.Add(New ReportParameter("Fecha", Fecha))
+ ' params.Add(New ReportParameter("Almacen", Almacen))
+ ' params.Add(New ReportParameter("SubProyecto", SubProyecto))
+ ' params.Add(New ReportParameter("Observaciones", Observaciones))
+ ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+ ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+ 'End If
+
+
Case 18 'D E V O L U C I O N D E L C L I E N T E
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2655,36 +2705,36 @@ Partial Class PopUpVerFactura
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
ElseIf CveConcepto = 22 Then
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
- End If
-
- 'Case 22 'ENTRADA POR PRESTAMO
- ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- ' Dim params As New List(Of ReportParameter)
-
- ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- ' If Imagen.Exists Then
- ' params.Add(New ReportParameter("LogoPath", logouri))
- ' Else
- ' params.Add(New ReportParameter("LogoPath", ""))
- ' End If
-
- ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
- ' params.Add(New ReportParameter("Almacen", Almacen))
- ' params.Add(New ReportParameter("Fecha", Fecha))
- ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- ' params.Add(New ReportParameter("Folio", Folio))
- ' params.Add(New ReportParameter("Descuentos", ""))
- ' params.Add(New ReportParameter("IVA", ""))
- ' params.Add(New ReportParameter("Total", ""))
- ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
- ' params.Add(New ReportParameter("FacturadoA", NombreCliente))
- ' If (UsuarioActual.CveEmpresa = 72) Then
- ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
- ' End If
- ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
+ End If
+
+ 'Case 22 'ENTRADA POR PRESTAMO
+ ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ ' Dim params As New List(Of ReportParameter)
+
+ ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ ' If Imagen.Exists Then
+ ' params.Add(New ReportParameter("LogoPath", logouri))
+ ' Else
+ ' params.Add(New ReportParameter("LogoPath", ""))
+ ' End If
+
+ ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+ ' params.Add(New ReportParameter("Almacen", Almacen))
+ ' params.Add(New ReportParameter("Fecha", Fecha))
+ ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ ' params.Add(New ReportParameter("Folio", Folio))
+ ' params.Add(New ReportParameter("Descuentos", ""))
+ ' params.Add(New ReportParameter("IVA", ""))
+ ' params.Add(New ReportParameter("Total", ""))
+ ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+ ' params.Add(New ReportParameter("FacturadoA", NombreCliente))
+ ' If (UsuarioActual.CveEmpresa = 72) Then
+ ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+ ' End If
+ ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+
Case 24 'SALIDA POR RESGUARDO
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3167,11 +3217,11 @@ Partial Class PopUpVerFactura
If CveConcepto = 2 Then
ElseIf CveConcepto = 3 Then
End If
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'OC' - IMPRIME PDF OC"
Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb
index 26f320e35..529a6887d 100644
--- a/Compras/ProveedoresAuxiliar.aspx.vb
+++ b/Compras/ProveedoresAuxiliar.aspx.vb
@@ -118,23 +118,19 @@ Partial Class Compras_ProveedoresAuxiliar
Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $" Opción: {DdlOpcion.SelectedItem.Text}")
Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $" Tipo Proveedor: {DdlTipoProveedor.SelectedItem.Text}")
Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $" Contabilizable: {DdlOpcionContabilizable.SelectedItem.Text}")
- If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
- Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- Dim params As New List(Of ReportParameter)
- params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("FechaImpresion", Now.ToString))
- params.Add(New ReportParameter("Filtros", $"Filtros: {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
- ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+ params.Add(New ReportParameter("Filtros", $"Filtros: {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
Else
- Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+ params.Add(New ReportParameter("LogoPath", ""))
End If
+ ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
End Sub
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
GenerarPDF("PDF")
diff --git a/Compras/ReembolsosComprobaciones.aspx b/Compras/ReembolsosComprobaciones.aspx
index 760c32799..02d0f7f59 100644
--- a/Compras/ReembolsosComprobaciones.aspx
+++ b/Compras/ReembolsosComprobaciones.aspx
@@ -292,7 +292,7 @@
+ DataKeyNames="CveCompra,FechaCompra,Proveedor,SerieFolio,Original,SubTotal,IVA,RetIVA,RetISR,IdCtaContProveedores,IdCtaContAcreedor,CvePrePoliza,IdPoliza,CveRetIVAConcepto,CveRetISRConcepto,IVAPorcentaje,IVADeducible,IVANoDeducible,CveTipoConcepto,CveSubProyecto">
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 36b4176d3..f5d83d58c 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
Referencia = gvr.DataKey("SerieFolio").ToString
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
- CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
+
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
Case Else
End Select
End If
+ If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+ IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
+ Else
+ IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
+ End If
If SaldoCheque > 0 Then
ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 120b5ff4b..33b22246f 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -249,7 +249,7 @@
+ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
@@ -366,6 +366,14 @@
+
+
+ Descripción
+
+
+
+
+
@@ -419,6 +427,8 @@
+
+
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 842000f1e..8a61cd2fe 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -621,6 +621,8 @@ Partial Class RepCxPDetalle
GvDatos.Columns(13).Visible = False
End If
+ GvDatos.Columns(14).Visible = ChkDescripcion.Checked
+
Personalizo = 1
If Personalizo = 1 Then
ImgExcelPersonalizado.Visible = True
diff --git a/Contabilidad/ContabilizacionVentas.aspx.cs b/Contabilidad/ContabilizacionVentas.aspx.cs
index 0b85ddfa4..ab77c72da 100644
--- a/Contabilidad/ContabilizacionVentas.aspx.cs
+++ b/Contabilidad/ContabilizacionVentas.aspx.cs
@@ -42,7 +42,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
TienePermisoVerPoliza = true;
}
- if (UsuarioActual.Empresa.TipoContabilidad == 2 && UsuarioActual.Empresa.UsaContabilidad)
+ if (UsuarioActual.Empresa.TipoContabilizacion != 1 )
{
ClsContPAQi ObjCont = new ClsContPAQi(UsuarioActual.Empresa);
@@ -336,7 +336,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
int cvecuenta = e.Row.DataKey("CveCuenta").ToString().ToEntero();
int CveConcepto = e.Row.DBCampo("CveConceptoContable").ToEntero();
- if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26))
+ if (CveConcepto.Contiene(5, 6, 14, 19, 17, 206, 25, 26,272,275, 305,306,307,308,309,310,311,312 ))
{
e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DBCampo("CveCompra"));
}
@@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
{
e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"));
}
- if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39, 150, 203, 207, 251))
+ if (CveConcepto.Contiene(1, 2, 4, 12, 13, 61, 38, 39, 91, 150, 203, 207, 251, 291, 292, 293, 294))
{
e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"));
}
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index cd307959c..c5b0c6618 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -171,7 +171,7 @@ Partial Class ContabilidadC_RegPrePoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
End If
@@ -190,14 +190,17 @@ Partial Class ContabilidadC_RegPrePoliza
Dim dt As DataTable = Nothing
' If UsuarioActual.Empresa.UsaContabilidad Then
- Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
+ If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+ Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
- If Conta.GetCuentas(-1, "-1", 1) Then
- dt = Conta.DtResultados
- DtCuentasContables = Conta.DtResultados
- Session("DtCuentas") = Conta.DtResultados
+ If Conta.GetCuentas(-1, "-1", 1) Then
+ dt = Conta.DtResultados
+ DtCuentasContables = Conta.DtResultados
+ Session("DtCuentas") = Conta.DtResultados
+ End If
+ Conta.Dispose()
End If
- Conta.Dispose()
+
If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
DivTipoGasto.Visible = True
@@ -949,24 +952,9 @@ Partial Class ContabilidadC_RegPrePoliza
Exit For
End If
End If
- Next
-
- 'El movimiento 2 es el de Pago
- If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
- If idCuentaContabilizacion > 0 Then
- If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-
- 'MENSAJE PRINCIPAL
- MensajeAlert.AppendFormat("
Folio de Salida: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
- MensajeAlert.AppendFormat("
Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio)
- 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
- Else
- Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
- End If
- Else
- Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
- End If
- End If
+ Next
+
+
If CvePeriodo > 0 Then
If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
MsgError = "No se pudo actualizar el periodo de la nómina"
@@ -978,38 +966,62 @@ Partial Class ContabilidadC_RegPrePoliza
GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
MsgError = ObjMov.MensajePolizaDescuadre & "-"
End If
+ End If
+
+ 'El movimiento 2 es el de Pago
+ If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
+ If idCuentaContabilizacion > 0 Then
+ If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+
+ 'MENSAJE PRINCIPAL
+ MensajeAlert.AppendFormat("
Folio de Póliza: {1}", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+ MensajeAlert.AppendFormat("
Prepóliza: {1}", CvePrePoliza, ObjMov.ContaFolio)
+ 'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
+ Else
+ Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
+ End If
+ Else
+ Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
+ End If
End If
Else
MsgError = "No se pudo insertar la póliza"
- End If
- Catch ex As Exception
- MsgError = "Error"
- End Try
-
- If MsgError = "" Then
- 'MENSAJE IE
- If CveIE > 0 Then
- MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
- Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
- Else
- Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
- End If
-
- ObjIE.Commit()
- If Conta IsNot Nothing Then Conta.Commit()
-
- UPPDocumento.Update()
-
- TxtObservaciones.Text = ""
- GvMov.DataBind()
- TxtFecha.Text = ""
- TxtObservaciones.Text = ""
- Else
- ObjIE.RollBack()
+ End If
+
+ If MsgError = "" Then
+
+ 'MENSAJE IE
+ If CveIE > 0 Then
+ MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
+ Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
+ Else
+ Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
+ End If
+
+ ObjIE.Commit()
+ If Conta IsNot Nothing Then Conta.Commit()
+
+ 'UPPDocumento.Update()
+ 'TxtObservaciones.Text = ""
+ 'GvMov.DataBind()
+ 'TxtFecha.Text = ""
+ 'TxtObservaciones.Text = ""
+ Else
+ MsgError.GuardaLogAD()
+ ObjIE.RollBack()
+ If Conta IsNot Nothing Then Conta.RollBack()
+ End If
+ Catch ex As Exception
+ ex.GuardaLog(ex.Message)
+ ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack()
- End If
-
+ Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
+
+ End Try
+
+
+
ObjIE.Dispose()
ObjMov.Dispose()
If Conta IsNot Nothing Then Conta.Dispose()
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 56ac1ea7e..e3b61c3c4 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -266,11 +266,15 @@
-
+
Si
+
+
+
+
@@ -575,7 +579,7 @@
-
+
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 074017309..cfa135354 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -388,14 +388,23 @@ Partial Class ContabilidadC_RegPrePolizaS
LnkComplementoPago.Visible = True
End If
- If dr("IdPoliza").ToString.ToEntero > 0 Then
- HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
- divContabilziada.Visible = True
- ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
- 'sino está contabilizada, se activa el botón
- BtnContabilizar.Visible = True
- End If
-
+ If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+ If dr("FolioPoliza").ToString.ToEntero > 0 Then
+ divContabilizada.Visible = True
+ LblFolio.Text = dr("FolioPoliza").ToString
+ End If
+ Else
+ If dr("IdPoliza").ToString.ToEntero > 0 Then
+ HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
+ divContabilizada.Visible = True
+ ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+ 'sino está contabilizada, se activa el botón
+ BtnContabilizar.Visible = True
+ End If
+ End If
+
+
+
divDatosPrincipales.Visible = False
divObservaciones.Visible = False
UPMovs.Visible = False
diff --git a/Contabilidad2/PolizasImpresion.aspx b/Contabilidad2/PolizasImpresion.aspx
index f266fa9be..7664693c0 100644
--- a/Contabilidad2/PolizasImpresion.aspx
+++ b/Contabilidad2/PolizasImpresion.aspx
@@ -73,9 +73,9 @@