AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2023-03-10 19:39:02 -07:00
parent 4694a0f0d3 58fcc98f7e
commit 0e540d295a
9 changed files with 59 additions and 136 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsBancos.vb
View File

@@ -3425,6 +3425,7 @@ Public Class ClsBancos
End With End With
Try Try
SqlAdapter.SelectCommand.CommandTimeout = 0
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
Catch ex As Exception Catch ex As Exception

2
App_Code/ClsCompras.vb
View File

@@ -262,6 +262,8 @@ Public Class ClsCompras
Catch Ex1 As SqlException Catch Ex1 As SqlException
If Ex1.Message.Contains("Número: 2627;") Then If Ex1.Message.Contains("Número: 2627;") Then
Alert(String.Format("Ya existe una compra con el mismo Folio: {0}-{1}.", Serie, Folio), TipoMensaje.MsgAdvertencia) Alert(String.Format("Ya existe una compra con el mismo Folio: {0}-{1}.", Serie, Folio), TipoMensaje.MsgAdvertencia)
ElseIf Ex1.Message.Contains("UK_Comp_Compras_CveFactura") Then
Alert(String.Format("La factura {0}-{1} ya se encuentra registrada.", Serie, Folio), TipoMensaje.MsgAdvertencia)
Else Else
Me.OnError("Ocurrió un error al Guardar la Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) Me.OnError("Ocurrió un error al Guardar la Compra.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If End If

11
App_Code/ClsPaginas.vb
View File

@@ -3533,7 +3533,16 @@ Public Class ClsPaginas
If ObjPersonal.GetPersonal(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjPersonal.DtResultados If ObjPersonal.GetPersonal(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjPersonal.DtResultados
ObjPersonal.Dispose() ObjPersonal.Dispose()
End If End If
GlobalDTRHPersonal = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
Dim Str As New StringBuilder
If CvePersonal <> -1 Then Str.Append($" CvePersonal = {CvePersonal}")
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
'GlobalDTRHPersonal = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
GlobalDTRHPersonal = Dv.ToTable
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}"

16
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -825,7 +825,21 @@ Partial Class Bancos_FluctuacionCambiaria
End If End If
Next Next
Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa) Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 5, CveBitacora, UsuarioActual.CveEmpresa)
If Not ErrorRegistrar Then
If Conta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If Conta.ValorPolizaDescuadre > 0 Then
ErrorRegistrar = True
GuardaLogAD($"Banc/FluctuaA | Error:{Conta.MensajePolizaDescuadre} Diferencia:{Conta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
End If
Else
Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
End If
End If
If Not ErrorRegistrar Then If Not ErrorRegistrar Then
Conta.Commit() Conta.Commit()

2
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

@@ -478,6 +478,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
End Sub End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF") Private Sub ImprimirReporte(Optional Formato As String = "PDF")
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
@@ -487,6 +488,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue)) params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue))
params.Add(New ReportParameter("Cuenta", Cuenta)) params.Add(New ReportParameter("Cuenta", Cuenta))
ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato) ImprimirPDF("Empresas/Grales/Formatos/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
End Sub End Sub
Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged
If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then If DdlTipoCuentas.SelectedValue.ToEntero = -2 Then

68
Empresas/141/Formatos/CHQ-7451.rdlc
View File

@@ -842,70 +842,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>JOC</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>5.21284cm</Left>
<Height>0.6cm</Height>
<Width>0.88604cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox11">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>FLR</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>7.41418cm</Left>
<Height>0.6cm</Height>
<Width>0.88604cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox12"> <Textbox Name="Textbox12">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -928,7 +864,7 @@
<Left>14.00924cm</Left> <Left>14.00924cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
<ZIndex>3</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -961,7 +897,7 @@
<Left>18.00832cm</Left> <Left>18.00832cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.36771cm</Width> <Width>2.36771cm</Width>
<ZIndex>4</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>

68
Empresas/141/Formatos/CHQ-7452.rdlc
View File

@@ -842,70 +842,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>JOC</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>5.21284cm</Left>
<Height>0.6cm</Height>
<Width>0.88604cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox11">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>FLR</Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox9</rd:DefaultName>
<Top>1.36525cm</Top>
<Left>7.41418cm</Left>
<Height>0.6cm</Height>
<Width>0.88604cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox12"> <Textbox Name="Textbox12">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
@@ -928,7 +864,7 @@
<Left>14.00924cm</Left> <Left>14.00924cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
<ZIndex>3</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -961,7 +897,7 @@
<Left>18.00832cm</Left> <Left>18.00832cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>2.36771cm</Width> <Width>2.36771cm</Width>
<ZIndex>4</ZIndex> <ZIndex>2</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>

22
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1890,6 +1890,9 @@ Partial Class Inventarios_EntradasSalidas
Dim CveConceptoContable As Integer = 260 Dim CveConceptoContable As Integer = 260
Dim CveClasificacion As Integer = -1 Dim CveClasificacion As Integer = -1
Select Case DdlConcepto.SelectedValue.ToEntero Select Case DdlConcepto.SelectedValue.ToEntero
Case 2
CveConceptoContable = 78
EsContabilizable = True
Case 28, 31 Case 28, 31
CveConceptoContable = 51 CveConceptoContable = 51
@@ -1919,6 +1922,9 @@ Partial Class Inventarios_EntradasSalidas
End Select End Select
'2-78
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservaciones.Text.Trim, 68, TxtObservaciones.Text.Trim, TxtFecha.Text.ToDate, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=tValorInventario, CveClasificacion:=CveClasificacion, Contabilizable:=EsContabilizable) Then
ErrorMovInv = True ErrorMovInv = True
Else Else
@@ -1941,6 +1947,19 @@ Partial Class Inventarios_EntradasSalidas
ErrorMovInv = True ErrorMovInv = True
End If End If
If Not ErrorMovInv Then
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorMovInv = True
GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
End If
Else
Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
End If
End If
'------------------------------------------------ '------------------------------------------------
If Not ErrorMovInv Then If Not ErrorMovInv Then
'DEVENGAR 'DEVENGAR
@@ -2076,7 +2095,8 @@ Partial Class Inventarios_EntradasSalidas
If Not ErrorAC And Not ErrorMovInv Then If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento) Msg.AppendFormat("<br/>El Movimiento se registro con el Folio: <b><a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a></b>", ObjInventario.Folio, CveMovimiento)
Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) Msg.AppendFormat("<br/><br/> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))

5
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -151,7 +151,10 @@ Partial Class Inventarios_ResguardoMaterial
Private Sub OcultarControles(CvePersonal As Integer) Private Sub OcultarControles(CvePersonal As Integer)
DdlPersonal.SelectedValue = CvePersonal.ToString() DdlPersonal.SelectedValue = CvePersonal.ToString()
DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto") DdlPersonal.SelectedText = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal).FiltroPrimeroValor("NombreCompleto", $" CvePersonal = {CvePersonal}")
DdlPersonal.Enabled = False DdlPersonal.Enabled = False
DVTipo.Visible = False DVTipo.Visible = False
End Sub End Sub