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
2025-06-21 13:47:49 -07:00
parent 3e8bddd031 0e6fa86ee5
commit a5a4b3270e
8 changed files with 3775 additions and 2131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsBancos.vb
View File

@@ -3267,13 +3267,18 @@ Public Class ClsBancos
' Return Retorno ' Return Retorno
'End Function 'End Function
Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer) As Boolean Public Function UpdateCuentaDepositoPagoElectronico(CveCuentaDeposito As Integer, Optional Opcion As Integer = 1, Optional FechaEliminacion As Date = MinFecha) As Boolean
'Opcion 1: Bancomer, Opcion 2: Bajio, Opcion 3: Scotia
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate") DataAdapter("PA_Banc_LayoutCuentaDepositoUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito
.Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@FechaEliminacion", SqlDbType.Date).Value = FechaEliminacion
End With End With
Try Try

75
Bancos/PagoElectronico.aspx
View File

@@ -105,11 +105,17 @@
<td> <td>
<asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td> <asp:Label runat="server" ID="LbNumeroInterbancarias" Width="80px"></asp:Label></td>
</tr> </tr>
<tr> <tr runat="server" id="TRNumBancomer" visible="true">
<td>Bancomer:</td> <td>Bancomer:</td>
<td> <td>
<asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td> <asp:Label runat="server" ID="LbNumeroBancomer" Width="80px"></asp:Label></td>
</tr> </tr>
<tr runat="server" id="TRNumScotia" visible="false">
<td>Scotia Bank:</td>
<td>
<asp:Label runat="server" ID="LbNumeroScotia" Width="80px"></asp:Label></td>
</tr>
<tr> <tr>
<td colspan="2" align="center"> <td colspan="2" align="center">
<asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" /> <asp:Button runat="server" ID="BtnGenerarAlta" Text="Generar Alta" OnClick="BtnAltas_Click" class="btn btn-primary" />
@@ -157,7 +163,7 @@
</table> </table>
</div> </div>
</div> </div>
</div> </div>
</div> </div>
@@ -619,6 +625,71 @@
</tr> </tr>
</table> </table>
<div id="ModalDescarga" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header ">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<asp:UpdatePanel ID="UpdatePanel1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<h4 class="modal-title">
<asp:Literal ID="LtlModalTituloDescarga" runat="server">Descarga Layout</asp:Literal></h4>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpModalDescarga" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<div class="col-md-12" runat="server" id="DVDescargaPagos" visible=" false" >
<p> Pagos Descarga <asp:LinkButton runat="server" ID="LnkDescarga" OnClick="LnkDescarga_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas1" visible=" false" >
<p><asp:Label runat="server" ID="LblCuentas" Text="Cuentas Bancomer"></asp:Label> <asp:LinkButton runat="server" ID="LnkDescargaCuentas1" OnClick="LnkDescargaCuentas1_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<%--<div class="col-md-12" runat="server" id="DVDescargaCuentas2" visible=" false">
<p> Cuentas Interbancarias <asp:LinkButton runat="server" ID="LnkDescargaCuentas2" OnClick="LnkDescargaCuentas2_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
<div class="col-md-12" runat="server" id="DVDescargaCuentas3" visible=" false">
<p> Cuentas Convennios CIE <asp:LinkButton runat="server" ID="LnkDescargaCuentas3" OnClick="LnkDescargaCuentas3_Click" CssClass="Texto"></asp:LinkButton> </p>
</div>
--%>
<div class="col-md-12" runat="server" id="DVDescargaReporte" visible=" false">
<p> <asp:LinkButton runat="server" ID="LnkDescargaReporte" OnClick="LnkDescargaReporte_Click" CssClass="Texto" Text="Descargar Reporte"></asp:LinkButton> </p>
</div>
</div>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkDescarga" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas1" />
<%-- <asp:PostBackTrigger ControlID="LnkDescargaCuentas2" />
<asp:PostBackTrigger ControlID="LnkDescargaCuentas3" />--%>
<asp:PostBackTrigger ControlID="LnkDescargaReporte" />
</Triggers>
</asp:UpdatePanel>
</div>
<div class="modal-footer">
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate>
<button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
</div>
</div>
<asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" /> <asp:Button ID="BtnReporteAltaCarga" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaCarga_Click" />
<asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" /> <asp:Button ID="BtnReporteAltaGenera" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReporteAltaGenera_Click" />
<asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" /> <asp:Button ID="BtnReportePago" ClientIDMode="Static" Text="" runat="server" Style="display: none;" OnClick="BtnReportePago_Click" />

