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
2022-02-08 21:18:04 -07:00
parent 0e9dedeedf 01d34ba13a
commit e81ef2fe74
6 changed files with 77 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
App_Code/ClsContabilidad.vb
View File

@@ -237,6 +237,31 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function End Function
Public Function UpdatePrePolizasOrdenamiento(CvePrePoliza As Integer, CveEmpresa As Integer) As Integer
FolioPoliza = -1
Dim Retorno As Integer = -1
DataAdapter("PA_Conta_PrePolizas_Ordenamiento")
With SqlAdapter.SelectCommand.Parameters
.Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
.Add("@CveEmpresa", SqlDbType.Bit).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Catch ex As Exception
OnError("Ocurrió un error al actualziar el ordenamientio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
''' <summary> ''' <summary>
''' Actualiza la IdPoliza de una PrePoliza ''' Actualiza la IdPoliza de una PrePoliza
''' </summary> ''' </summary>

6
App_Code/ClsPaginas.vb
View File

@@ -2042,7 +2042,9 @@ Public Class ClsPaginas
ObjVendedores.Dispose() ObjVendedores.Dispose()
End If End If
If CveEmpresa <> -1 Then If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows)
GlobalDTVendedores = Dv.ToTable GlobalDTVendedores = Dv.ToTable
Dv.Dispose() Dv.Dispose()
Else Else
@@ -6582,7 +6584,7 @@ Public Class ClsPaginas
params.Add(New CrystalParametro("LogoPath", LogoRuta)) params.Add(New CrystalParametro("LogoPath", LogoRuta))
'VENDEDOR 'VENDEDOR
Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then If Not IsNothing(RowVendedor) Then
params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString)) params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString))
params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString)) params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString))
@@ -7168,7 +7170,7 @@ Public Class ClsPaginas
Dim VendedorTelefono As String = "" Dim VendedorTelefono As String = ""
Dim VendedorCelular As String = "" Dim VendedorCelular As String = ""
Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString)) Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then If Not IsNothing(RowVendedor) Then
VendedorNombre = RowVendedor("Vendedor").ToString VendedorNombre = RowVendedor("Vendedor").ToString

4
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -233,14 +233,14 @@ Partial Class Bancos_RepEgresosSinComprobante
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1, If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
MsgError = "Ocurrio un error al saldar el movimiento" MsgError = "Ocurrio un error al saldar el movimiento"
Exit For Exit For
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero, If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento" MsgError = "Ocurrio un error al saldar el movimiento"
Exit For Exit For

2
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -1107,7 +1107,7 @@ Partial Class Compras_ReembolsosComprobaciones
'Otros Ingresos 'Otros Ingresos
If ChkAjusteOI.Checked Then If ChkAjusteOI.Checked Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 78, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, UsuarioActual.Empresa.IdCuentaOtrosIngresos, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
End If End If
End If End If

10
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -494,6 +494,11 @@ Partial Class ContabilidadC_RegPrePolizaS
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
'DtMovimientos.DefaultView.Sort = "OrdenPP"
'DtMovimientos = DtMovimientos.DefaultView.ToTable
GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataSource = DtMovimientos
@@ -2974,7 +2979,12 @@ Partial Class ContabilidadC_RegPrePolizaS
End Try End Try
If MsgError = "" Then If MsgError = "" Then
If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then
MsgError = "Orror al ordenar polzia"
End If
End If
If MsgError = "" Then
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""") Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")

48
Empresas/Grales/Formatos/Polizas.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner"> <Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh> <AutoRefresh>0</AutoRefresh>
<DataSources> <DataSources>
<DataSource Name="DataSet1"> <DataSource Name="DataSet1">
@@ -1185,7 +1185,7 @@
<TextRun> <TextRun>
<Value>=Fields!Fecha.Value</Value> <Value>=Fields!Fecha.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
<Format>d</Format> <Format>d</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1222,7 +1222,7 @@
<TextRun> <TextRun>
<Value>=Parameters!TipoPoliza.Value</Value> <Value>=Parameters!TipoPoliza.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1256,7 +1256,7 @@
<TextRun> <TextRun>
<Value>=Parameters!Numero.Value</Value> <Value>=Parameters!Numero.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1292,7 +1292,7 @@
<TextRun> <TextRun>
<Value>=Fields!ConceptoPoliza.Value</Value> <Value>=Fields!ConceptoPoliza.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1331,7 +1331,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1368,7 +1368,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1405,7 +1405,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1442,7 +1442,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1482,7 +1482,7 @@
<TextRun> <TextRun>
<Value>=RowNumber("Fecha")</Value> <Value>=RowNumber("Fecha")</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1514,7 +1514,7 @@
<TextRun> <TextRun>
<Value>=Fields!Referencia.Value</Value> <Value>=Fields!Referencia.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1544,7 +1544,7 @@
<TextRun> <TextRun>
<Value>=Fields!Codigo.Value</Value> <Value>=Fields!Codigo.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
<Format>#-####</Format> <Format>#-####</Format>
</Style> </Style>
</TextRun> </TextRun>
@@ -1575,7 +1575,7 @@
<TextRun> <TextRun>
<Value>=Fields!CodigoCuenta.Value</Value> <Value>=Fields!CodigoCuenta.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1611,7 +1611,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1643,7 +1643,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1673,6 +1673,7 @@
<TextRun> <TextRun>
<Value>=Fields!Cargo.Value</Value> <Value>=Fields!Cargo.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize>
<Format>#,0.00;(#,0.00);''</Format> <Format>#,0.00;(#,0.00);''</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1704,6 +1705,7 @@
<TextRun> <TextRun>
<Value>=Fields!Abono.Value</Value> <Value>=Fields!Abono.Value</Value>
<Style> <Style>
<FontSize>8pt</FontSize>
<Format>#,0.00;(#,0.00);''</Format> <Format>#,0.00;(#,0.00);''</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1742,7 +1744,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1774,7 +1776,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1806,7 +1808,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1836,7 +1838,7 @@
<TextRun> <TextRun>
<Value>=Fields!Concepto.Value</Value> <Value>=Fields!Concepto.Value</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1870,7 +1872,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1902,7 +1904,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1934,7 +1936,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>
@@ -1967,7 +1969,7 @@
<Value /> <Value />
<Style> <Style>
<FontFamily>Arial Narrow</FontFamily> <FontFamily>Arial Narrow</FontFamily>
<FontSize>7pt</FontSize> <FontSize>8pt</FontSize>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
</TextRun> </TextRun>