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

-- quitar el marcado de tipocliente

Browse Source
This commit is contained in:
rrene
2024-01-06 12:57:53 -07:00
parent 9e9855e0f6
commit c4cee9b308
3 changed files with 1 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
App_Code/ClsClientes.vb
View File

@@ -444,23 +444,6 @@ Public Class ClsClientes
End Function End Function
Public Function RegistrarCliente(CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_ClientesRegistrar")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al Registrar el Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
'Public Function VincularCuentasContables(Id0CtaContClientes As Integer, Id0CtaContAnticipos As Integer, Id0CtaContRetIVA As Integer, Id0CtaContRetISR As Integer, CveCliente As Integer, Optional Id0CtaContComplementaria As Integer = -1, Optional Id0CtaContMonedaExtranjera As Integer = -1, Optional Id0CtaContMonedaExtranjeraAnticipos As Integer = -1, Optional Id0CtaContCompAnticipos As Integer = -1) As Boolean 'Public Function VincularCuentasContables(Id0CtaContClientes As Integer, Id0CtaContAnticipos As Integer, Id0CtaContRetIVA As Integer, Id0CtaContRetISR As Integer, CveCliente As Integer, Optional Id0CtaContComplementaria As Integer = -1, Optional Id0CtaContMonedaExtranjera As Integer = -1, Optional Id0CtaContMonedaExtranjeraAnticipos As Integer = -1, Optional Id0CtaContCompAnticipos As Integer = -1) As Boolean
' Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False

30
Ventas/Clientes.aspx
View File

@@ -817,35 +817,7 @@
</div> </div>
</div> </div>
</div> </div>
</div> </div>
<%-- Marcar el Cliente como Frecuente --%>
<div class="col-md-6 " id="DivProtletRegistrar" visible="false" runat="server">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Registrar</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="portlet-body form">
<div class="table-responsive">
<table class="table table-striped table-advance table-hover" style="width: 100%">
<tr>
<td style="text-align: center;">
<asp:Button ID="BtnRegistrarCliente" runat="server" CssClass="btn btn-success" Text="Registrar" ValidationGroup="GrpGuardar" />
</td>
</tr>
</table>
</div>
</div>
</div>
</div>
<div class="col-md-6 " id="DivPortletSucursales" runat="server"> <div class="col-md-6 " id="DivPortletSucursales" runat="server">
<div class="portlet light xspadding bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">

12
Ventas/Clientes.aspx.vb
View File

@@ -1753,7 +1753,6 @@ Partial Class Clientes
'DivPortletBitacora.Visible = False 'DivPortletBitacora.Visible = False
BtnEliminar.Visible = False BtnEliminar.Visible = False
DivProtletRegistrar.Visible = True
End If End If
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString() TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
@@ -5847,19 +5846,8 @@ Partial Class Clientes
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió error al mandar MAIL", ex) OnError("Ocurrió error al mandar MAIL", ex)
End Try End Try
End Sub
Private Sub BtnRegistrarCliente_Click(sender As Object, e As EventArgs) Handles BtnRegistrarCliente.Click
Dim ObjClientes As New ClsClientes
If ObjClientes.RegistrarCliente(CveCliente) Then
RegistraScript("location.reload();")
End If
ObjClientes.Dispose()
End Sub End Sub
#End Region #End Region
#Region "C O N T R A T O S" #Region "C O N T R A T O S"