5606
Bancos/PagoElectronico.aspx.vb
View File

File diff suppressed because it is too large Load Diff

174
Bancos/PagoElectronicoGrupos.aspx.vb
View File

@@ -607,11 +607,11 @@ Partial Class Bancos_PagoElectronicoGrupos
Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean Private Function CreaArchivo(Tipo As Integer, Optional MismoBanco As Boolean = True, Optional ByRef NombreArchivoEnviado As String = "") As Boolean
System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para doferentes tipos de bancos System.Threading.Thread.Sleep(1000) 'Un segundo de diferencia Para dIferentes tipos de bancos
DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta)) DirectoryExistsCreate(String.Format("{0}Layout", UsuarioActual.Empresa.Ruta))
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA")) 'NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), If(Tipo = 1, "LAYOUTPAGO", "LAYOUTALTA"))
If Tipo = 1 Then If Tipo = 1 Then
NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO") NombreArchivo = String.Format("{2}{1}{0}.txt", UsuarioActual.CveUsuario, NowADS().ToString("yyyyMMdd-HH-mm-ss"), "LAYOUTPAGO")
@@ -866,7 +866,7 @@ Partial Class Bancos_PagoElectronicoGrupos
ElseIf OpBancos = 2 Then ElseIf OpBancos = 2 Then
AltaProveedoresBajio() AltaProveedoresBajio()
ElseIf OpBancos = 3 Then ElseIf OpBancos = 3 Then
'AltaProveedoresScotia() 'AltaProveedoresScotia() SE DEJA COMENTADO PORQUE NO SE ESTA USANDO, SE CAMBIO A PAGO ELECTRONICO
End If End If
@@ -1349,86 +1349,88 @@ Partial Class Bancos_PagoElectronicoGrupos
'Protected Sub CrearDetalle()
' Dim Resultado = True
' Dim CuentaDeposito As String = "" 'Protected Sub CrearDetalle()
' Dim TipoCuentaDeposito As String = "" ' Dim Resultado = True
' Dim TipoCuenta As String = "" ' Dim CuentaDeposito As String = ""
' Dim TipoCuentaDeposito As String = ""
' ''''' LLENADO DE DETALLE ' Dim TipoCuenta As String = ""
' 'Campos #1-4 del Detalle
' DetalleTexto &= String.Format("DA{0}N ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros)) ' ''''' LLENADO DE DETALLE
' 'Campos #1-4 del Detalle
' 'Banco BBVA ' DetalleTexto &= String.Format("DA{0}N ", DTPendienteActual(0)("CveCuentaDeposito").ToString.ToUpper.PadLeft(30, PadCeros))
' If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
' 'Llenamos datos de BBVA ' 'Banco BBVA
' 'Campo #5-7 del detalle ' If DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BBVA") Or DTPendienteActual(0)("BancoNombre").ToString.ToUpper.Contains("BANCOMER") Then
' 'Llenamos datos de BBVA
' 'Busca que cuenta sera la asignada para el proveedor ' 'Campo #5-7 del detalle
' If DTPendienteActual(0)("CIE").ToString <> "" Then
' CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros)) ' 'Busca que cuenta sera la asignada para el proveedor
' TipoCuenta = "50" ' If DTPendienteActual(0)("CIE").ToString <> "" Then
' TipoCuentaDeposito = "CIE" ' CuentaDeposito = String.Format("02{0}", DTPendienteActual(0)("CIE").ToString.PadLeft(8, PadCeros))
' ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then ' TipoCuenta = "50"
' CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString ' TipoCuentaDeposito = "CIE"
' TipoCuenta = "99" ' ElseIf DTPendienteActual(0)("Cuenta").ToString.Length = 10 Then
' TipoCuentaDeposito = "Cuenta" ' CuentaDeposito = DTPendienteActual(0)("Cuenta").ToString
' ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then ' TipoCuenta = "99"
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString ' TipoCuentaDeposito = "Cuenta"
' TipoCuenta = "40" ' ElseIf DTPendienteActual(0)("CLABE").ToString.Length = 18 Then
' TipoCuentaDeposito = "CLABE" ' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
' End If ' TipoCuenta = "40"
' TipoCuentaDeposito = "CLABE"
' End If
' DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
' 'Llenamos en blanco datos de otros bancos ' DetalleTexto &= String.Format("{0}{1}{2}", DTPendienteActual(0)("Abreviatura").ToString, TipoCuenta, CuentaDeposito.PadLeft(35, PadCeros))
' 'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS()().ToString("yyyy-MM-dd")) ' 'Llenamos en blanco datos de otros bancos
' 'Campos 8-17 del detalle --- 64 de otros bancos y 45 para FILLER --- Fecha de Alta
' DetalleTexto &= String.Format("{0}{1}", Vacio.PadLeft(109), NowADS()().ToString("yyyy-MM-dd"))
' 'Otros Bancos NACIONAL!!
' Else
' 'Otros Bancos NACIONAL!!
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString ' Else
' TipoCuentaDeposito = "CLABE"
' CuentaDeposito = DTPendienteActual(0)("CLABE").ToString
' 'Llenamos en blanco datos de BBVA ' TipoCuentaDeposito = "CLABE"
' DetalleTexto &= Vacio.PadRight(40)
' 'Llenamos en blanco datos de BBVA
' 'Llenamos datos de otros bancos ' DetalleTexto &= Vacio.PadRight(40)
' 'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS()().ToString("yyyy-MM-dd")) ' 'Llenamos datos de otros bancos
' End If ' 'Campos 8- 17 del detalle --- 44 de otros bancos --- 20 de internacional --- 45 Filler -- Fecha de Alta
' DetalleTexto &= String.Format("{0}40{1}{2}{3}{4}{5}", DTPendienteActual(0)("Abreviatura").ToString, DTPendienteActual(0)("CLABE").ToString.PadLeft(35, PadCeros), DTPendienteActual(0)("CLABE").ToString.Substring(0, 3).PadLeft(4, PadCeros), Vacio.PadRight(20), Vacio.PadRight(45), NowADS()().ToString("yyyy-MM-dd"))
' 'Llenamos datos de Tipo de Persona - Fisica o Moral ' End If
' TipoPersona()
' 'Llenamos datos de Tipo de Persona - Fisica o Moral
' 'Campos 27-32 --- Fillers --- datos de otros bancos (internacional) ' TipoPersona()
' DetalleTexto &= Vacio.PadLeft(153)
' 'Campos 27-32 --- Fillers --- datos de otros bancos (internacional)
' 'Campos 33-36 --- Datos de confirmacion ' DetalleTexto &= Vacio.PadLeft(153)
' DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
' 'Campos 33-36 --- Datos de confirmacion
' 'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then ' DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), CorreoNotificacionesEmpresa.ToUpper.PadRight(50))
' ' 'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
' 'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then ' 'If DTPendienteActual(0)("ContactoMail").ToString.Length > 0 Then
' ' DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50)) ' ' 'DetalleTexto &= String.Format("{0}02{1}", Vacio.PadRight(40), DTPendienteActual(0)("ContactoMail").ToString.ToUpper.PadRight(50))
' 'End If ' 'ElseIf DTPendienteActual(0)("ContactoMail").ToString.Length <= 0 Then
' ' DetalleTexto &= String.Format("{0}00{1}", Vacio.PadRight(40), Vacio.PadRight(50))
' 'Campos 37-39 -- FILLER ' 'End If
' DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
' 'Campos 37-39 -- FILLER
' DetalleTexto &= String.Format("00{0}", Vacio.PadRight(38))
' ''LLENA DT PARA REPORTE
' Dim Row = DtAlta.NewRow()
' Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString ' ''LLENA DT PARA REPORTE
' Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString ' Dim Row = DtAlta.NewRow()
' Row("TipoCuenta") = TipoCuentaDeposito ' Row("Proveedor") = DTPendienteActual(0)("RazonSocial").ToString
' Row("Cuenta") = String.Format("{0}", CuentaDeposito) ' Row("Banco") = DTPendienteActual(0)("BancoNombre").ToString
' DtAlta.Rows.Add(Row) ' Row("TipoCuenta") = TipoCuentaDeposito
'End Sub ' Row("Cuenta") = String.Format("{0}", CuentaDeposito)
' DtAlta.Rows.Add(Row)
'End Sub
Protected Sub TipoPersona() Protected Sub TipoPersona()
'Persona Moral 'Persona Moral
If DTPendienteActual(0)("RFC").ToString.Length = 12 Then If DTPendienteActual(0)("RFC").ToString.Length = 12 Then
@@ -1981,16 +1983,16 @@ Partial Class Bancos_PagoElectronicoGrupos
If drow("Observaciones").ToString.Trim.Length = 0 Then If drow("Observaciones").ToString.Trim.Length = 0 Then
If drow("RazonSocial").ToString.Trim.Length > 30 Then If drow("RazonSocial").ToString.Trim.Length > 30 Then
RegistrosPago.Append(drow("RazonSocial").ToString.Substring(0, 30)) RegistrosPago.Append(drow("RazonSocial").ToString.trim.Substring(0, 30))
Else Else
RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno)) RegistrosPago.Append(drow("RazonSocial").ToString.PadRight(30, EspacioRelleno))
End If End If
Else Else
If drow("Observaciones").ToString.Trim.Length > 30 Then If drow("Observaciones").ToString.Trim.Length > 30 Then
RegistrosPago.Append(drow("Observaciones").ToString.Substring(0, 30)) RegistrosPago.Append(drow("Observaciones").ToString.Trim.Substring(0, 30))
Else Else
RegistrosPago.Append(drow("Observaciones").ToString.PadRight(30, EspacioRelleno)) RegistrosPago.Append(drow("Observaciones").ToString.Trim.PadRight(30, EspacioRelleno))
End If End If
End If End If

