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
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
' Dim Retorno As Boolean = False

30
Ventas/Clientes.aspx
View File

@@ -817,35 +817,7 @@
</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>
<div class="col-md-6 " id="DivPortletSucursales" runat="server">
<div class="portlet light xspadding bordered">
<div class="portlet-title">

12
Ventas/Clientes.aspx.vb
View File

@@ -1753,7 +1753,6 @@ Partial Class Clientes
'DivPortletBitacora.Visible = False
BtnEliminar.Visible = False
DivProtletRegistrar.Visible = True
End If
TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString()
@@ -5847,19 +5846,8 @@ Partial Class Clientes
Catch ex As Exception
OnError("Ocurrió error al mandar MAIL", ex)
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 Region
#Region "C O N T R A T O S"