-- limpieza de código de mandar idcta de contpaq
This commit is contained in:
@@ -68,50 +68,8 @@ Partial Class Clientes
|
||||
Set(value As String)
|
||||
ViewState("Modalidad") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IdCtaCliente As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaCliente")), "", ViewState("IdCtaCliente").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaCliente") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaAnticipos As String
|
||||
Get
|
||||
|
||||
Return If(IsNothing(ViewState("IdCtaAnticipos")), "", ViewState("IdCtaAnticipos").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaAnticipos") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaRetIVA As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaRetIVA")), "", ViewState("IdCtaRetIVA").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaRetIVA") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaFondoGarantia As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaFondoGarantia")), "", ViewState("IdCtaFondoGarantia").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaFondoGarantia") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IdCtaRetISR As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaRetISR")), "", ViewState("IdCtaRetISR").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaRetISR") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
Private Property CveCuentaBancaria As Integer
|
||||
Get
|
||||
Return ViewState("CveCuentaBancaria").ToString().ToEntero()
|
||||
@@ -176,17 +134,8 @@ Partial Class Clientes
|
||||
Set(value As String)
|
||||
ViewState("NombreDispositivo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IdCtaCompAnticipo As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaCompAnticipo")), "", ViewState("IdCtaCompAnticipo").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaCompAnticipo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
Private Property CveDireccionEnvio As Integer
|
||||
Get
|
||||
If ViewState("CveDireccionEnvio") Is Nothing Then
|
||||
@@ -211,27 +160,8 @@ Partial Class Clientes
|
||||
Set(value As Integer)
|
||||
ViewState("CveCuentaEquipo") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property IdCtaMonedaExtranjera As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaMonedaExtranjera")), "", ViewState("IdCtaMonedaExtranjera").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaMonedaExtranjera") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IdCtaMonedaExtranjeraAnticipos As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaMonedaExtranjeraAnticipos")), "", ViewState("IdCtaMonedaExtranjeraAnticipos").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaMonedaExtranjeraAnticipos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
Private Property TempDTSucursales As DataTable
|
||||
Get
|
||||
Return CType(ViewState("TempDTSucursales"), DataTable)
|
||||
@@ -1424,17 +1354,8 @@ Partial Class Clientes
|
||||
ObjCorporativo.Dispose()
|
||||
DdlCorporativo.DataBind()
|
||||
End Sub
|
||||
Protected Sub CargaCuentasExistentes()
|
||||
Protected Sub CargaCuentasExistentes()
|
||||
'SELECTED VALUES
|
||||
DdlCtaContableClientes.SelectedValue = IdCtaCliente
|
||||
DdlCtaContableAnticipos.SelectedValue = IdCtaAnticipos
|
||||
DdlCtaContableRetIVA.SelectedValue = IdCtaRetIVA
|
||||
DdlCtaContableRetISR.SelectedValue = IdCtaRetISR
|
||||
DdlCtaContableFondoGarantia.SelectedValue = IdCtaFondoGarantia
|
||||
|
||||
DdlMonedaExtranjeraClientes.SelectedValue = IdCtaMonedaExtranjera
|
||||
DdlMonedaExtranjeraAnticipos.SelectedValue = IdCtaMonedaExtranjeraAnticipos
|
||||
|
||||
ActivarRegistroAutomatico()
|
||||
HeaderContable.Attributes.Remove("onclick")
|
||||
UpFiscalContable.Update()
|
||||
@@ -1479,12 +1400,8 @@ Partial Class Clientes
|
||||
BtnGuardarPorcentajesMarca.Visible = True
|
||||
BtnGuardarPorcentajes.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 3 Then ' SI ES USUARIO DE GPS.
|
||||
CargaDispositivos()
|
||||
Else
|
||||
@@ -1494,8 +1411,6 @@ Partial Class Clientes
|
||||
CargaCuentasCaracteristicas()
|
||||
|
||||
If ObjClientes.Pais = "" Then ObjClientes.Pais = "México"
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then
|
||||
' LnkAgregarVendedorSucursal.Visible = True
|
||||
'End If
|
||||
@@ -1566,13 +1481,8 @@ Partial Class Clientes
|
||||
DdlTipoPago.SelectedValueExist(ObjClientes.TipoPago)
|
||||
'TxtCuentaContable.Text = ObjClientes.CuentaContable
|
||||
TxtExtension.Text = ObjClientes.TelefonoExtension
|
||||
TxtTelefonoOtro.Text = ObjClientes.TelefonoOtros
|
||||
IdCtaCliente = ObjClientes.IdCtaContClientes.ToString()
|
||||
IdCtaAnticipos = ObjClientes.IdCtaContAnticipos.ToString()
|
||||
IdCtaRetIVA = ObjClientes.IdCtaContRetIVA.ToString()
|
||||
IdCtaRetISR = ObjClientes.IdCtaContRetISR.ToString()
|
||||
IdCtaFondoGarantia = ObjClientes.IdCtaContFondoGarantia.ToString()
|
||||
'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString()
|
||||
TxtTelefonoOtro.Text = ObjClientes.TelefonoOtros
|
||||
'DdlMetodoPago.SelectedValue = ObjClientes.CveMetodoPago.ToString()
|
||||
TxtFormaFacturacion.Text = ObjClientes.FormaFacturacion
|
||||
ChkPermiteCredito.Checked = ObjClientes.PermiteCredito
|
||||
TxtLimiteCredito.Text = ObjClientes.LimiteCredito.FormatoNumero()
|
||||
@@ -1615,17 +1525,9 @@ Partial Class Clientes
|
||||
TxtDiasEspecifico.Text = ObjClientes.DiasEspecificos
|
||||
TxtDocumentacion.Text = ObjClientes.Documentacion
|
||||
TxtUsuarioPortalFacturacion.Text = ObjClientes.UsuarioPortal
|
||||
TxtContraseñaPortalFacturacion.Text = ObjClientes.ContraseñaPortal
|
||||
|
||||
IdCtaCompCliente = ObjClientes.IdCtaContComplementaria.ToString()
|
||||
IdCtaCompAnticipo = ObjClientes.IdCtaContCompAnticipos.ToString()
|
||||
|
||||
IdCtaMonedaExtranjera = ObjClientes.IdCtaMonedaExtranjera.ToString()
|
||||
IdCtaMonedaExtranjeraAnticipos = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
|
||||
|
||||
TxtContraseñaPortalFacturacion.Text = ObjClientes.ContraseñaPortal
|
||||
ChkMuestraNombre.Checked = ObjClientes.ImprimeNombreSucursal
|
||||
|
||||
|
||||
DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
|
||||
DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
|
||||
'DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
|
||||
@@ -1751,25 +1653,9 @@ Partial Class Clientes
|
||||
TxtExtOtro.Text = ObjClientes.ExtOtros
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
|
||||
|
||||
If ObjClientes.IdCtaContClientes > 0 Then DdlCtaContableClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContClientes), ObjClientes.IdCtaContClientes.ToString())) : DdlCtaContableClientes.SelectedValue = ObjClientes.IdCtaContClientes.ToString()
|
||||
If ObjClientes.IdCtaContAnticipos > 0 Then
|
||||
DdlCtaContableAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContAnticipos), ObjClientes.IdCtaContAnticipos.ToString()))
|
||||
DdlCtaContableAnticipos.SelectedValue = ObjClientes.IdCtaContAnticipos.ToString()
|
||||
End If
|
||||
If ObjClientes.IdCtaContRetISR > 0 Then DdlCtaContableRetISR.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetISR), ObjClientes.IdCtaContRetISR.ToString())) : DdlCtaContableRetISR.SelectedValue = ObjClientes.IdCtaContRetISR.ToString()
|
||||
If ObjClientes.IdCtaContRetIVA > 0 Then DdlCtaContableRetIVA.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContRetIVA), ObjClientes.IdCtaContRetIVA.ToString())) : DdlCtaContableRetIVA.SelectedValue = ObjClientes.IdCtaContRetIVA.ToString()
|
||||
If ObjClientes.IdCtaContFondoGarantia > 0 Then DdlCtaContableFondoGarantia.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContFondoGarantia), ObjClientes.IdCtaContFondoGarantia.ToString())) : DdlCtaContableFondoGarantia.SelectedValue = ObjClientes.IdCtaContFondoGarantia.ToString()
|
||||
|
||||
|
||||
If ObjClientes.IdCtaContComplementaria > 0 Then DdlCtaContableCompClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContComplementaria), ObjClientes.IdCtaContComplementaria.ToString())) : DdlCtaContableCompClientes.SelectedValue = ObjClientes.IdCtaContComplementaria.ToString()
|
||||
If ObjClientes.IdCtaContCompAnticipos > 0 Then DdlCtaContableCompAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaContCompAnticipos), ObjClientes.IdCtaContCompAnticipos.ToString())) : DdlCtaContableCompAnticipos.SelectedValue = ObjClientes.IdCtaContCompAnticipos.ToString()
|
||||
|
||||
If ObjClientes.IdCtaMonedaExtranjera > 0 Then DdlMonedaExtranjeraClientes.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjera), ObjClientes.IdCtaMonedaExtranjera.ToString())) : DdlMonedaExtranjeraClientes.SelectedValue = ObjClientes.IdCtaMonedaExtranjera.ToString()
|
||||
If ObjClientes.IdCtaMonedaExtranjeraAnticipos > 0 Then DdlMonedaExtranjeraAnticipos.Items.Add(New ListItem(NombreCuenta(ObjClientes.IdCtaMonedaExtranjeraAnticipos), ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString())) : DdlMonedaExtranjeraAnticipos.SelectedValue = ObjClientes.IdCtaMonedaExtranjeraAnticipos.ToString()
|
||||
ActivarRegistroAutomatico()
|
||||
End If
|
||||
'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
|
||||
' ActivarRegistroAutomatico()
|
||||
'End If
|
||||
|
||||
|
||||
'7eleven
|
||||
@@ -2402,35 +2288,16 @@ Partial Class Clientes
|
||||
ObjVentas.UpdateVentaMail(3, HdnCveVenta.Value.ToEntero())
|
||||
ObjVentas.Dispose()
|
||||
End Try
|
||||
End Sub
|
||||
Protected Sub BtnAbonar_Click(sender As Object, e As System.EventArgs) Handles BtnAbonar.Click
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
|
||||
|
||||
If ObjMovtos.AddMovimiento(2, "Cli", CveCliente.ToString(), HdnCveVentaAbono.Value, 1, 0, TxtCantidad.Text.Trim.ToDouble, Now, TxtFechaPago.Text.ToDate(), TxtReferencia.Text.Trim, DdlCtaContableClientes.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
Alert("El abono se guardó correctamente", TipoMensaje.MsgInformacion, "$get(""DivAddPago"").style.display=""none"";")
|
||||
CargaCxC()
|
||||
TxtCantidad.Text = ""
|
||||
TxtReferencia.Text = ""
|
||||
|
||||
'UpAbono.Update()
|
||||
UPPUsuarios.Update()
|
||||
End If
|
||||
ObjMovtos.Dispose()
|
||||
AbonaaCuenta()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function AsignaCuentasAutomaticas(ObjClientes As ClsClientes) As Boolean
|
||||
Dim IdCtaContableClientes As Integer = UsuarioActual.Empresa.Funcionalidad(246).ToEntero()
|
||||
Dim IdCtaContableAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(319).ToEntero()
|
||||
Dim IdCtaContableComplementaria As Integer = UsuarioActual.Empresa.Funcionalidad(320).ToEntero()
|
||||
Dim IdCtaContMonedaExtranjera As Integer = UsuarioActual.Empresa.Funcionalidad(331).ToEntero()
|
||||
Dim IdCtaContMonedaExtranjeraAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(332).ToEntero()
|
||||
Dim IdCtaContCompAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(333).ToEntero()
|
||||
|
||||
If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, 0, 0, CveCliente, IdCtaContableComplementaria, IdCtaContMonedaExtranjera, IdCtaContMonedaExtranjeraAnticipos, IdCtaContCompAnticipos) Then
|
||||
Return False
|
||||
End If
|
||||
Dim IdCtaContCompAnticipos As Integer = UsuarioActual.Empresa.Funcionalidad(333).ToEntero()
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
@@ -2683,10 +2550,7 @@ Partial Class Clientes
|
||||
If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
|
||||
TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, Giro, DdlPrecioLista.SelectedValue.ToEntero(), ChkMail.Checked, TxtRetIVA.Text.ToDouble,
|
||||
TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero(), TxtPlazoCobranza.Text.Trim.ToEntero(), TxtPlazoCobranzaRemision.Text.Trim.ToEntero(),
|
||||
DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero(),
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero(),
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero(), DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero(), DdlCtaContableCompAnticipos.SelectedItem.Text,
|
||||
TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
|
||||
DiasPago, DdlTipoPago.SelectedValue, TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim,
|
||||
TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim, ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim,
|
||||
TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero(), DdlCorporativo.SelectedValue.ToEntero(),
|
||||
CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero(), CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero(),
|
||||
@@ -2786,10 +2650,7 @@ Partial Class Clientes
|
||||
Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
|
||||
If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
|
||||
TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, Giro, DdlPrecioLista.SelectedValue.ToEntero(), ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
|
||||
ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero(), TxtPlazoCobranza.Text.Trim.ToEntero(), TxtPlazoCobranzaRemision.Text.Trim.ToEntero(), DiasPago, DdlTipoPago.SelectedValue,
|
||||
DdlCtaContableClientes.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero(), DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero(),
|
||||
DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero(), DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero(), DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero(), DdlCtaContableCompAnticipos.SelectedItem.Text,
|
||||
DdlMonedaExtranjeraClientes.SelectedValue.ToEntero(), DdlMonedaExtranjeraClientes.SelectedItem.Text, DdlMonedaExtranjeraAnticipos.SelectedValue.ToEntero(), DdlMonedaExtranjeraAnticipos.SelectedItem.Text,
|
||||
ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero(), TxtPlazoCobranza.Text.Trim.ToEntero(), TxtPlazoCobranzaRemision.Text.Trim.ToEntero(), DiasPago, DdlTipoPago.SelectedValue,
|
||||
TxtFormaFacturacion.Text.Trim, TxtCodigo.Text.Trim, TxtLimiteCredito.Text.ToDouble, ChkAplicaFEMSA.Checked, TxtFEMSA_NumSociedad.Text.Trim, TxtFEMSA_NumProveedor.Text.Trim, TxtFEMA_Mail.Text.Trim,
|
||||
ChkAplicaDetallista.Checked, TxtDet_GLNComprador.Text.Trim, TxtDet_Departamento.Text.Trim, TxtDet_GLNVendedor.Text.Trim, TxtDet_NumProveedor.Text.Trim, TxtProveedor.Text.Trim, ChkAplicaFord.Checked, TxtFordGSDB.Text.Trim, UsuarioActual.CveUsuario,
|
||||
CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtExtension.Text.Trim, TxtTelefonoOtro.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), ChkPermiteCredito.Checked, DdlSubProyecto.SelectedValue.ToEntero(), DdlCorporativo.SelectedValue.ToEntero(), CveClienteClasificacion:=DdlClasificacion.SelectedValue.ToEntero(), CveUsuarioResponsable:=DdlResponsable.SelectedValue.ToEntero(),
|
||||
@@ -2805,7 +2666,6 @@ Partial Class Clientes
|
||||
NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
|
||||
Genero:=GeneroCliente) Then
|
||||
|
||||
|
||||
ObjClientes.LimpiaImpuestosLocales(CveCliente)
|
||||
|
||||
For Each GVR As GridViewRow In GvImpuestosLocales.Rows
|
||||
@@ -3928,15 +3788,6 @@ Partial Class Clientes
|
||||
IdCtaContableRetISR = IdCuentaContable
|
||||
End Select
|
||||
|
||||
If CveCliente > 0 Then
|
||||
Dim ObjClientes As New ClsClientes
|
||||
If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
ObjClientes.Dispose()
|
||||
End If
|
||||
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
@@ -6076,44 +5927,8 @@ Partial Class Clientes
|
||||
UpGvUsuarios.Update()
|
||||
UPPUsuarios.Update()
|
||||
|
||||
End Sub
|
||||
Private Sub AbonaaCuenta()
|
||||
|
||||
'si usa bancos, se va abrir el popupie para la recepci[on del pago
|
||||
Dim MsgError As String = ""
|
||||
|
||||
Dim ObjMov As New ClsContabilidad
|
||||
ObjMov.IniciaTransacSQL()
|
||||
Dim CvePrePoliza As Integer = ObjMov.AddPrePolizas("Cli", 2, TxtCantidad.Text.Trim.ToDouble, TxtCantidad.Text.Trim.ToDouble, 1, TxtFechaPago.Text.ToDate(), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtCantidad.Text.ToDecimal(), TxtReferencia.Text, 2, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero(), CveCliente:=CveCliente) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtCantidad.Text.ToDecimal(), TxtReferencia.Text, 4, TxtReferencia.Text, Now, 0, -1, -1, CveVenta:=HdnCveVentaAbono.Value.ToEntero(), CveCliente:=CveCliente) Then
|
||||
|
||||
Else
|
||||
MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
End If
|
||||
Else
|
||||
MsgError = "no se pudo insertar el detalle de la póliza"
|
||||
End If
|
||||
Else
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
|
||||
If MsgError = "" Then
|
||||
Alert("El Documento se guardó correctamente.", TipoMensaje.MsgInformacion, "window.opener.location.href = window.opener.location.href; window.close();")
|
||||
ObjMov.Commit()
|
||||
|
||||
UpDatos.Update()
|
||||
|
||||
Else
|
||||
ObjMov.RollBack()
|
||||
End If
|
||||
ObjMov.Dispose()
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Private Sub ChecaPermiteCredito()
|
||||
' DivParametros.Disabled = Not ChkPermiteCredito.Checked
|
||||
'For Each Control As Control In UpParametros.Controls
|
||||
|
||||
Reference in New Issue
Block a user