18
Bancos/RepIngresosPorComprobar.aspx
View File

@@ -282,7 +282,7 @@
<div class="row"> <div class="row">
<div class="col-md-2" style="text-align: left">Fecha:</div> <div class="col-md-2" style="text-align: left">Fecha:</div>
<div class="col-md-2"> <div class="col-md-2">
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;"> <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
<asp:TextBox ID="TxtFecha" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox> <asp:TextBox ID="TxtFecha" CssClass="form-control input-sm ADSMaskDate" Style="width: 118px" runat="server"></asp:TextBox>
<span class="input-group-btn "> <span class="input-group-btn ">
<asp:LinkButton ID="LnkCortfecha" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton> <asp:LinkButton ID="LnkCortfecha" class="btn default " Text=" <i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -294,11 +294,19 @@
</div> </div>
</div> </div>
</div> </div>
<div class="row"> <br />
<div class="col-md-2" style="text-align: left">SubProyecto:</div> <div class="row">
<div class="col-md-2" style="text-align: left">SubProyecto:</div>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"> <asp:DropDownList ID="DdlSubProyectoSaldar" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%">
</asp:DropDownList> </asp:DropDownList>
</div>
</div>
<br />
<div class="row">
<div class="col-md-2" style="text-align: left">Observaciones:</div>
<div class="col-md-10">
<asp:TextBox ID="TxtObservaciones" Text="" Rows="3" TextMode="MultiLine" CssClass="Widthall form-control input-sm" runat="server" />
</div> </div>
</div> </div>
</div> </div>

