-- se depuró/limpió la variables idctaXXX
This commit is contained in:
@@ -160,7 +160,7 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
If CveImpuestoLocal = -1 Then
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
CargaDatos()
|
||||
End If
|
||||
TxtImpuesto.Text = ""
|
||||
@@ -174,10 +174,9 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
Dim Porcentaje As Decimal = TxtPorcentaje.Text.ToDecimal
|
||||
Dim Orden = TxtOrden.Text.ToEntero
|
||||
Dim TipoImpuesto = DdlTipoImpuesto.SelectedValue.ToEntero
|
||||
Dim IdCtaContable = DdlCuentasContables.SelectedValue.ToEntero
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
@@ -2004,7 +2004,7 @@
|
||||
<div class="btn-group">
|
||||
<asp:UpdatePanel UpdateMode="Conditional" runat="server" ID="UpdatePanel2">
|
||||
<ContentTemplate>
|
||||
<asp:HyperLink ID="HplAbonarMasivo" Visible="True" runat="server" NavigateUrl="#" ToolTip="Pago de múltiples facturas">Pago múltiples facturas <img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>
|
||||
<asp:HyperLink ID="HplAbonarMasivo" Visible="True" runat="server" NavigateUrl="#" CssClass="Texto" ToolTip="Pago de múltiples facturas">Pago múltiples facturas <img src="/Imagenes/Money_Add.png" alt="Pagar múltiples facturas" /></asp:HyperLink>
|
||||
|
||||
<asp:LinkButton ID="LnkCxCActivasPDF" runat="server" data-toggle="tooltip" Title="PDF"> <i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkCxCActivasExcel" runat="server" data-toggle="tooltip" Title="Excel"><i class="fa fa-file-excel-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i> </asp:LinkButton>
|
||||
|
||||
@@ -110,15 +110,6 @@ Partial Class Clientes
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property IdCtaCompCliente As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("IdCtaCompCliente")), "", ViewState("IdCtaCompCliente").ToString())
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("IdCtaCompCliente") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property ArrayDisp As String
|
||||
Get
|
||||
Return If(IsNothing(ViewState("ArrayDisp")), "", ViewState("ArrayDisp").ToString())
|
||||
@@ -205,7 +196,6 @@ Partial Class Clientes
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
Private Property DTCobrosRealizados As DataTable
|
||||
Get
|
||||
If ViewState("DTCobrosRealizados") Is Nothing Then
|
||||
@@ -1355,8 +1345,7 @@ Partial Class Clientes
|
||||
DdlCorporativo.DataBind()
|
||||
End Sub
|
||||
Protected Sub CargaCuentasExistentes()
|
||||
'SELECTED VALUES
|
||||
ActivarRegistroAutomatico()
|
||||
'SELECTED VALUES
|
||||
HeaderContable.Attributes.Remove("onclick")
|
||||
UpFiscalContable.Update()
|
||||
End Sub
|
||||
@@ -2317,17 +2306,6 @@ Partial Class Clientes
|
||||
End Try
|
||||
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()
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
|
||||
If UsuarioActual.CveUsuario = 1465 And TxtCodigo.Text.Trim = "" Then
|
||||
Alert("El cliente no se puede registrar sin ingresar un Código.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -2603,10 +2581,6 @@ Partial Class Clientes
|
||||
'Next
|
||||
GuardarDocumentosClientes()
|
||||
|
||||
If Not AsignaCuentasAutomaticas(ObjClientes) Then
|
||||
ErrorProceso = True
|
||||
End If
|
||||
|
||||
For Each GVR As GridViewRow In GvImpuestosLocales.Rows
|
||||
If GVR.FCCheckBox("ChkDeduccion").Checked Then
|
||||
ObjClientes.AddClienteImpuestosLocales(CveCliente, GVR.DataKey("CveImpuestoLocal").ToEntero())
|
||||
@@ -2645,8 +2619,6 @@ Partial Class Clientes
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ErrorProceso Then
|
||||
ObjClientes.RollBack()
|
||||
Else
|
||||
@@ -3758,14 +3730,11 @@ Partial Class Clientes
|
||||
Private Function AgregarCuentaContable(btn As Button, ddl As DropDownList, ByRef CodigoCuentaAltaCompaq As String, ByRef NombreCuentaCuentaAltaCompaq As String, ByRef IdCuentaAltaCompaq As Integer) As Boolean
|
||||
Dim IdCuentaContable As Integer = -1
|
||||
Dim CtaCodigo As String = ""
|
||||
Dim TieneError = False
|
||||
Dim IdCtaContableClientes As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableRetIVA As Integer = -1, IdCtaContableRetISR As Integer = -1
|
||||
Dim TieneError = False
|
||||
Dim ProcesoCorrecto As Boolean
|
||||
|
||||
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
|
||||
|
||||
ObjContaAC.IniciaTransacSQL()
|
||||
|
||||
Dim CuentaPadre = -1
|
||||
@@ -3785,8 +3754,6 @@ Partial Class Clientes
|
||||
'SI EL NOMBRE DEL PROVEEDOR ES MAYOR DE 50 LO CORTAMOS
|
||||
Dim NombreCuenta = If(TxtNombreComercial.Text.Trim.Length > 50, TxtNombreComercial.Text.Trim.Substring(0, 50), TxtNombreComercial.Text.Trim)
|
||||
|
||||
|
||||
|
||||
IdCuentaContable = ObjContaAC.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, Tipo:="A", CuentaMayor:=2)
|
||||
|
||||
NombreCuentaCuentaAltaCompaq = NombreCuenta
|
||||
@@ -3800,21 +3767,8 @@ Partial Class Clientes
|
||||
If dt.Rows.Count = 1 Then
|
||||
|
||||
Dim row As DataRow = dt.Rows(0)
|
||||
|
||||
CtaCodigo = CStr(row("CtaCodigo"))
|
||||
CodigoCuentaAltaCompaq = CStr(row("Codigo"))
|
||||
|
||||
Select Case btn.CommandArgument.ToString()
|
||||
Case "Clientes"
|
||||
IdCtaContableClientes = IdCuentaContable
|
||||
Case "Anticipos"
|
||||
IdCtaContableAnticipos = IdCuentaContable
|
||||
Case "RetIVA"
|
||||
IdCtaContableRetIVA = IdCuentaContable
|
||||
Case "RetISR"
|
||||
IdCtaContableRetISR = IdCuentaContable
|
||||
End Select
|
||||
|
||||
CodigoCuentaAltaCompaq = CStr(row("Codigo"))
|
||||
Else
|
||||
TieneError = True
|
||||
End If
|
||||
@@ -3823,9 +3777,6 @@ Partial Class Clientes
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
ObjContaAC.Commit()
|
||||
'Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
|
||||
@@ -3889,40 +3840,14 @@ Partial Class Clientes
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Return Respuesta
|
||||
End Function
|
||||
|
||||
Private Sub ActivarRegistroAutomatico()
|
||||
|
||||
'Clientes
|
||||
If DdlCtaContableClientes.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(211).ToEntero() > 0 Then
|
||||
BtnActivaRegistroClientes.Visible = True
|
||||
End If
|
||||
|
||||
'Anticipos
|
||||
If DdlCtaContableAnticipos.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(212).ToEntero() > 0 Then
|
||||
BtnActivaRegistroAnticipos.Visible = True
|
||||
End If
|
||||
|
||||
'Ret IVA
|
||||
If DdlCtaContableRetIVA.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(213).ToEntero() > 0 Then
|
||||
BtnActivaRegistroIVA.Visible = True
|
||||
End If
|
||||
|
||||
'Ret ISR
|
||||
If DdlCtaContableRetISR.SelectedValue.ToEntero() <= 0 And UsuarioActual.Empresa.Funcionalidad(214).ToEntero() > 0 Then
|
||||
BtnActivaRegistroISR.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " I M P R I M I R P D F"
|
||||
|
||||
|
||||
Protected Sub ChkAntIXCNC_CheckedChanged(sender As Object, e As EventArgs)
|
||||
DdlTipoDocto.ClearSelection()
|
||||
If ChkAntIXCNC.Checked Then
|
||||
@@ -9411,15 +9336,10 @@ Partial Class Clientes
|
||||
Row("Descuento") = Math.Round(Descuento, NumeroDecimales)
|
||||
Row("TipoDescuento") = 0
|
||||
Row("Total") = (Cantidad * PU)
|
||||
Row("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
|
||||
'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
|
||||
' Row("IdCtaContVentas") = IdCtaContable
|
||||
' Row("AplicaParaConcepto") = AplicaParaConcepto
|
||||
|
||||
Row("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
|
||||
Row("SATClaveProdServ") = DrPS("SATClavePS")
|
||||
Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
|
||||
|
||||
|
||||
Row("EntregaDirecta") = EntregaDirecta
|
||||
'Contratos
|
||||
Row("CveContratoDetalle") = CveContratoDetalle
|
||||
@@ -10421,9 +10341,7 @@ Partial Class Clientes
|
||||
Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub MuestraOcultaGenero()
|
||||
|
||||
DvGenero.Visible = False
|
||||
|
||||
@@ -15,14 +15,9 @@
|
||||
<li>
|
||||
<asp:HyperLink ID="HlSaldarCuentasIncobrables" data-toggle="modal" data-target="#ModalSaldarCuentaIncobrable" title="Saldar Cuentas!" runat="server" Visible="false"><i class="fa fa-money"></i> Saldar Cuentas Incobrables</asp:HyperLink>
|
||||
</li>
|
||||
<%--<li>
|
||||
<asp:HyperLink ID="HplVincularIntermediario" data-toggle="modal" data-target="#ModalVincularIntermediario" title="Vincular Intermediario" runat="server"><i class="fa fa-money"></i> Vincular Intermediario</asp:HyperLink>
|
||||
</li>--%>
|
||||
|
||||
<li>
|
||||
<asp:LinkButton runat="server" ID="LnkAccionesModalSeleccionLayout" OnClick="LnkAccionesModalSeleccionLayout_Click" Visible="false"><i class="fa fa-file-excel-o" aria-hidden="true"></i> Cargar Layout</asp:LinkButton>
|
||||
</li>
|
||||
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</asp:Content>
|
||||
@@ -47,7 +42,7 @@
|
||||
<asp:RadioButtonList ID="RblTipoPago" AutoPostBack="true" runat="server" RepeatDirection="Horizontal">
|
||||
<asp:ListItem Value="1" Selected="true">Banco </asp:ListItem>
|
||||
<asp:ListItem Value="3">Ingresos x Comprobar</asp:ListItem>
|
||||
<asp:ListItem Value="2">Pago Intermediario</asp:ListItem>
|
||||
<%-- <asp:ListItem Value="2" >Pago Intermediario</asp:ListItem>--%>
|
||||
</asp:RadioButtonList>
|
||||
</div>
|
||||
<div class="col-md-5">
|
||||
@@ -264,7 +259,7 @@
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light smmallpadding traspasorow bordered" id="PorletIntermediario" runat="server" visible="false">
|
||||
<div class="portlet light xspadding traspasorow bordered" id="PorletIntermediario" runat="server" visible="false">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<span class="caption-subject bold uppercase" style="line-height: 1;">Vinculación de intermediarios
|
||||
@@ -297,7 +292,6 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<br />
|
||||
<asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table class="Widthall">
|
||||
@@ -305,7 +299,7 @@
|
||||
<td style="text-align: right; width: 20%">
|
||||
<asp:CheckBox Text=" Seguir Registrando Pagos" ID="ChkSeguirRegistrando" CssClass="md-checksd" runat="server" />
|
||||
</td>
|
||||
<td style="text-align: left; width: 16%">
|
||||
<td style="text-align: left; width: 19%">
|
||||
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
|
||||
<br />
|
||||
<asp:Label ID="LblValidaCeuntaTipoTransaccion" runat="server" Visible="false" ForeColor="Red"></asp:Label>
|
||||
|
||||
@@ -189,9 +189,9 @@ Partial Class Ventas_ClientesAbonar
|
||||
Dim dia As Integer = If(UsuarioActual.CveEmpresa = 13, Now.Day - 1, Now.Day)
|
||||
Fecha = (dia.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString).ToDate
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
|
||||
PorletIntermediario.Visible = True
|
||||
End If
|
||||
'If UsuarioActual.Empresa.Funcionalidad(712) = "1" Then
|
||||
' PorletIntermediario.Visible = True
|
||||
'End If
|
||||
|
||||
If CargaCliente(CveCliente, CveMonedaFiltro) Then
|
||||
|
||||
@@ -441,10 +441,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
|
||||
Else
|
||||
TxtFolio.Text = ""
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
|
||||
@@ -489,9 +487,6 @@ Partial Class Ventas_ClientesAbonar
|
||||
e.Row.Cells(6).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(70)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(50)
|
||||
'e.Row.Cells(9).Width = Unit.Pixel(90)
|
||||
'e.Row.Cells(10).Width = Unit.Pixel(80)
|
||||
'e.Row.Cells(11).Width = Unit.Pixel(60)
|
||||
End If
|
||||
|
||||
e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
|
||||
@@ -920,21 +915,6 @@ Partial Class Ventas_ClientesAbonar
|
||||
|
||||
If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * If(Pago.CveMonedaPago = VentaActual.CveMoneda, 1, Pago.TCPago)
|
||||
|
||||
'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
|
||||
' EsAnticipoEspecial = True
|
||||
' Pago.AplicaTraslado = False
|
||||
' Dim IdCtaContable As Integer = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente)
|
||||
' If VentaActual.CveMoneda = 2 Then IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera)
|
||||
|
||||
' If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 3, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 95, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveCliente:=ViewState("CveCliente").ToString.ToEntero, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=VentaActual.PorcentajeIVA, Contabilizable:=False) Then
|
||||
' MsgError = "No se pudo insertar la póliza"
|
||||
' End If
|
||||
' Else
|
||||
' MsgError = "No se pudo insertar la póliza"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(590) = "1" AndAlso MsgError = "" Then '' si es empresa agrícola
|
||||
Dim FluctuacionAnticipo As Decimal = 0
|
||||
Dim ImporteLiq1 As Decimal = gvr.FCTextBox("TxtLiqCol1").Text.ToDecimal
|
||||
@@ -1079,15 +1059,14 @@ Partial Class Ventas_ClientesAbonar
|
||||
End If
|
||||
|
||||
' Case 134 'Pago Intermediario
|
||||
If RblTipoPago.SelectedValue = "2" Then
|
||||
Dim ImporteMovimiento As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal - gvr.FCTextBox("TxtComision").Text.ToDecimal
|
||||
Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
|
||||
Dim IdCtaContable As Integer = 0
|
||||
'If RblTipoPago.SelectedValue = "2" Then
|
||||
' Dim ImporteMovimiento As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal - gvr.FCTextBox("TxtComision").Text.ToDecimal
|
||||
' Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
End If
|
||||
End If
|
||||
' If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
|
||||
' MsgError = "No se pudo insertar la póliza"
|
||||
' End If
|
||||
'End If
|
||||
|
||||
'PARA EMITIR COMPLEMENTO PAGO
|
||||
CveVentasPago.Add(gvr.DataKey("CveVenta").ToEntero)
|
||||
@@ -1924,7 +1903,6 @@ Partial Class Ventas_ClientesAbonar
|
||||
TmpDT.Columns.Add("Total", GetType(Decimal))
|
||||
'Para uso del módulo contable
|
||||
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
|
||||
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
|
||||
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
|
||||
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
|
||||
TmpDT.Columns.Add("Proyecto", GetType(String))
|
||||
|
||||
@@ -832,7 +832,7 @@
|
||||
<td colspan="2">
|
||||
<asp:UpdatePanel ID="UpImpuestos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvImpuestosLocales2" BorderWidth="0px" ShowHeader="False" runat="server" horizontal-align="Right" GridLines="None" ShowHeaderWhenEmpty="False" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,TipoImpuesto,IdCtaContable" AutoGenerateColumns="False" EmptyDataText="">
|
||||
<asp:GridView ID="GvImpuestosLocales2" BorderWidth="0px" ShowHeader="False" runat="server" horizontal-align="Right" GridLines="None" ShowHeaderWhenEmpty="False" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,TipoImpuesto" AutoGenerateColumns="False" EmptyDataText="">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ImpuestoLocal" DataFormatString="{0}:" ItemStyle-Font-Bold="true" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="82px">
|
||||
@@ -1752,7 +1752,7 @@
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpOtrosConceptos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVOtrosConceptos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Otros Conceptos" DataKeyNames="CveConceptoContable, IdCtaContable, TipoMovto"
|
||||
<asp:GridView ID="GVOtrosConceptos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Otros Conceptos" DataKeyNames="CveConceptoContable, TipoMovto"
|
||||
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover ScrollAD Widthall" data-height="300" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
|
||||
@@ -4613,7 +4613,6 @@ Partial Class PV
|
||||
TmpDT.Columns.Add("Total", GetType(Decimal))
|
||||
'Para uso del módulo contable
|
||||
TmpDT.Columns.Add("AsientoContableVentas", GetType(Integer))
|
||||
TmpDT.Columns.Add("IdCtaContVentas", GetType(Integer))
|
||||
TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
|
||||
TmpDT.Columns.Add("CveProyecto", GetType(Integer))
|
||||
TmpDT.Columns.Add("Proyecto", GetType(String))
|
||||
|
||||
@@ -337,31 +337,19 @@ Partial Class Bancos_ProductosFinancieros
|
||||
Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
|
||||
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
|
||||
Dim importeMovimiento As Decimal
|
||||
Dim FechaMovimiento As Date = Now
|
||||
Dim IdCtaContablePP As Integer = 0
|
||||
|
||||
Select Case ConceptoContable
|
||||
|
||||
Case 45, 46, 47, 67
|
||||
importeMovimiento = Importe.ToString.ToDecimal
|
||||
If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
IdCtaContablePP = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Case 30
|
||||
importeMovimiento = Importe.ToString.ToDecimal
|
||||
IdCtaContablePP = CtaCuenta
|
||||
|
||||
End Select
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
|
||||
If IdCtaContablePP = 0 Then
|
||||
CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
|
||||
idCuentaContabilizacion = 0
|
||||
End If
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, "", ConceptoContable, TxtConcepto.Text, FechaMovimiento, IdCtaContablePP, -1, CveIE) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDouble, TxtImporte.Text.ToDouble, ConceptoContable, "", TxtConcepto.Text, CveIE:=CveIE) Then
|
||||
ErrorTransaccion = True
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -97,8 +97,7 @@ public partial class Ventas_ReporteDetalle : ClsPaginas
|
||||
dt.Columns.Add("ImpuestoLocal", typeof(String));
|
||||
dt.Columns.Add("Porcentaje", typeof(Double));
|
||||
dt.Columns.Add("Importe", typeof(Double));
|
||||
dt.Columns.Add("TipoImpuesto", typeof(Int32));
|
||||
dt.Columns.Add("IdCtaContable", typeof(Int32));
|
||||
dt.Columns.Add("TipoImpuesto", typeof(Int32));
|
||||
dt.Columns.Add("Orden", typeof(Int32));
|
||||
|
||||
dt.Rows.Add(1, "Subtotal", 1.5, (DtFacturaDefault1().SUM("PU") * DtFacturaDefault1().SUM("Cantidad")) * 0.16 , 1,1,1);
|
||||
|
||||
@@ -1630,7 +1630,7 @@
|
||||
<td colspan="2">
|
||||
<asp:UpdatePanel ID="UpImpuestos" runat="server" UpdateMode="Conditional" RenderMode="Inline">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvImpuestosLocales2" BorderWidth="0px" ShowHeader="False" runat="server" horizontal-align="Right" GridLines="None" ShowHeaderWhenEmpty="False" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,TipoImpuesto,IdCtaContable" AutoGenerateColumns="False" EmptyDataText="">
|
||||
<asp:GridView ID="GvImpuestosLocales2" BorderWidth="0px" ShowHeader="False" runat="server" horizontal-align="Right" GridLines="None" ShowHeaderWhenEmpty="False" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,TipoImpuesto" AutoGenerateColumns="False" EmptyDataText="">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ImpuestoLocal" DataFormatString="{0}:" ItemStyle-Font-Bold="true" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="150px" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="82px">
|
||||
@@ -4369,7 +4369,7 @@
|
||||
<div style="max-height: 300px; overflow-y: auto;">
|
||||
<asp:GridView ID="GVAnticipos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
|
||||
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall" data-height="300" Style="text-align: center;" GridLines="None"
|
||||
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, IdCtaContableNC,FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente,Descuentos">
|
||||
DataKeyNames="ISTotal,Saldo,CveIE,Folio,Tipo,CveVenta,CveConceptoContable,CveConceptoContableAmor, TotalAnticipo, SubTotalAnticipo, IVAAnticipo,IEPS, ImpuestosLocalesAnticipo, SubTotalAmortizacion, SubTotal, Original, IVA, RetIVA, RetISR, FolioFiscal, CveClasificacionNC, TipoCambio,TipoCambioPago,TipoCambioHoy, CveMoneda,Fecha,SaldoSubTotal,SaldoConImpuestos,RegresarImpuesto,DevolucionImportePagado,CveCliente,Descuentos">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
@@ -4495,7 +4495,7 @@
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpOtrosConceptos" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GVOtrosConceptos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Otros Conceptos" DataKeyNames="CveConceptoContable, IdCtaContable, TipoMovto"
|
||||
<asp:GridView ID="GVOtrosConceptos" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Otros Conceptos" DataKeyNames="CveConceptoContable, TipoMovto"
|
||||
ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover ScrollAD Widthall" data-height="300" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
|
||||
Reference in New Issue
Block a user