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

-- botón de contabilizar

Browse Source
This commit is contained in:
rrene
2022-02-16 08:54:13 -07:00
parent 22ae2cac51
commit 2fb95ea786
2 changed files with 19 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Contabilidad/RegPrePolizaS.aspx
View File

@@ -232,10 +232,6 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink> <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
</div> </div>
<label class="col-md-1">Folio:</label>
<div class="col-md-1">
<asp:Label ID="LblFolio" Font-Bold="true" Font-Size="Large" runat="server"></asp:Label>
</div>
</div> </div>
<div class="row" visible="false" runat="server" id="DivTipoGasto"> <div class="row" visible="false" runat="server" id="DivTipoGasto">
@@ -713,7 +709,7 @@
<asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" /> <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
<asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" /> <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
<asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" /> <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
<%--<asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />--%> <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</td> </td>

42
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -531,14 +531,13 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
If UsuarioActual.CveEmpresa = 119 Then If dr("FolioPoliza").ToString = "" Then
' BtnContabilizar.Visible = True BtnContabilizar.Visible = True
End If End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True divContabilizada.Visible = True
LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString Folio = dr("FolioPoliza").ToString
End If End If
@@ -2588,29 +2587,29 @@ Partial Class ContabilidadC_RegPrePolizaS
End Function End Function
#End Region #End Region
'Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
' Contabilizar() Contabilizar()
'End Sub End Sub
'Private Sub Contabilizar() Private Sub Contabilizar()
' Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
' If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
' ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
' End If End If
' If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
' Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
' Else Else
' Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia) Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
' End If End If
' ObjConta.Dispose() ObjConta.Dispose()
'End Sub End Sub
#Region "Paquete Egresos" #Region "Paquete Egresos"
@@ -2772,16 +2771,9 @@ Partial Class ContabilidadC_RegPrePolizaS
LnkComplementoPago.Visible = True LnkComplementoPago.Visible = True
End If End If
If UsuarioActual.CveEmpresa = 119 Then
' BtnContabilizar.Visible = True
End If
If UsuarioActual.Empresa.TipoContabilizacion = 1 Then If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
If dr("FolioPoliza").ToString.ToEntero > 0 Then If dr("FolioPoliza").ToString.ToEntero > 0 Then
divContabilizada.Visible = True divContabilizada.Visible = True
LblFolio.Text = dr("FolioPoliza").ToString
Folio = dr("FolioPoliza").ToString Folio = dr("FolioPoliza").ToString
End If End If