15
Bancos/RepIngresosPorComprobar.aspx.vb
View File

@@ -267,6 +267,7 @@ Partial Class Bancos_RepIngresosPorComprobar
End Sub End Sub
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
TxtObservaciones.Text = ""
RegistraScript("$('#DivModalSaldar').modal();") RegistraScript("$('#DivModalSaldar').modal();")
End Sub End Sub
@@ -277,16 +278,20 @@ Partial Class Bancos_RepIngresosPorComprobar
ObjConta.IniciaTransacSQL() ObjConta.IniciaTransacSQL()
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
Dim MsgError As String = "" Dim MsgError As String = ""
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, "Saldo de IxC", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim Obs As String = TxtObservaciones.Text.Trim()
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepIngresosPorComprobar", 6, 0, 0, 1, TxtFecha.Text.ToDate, Obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim FolioPoliza As Integer = ObjConta.FolioPoliza
For Each gr As GridViewRow In GvIPC.Rows For Each gr As GridViewRow In GvIPC.Rows
If gr.FCCheckBox("Chk").Checked Then If gr.FCCheckBox("Chk").Checked Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 92, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveCliente:=gr.DataKey("CveCliente").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento" MsgError = "Ocurrio un error al saldar el movimiento"
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "", "Saldo de IxC", CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, 78, "Saldo de IxC", Obs, CveIE:=gr.DataKey("CveIE").ToEntero, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento" MsgError = "Ocurrio un error al saldar el movimiento"
End If End If
End If End If
@@ -296,7 +301,7 @@ Partial Class Bancos_RepIngresosPorComprobar
ObjConta.Commit() ObjConta.Commit()
CargaDatos() CargaDatos()
Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, ObjConta.ContaFolio)) Alert(String.Format("Los movimientos se saldaron correctamente.</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", CvePrePoliza, FolioPoliza))
Else Else
ObjConta.RollBack() ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError) Alert(MsgError, TipoMensaje.MsgError)

2
Contabilidad/ContabilizacionCompras.aspx
View File

@@ -124,7 +124,7 @@
<asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" /> <asp:Button ID="BtnContabilizarCompras" runat="server" CssClass="btn btn-success" Text="Contabilizar" />
</div> </div>
<asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false"> <asp:GridView ID="GvPrePolizaCompras" runat="server" AutoGenerateColumns="False" Width="100%" CssClass="table table-advance table-hover" Style="text-align: center;" ForeColor="Black" DataKeyNames="CvePrePoliza,Fecha,CveTipoPoliza,IdPoliza,Modulo" OnRowDataBound="OnRowDataBound" GridLines="None" ShowHeader="false">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>

9
Contabilidad/ContabilizacionCompras.aspx.cs
View File

@@ -163,6 +163,15 @@ public partial class Contabilidad_ContabilizacionCompras : ClsPaginas
{ {
e.Row.FCLinkButton("LBActualizarTC").Visible = true; e.Row.FCLinkButton("LBActualizarTC").Visible = true;
} }
if (UsuarioActual.CveEmpresa == 119 && e.Row.DBCampo("Modulo").ToString() == "Compras Comproba")
{
e.Row.FCCheckBox("Chk").Enabled = false;
e.Row.FCCheckBox("Chk").Checked = false;
e.Row.FCCheckBox("Chk").ToolTip = "Comprobación";
}
} }
} }