Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Jorge Luis caudillo esparza
@@ -3924,6 +3924,7 @@ Namespace Modelos
|
||||
DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"})
|
||||
|
||||
If DT.Rows.Count > 0 Then
|
||||
Dim CondicionesPago As Integer = If(ObjFactura.CondicionesPago = 0, 2, ObjFactura.CondicionesPago)
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
For Each Row2 As DataRow In DT.Rows
|
||||
importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador)
|
||||
@@ -3934,7 +3935,7 @@ Namespace Modelos
|
||||
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
|
||||
'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then
|
||||
ErrorPrepoliza = True
|
||||
Else
|
||||
ObjFactura.SeGuardoPrePoliza = True
|
||||
|
||||
@@ -103,7 +103,7 @@
|
||||
</asp:GridView>
|
||||
<br />
|
||||
<asp:GridView runat="server" ID="GvGlobal" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover ScrollAD"
|
||||
DataKeyNames="CveEmpresa,CveCuenta,CveConceptoContable,CveCuentaAsignacion,CveConceptoNomina, CveProveedor,CveClasificacion,CveAlmacen, IdCuenta, PorcentajeIVA, CveBancoCuenta, CveCliente, CvePersonal" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveCuentaGlobal, CveEmpresa,CveCuenta,CveConceptoContable,CveCuentaAsignacion,CveConceptoNomina, CveProveedor,CveClasificacion,CveAlmacen, IdCuenta, PorcentajeIVA, CveBancoCuenta, CveCliente, CvePersonal" AutoGenerateColumns="False"
|
||||
Style=" width:100%" GridLines="None" Caption="Globales">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="ConceptoContable" ItemStyle-Width="250px" HeaderText="Concepto Contable" />
|
||||
@@ -111,7 +111,7 @@
|
||||
<asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px" HeaderText="Código Cuenta" />
|
||||
<asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" />
|
||||
<asp:BoundField DataField="PorcentajeImpuesto" HeaderText="%" />
|
||||
|
||||
<asp:BoundField DataField="Colectiva" HeaderText="-" />
|
||||
<asp:TemplateField ItemStyle-Width="49px">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="ImgEliminar" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRowGlobal" CommandName="Delete" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
|
||||
@@ -238,7 +238,7 @@
|
||||
<div class="col-md-1" style="width:50%;text-align:left">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:HiddenField ID="HiddenField1" runat="server" />
|
||||
<asp:DropDownList ID="DdlConceptoGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>
|
||||
<asp:DropDownList ID="DdlConceptoGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" OnSelectedIndexChanged="DdlConceptoGlobal_SelectedIndexChanged" ></asp:DropDownList>
|
||||
<label for="<%= DdlConceptoGlobal.ClientID.ToString()%>">Concepto Contable: </label>
|
||||
</div>
|
||||
</div>
|
||||
@@ -261,7 +261,21 @@
|
||||
<label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<div class="col-md-6" style="width:50%;text-align:left">
|
||||
<div class="form-group form-md-line-input input-iconright" id="divGlobalColectiva" runat="server" visible="false">
|
||||
<asp:DropDownList ID="DdlGlobalColectiva" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" DataTextField="Colectiva" DataValueField="CveColectiva" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
|
||||
<label for="<%= DdlColectivas.ClientID.ToString()%>">Colectivas: </label>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-md-6" style="width:50%;text-align:left">
|
||||
<div class="form-group form-md-line-input input-iconright" id="divGlobalPorcentajeIVA" runat="server" visible="false">
|
||||
<asp:TextBox ID="TxtGlobalPorcentajeIVA" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator2" runat="server" ControlToValidate="TxtGlobalPorcentajeIVA" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨PorcentajeIVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo" Enabled="false"></asp:RequiredFieldValidator>
|
||||
<label for="<%= TxtGlobalPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<asp:LinkButton ID="LBAgregaGlobal" runat="server" class="btn btn-success" Text="Agregar" OnClick="LBAgregaGlobal_Click" ValidationGroup="GrpModulo2" />
|
||||
|
||||
@@ -203,7 +203,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
RegistraScript("$('#ModalCat').modal();")
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub RecargaConcepto(CveConceptoContable As Integer)
|
||||
@@ -268,10 +267,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
Dim ObjG As New ClsGenerales
|
||||
If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then
|
||||
DdlColectivas.DataSource = ObjG.DtResultados
|
||||
DdlGlobalColectiva.DataSource = ObjG.DtResultados
|
||||
End If
|
||||
ObjG.Dispose()
|
||||
DdlColectivas.DataBind()
|
||||
DdlGlobalColectiva.DataBind()
|
||||
DdlColectivas.Items.Insert(0, New ListItem("-", "-1"))
|
||||
DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1"))
|
||||
|
||||
If OpAgregar Then
|
||||
DdlColectivas.Enabled = True
|
||||
@@ -303,8 +305,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
Protected Sub EliminarRowGlobal(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveConceptoContable").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then
|
||||
Alert("se elimino correctamente")
|
||||
If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveCuentaGlobal").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then
|
||||
Alert("Se elimino correctamente")
|
||||
End If
|
||||
CargaDatosSistema()
|
||||
UpDatos.Update()
|
||||
@@ -401,7 +403,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
|
||||
Dim ErrorString As String = ""
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtGlobalPorcentajeIVA.Text.ToDecimal, DdlGlobalColectiva.SelectedValue.ToEntero) Then
|
||||
ErrorString = "Error al agregar"
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
@@ -432,4 +434,46 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
ObjConta.Dispose()
|
||||
DdlCuentaGlobal.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlConceptoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
RecargaConceptoGlobal(DdlConceptoGlobal.SelectedValue.ToEntero)
|
||||
End Sub
|
||||
|
||||
Private Sub RecargaConceptoGlobal(CveConceptoContable As Integer)
|
||||
Dim Dr As DataRow = GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("")
|
||||
|
||||
If Dr IsNot Nothing Then
|
||||
|
||||
'divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString)
|
||||
'divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString)
|
||||
'divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString)
|
||||
divGlobalPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString)
|
||||
'divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString)
|
||||
'divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString)
|
||||
'divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString)
|
||||
'divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString)
|
||||
'divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString)
|
||||
'divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString)
|
||||
divGlobalColectiva.Visible = Boolean.Parse(Dr("AplicaColectiva").ToString)
|
||||
|
||||
If Dr("AplicaColectiva").ToString = "True" Then
|
||||
Dim dtt As DataTable = Nothing
|
||||
Dim ObjG As New ClsGenerales
|
||||
If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then
|
||||
dtt = ObjG.DtResultados
|
||||
End If
|
||||
If ObjG.GetColectivas(0, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then
|
||||
dtt.Merge(ObjG.DtResultados)
|
||||
End If
|
||||
DdlGlobalColectiva.DataSource = dtt
|
||||
ObjG.Dispose()
|
||||
|
||||
DdlGlobalColectiva.DataBind()
|
||||
DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1"))
|
||||
DdlGlobalColectiva.Enabled = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -2139,14 +2139,12 @@ Partial Class Inventarios_EntradasSalidas
|
||||
Dim CveClasificacion As Integer = -1
|
||||
Select Case DdlConcepto.SelectedValue.ToEntero
|
||||
Case 2, 32
|
||||
EsContabilizable = True
|
||||
Case 28
|
||||
CveConceptoContable = 78
|
||||
EsContabilizable = True
|
||||
Case 28, 31
|
||||
Case 31
|
||||
CveConceptoContable = 290
|
||||
If DdlConcepto.SelectedValue.ToEntero = 28 Then
|
||||
''cuando es 28, es otros ingresos.78
|
||||
CveConceptoContable = 78
|
||||
End If
|
||||
EsContabilizable = True
|
||||
Case 30
|
||||
CveConceptoContable = 181
|
||||
|
||||
@@ -450,7 +450,7 @@
|
||||
<asp:DropDownList ID="DdlRegimenContratacion" runat="server" Style="width: 100% !important;" CssClass="select2me">
|
||||
<asp:ListItem Text="Asalariados" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Text="Asimilados" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Todos" Value="3"></asp:ListItem>
|
||||
<asp:ListItem Text="Todos" Value="3" Selected="True"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 85px;">Tipo Trabajador:</label>
|
||||
|
||||
@@ -450,6 +450,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
|
||||
|
||||
DdlBanco.DataSource = GlobalDTNomSatBancos;
|
||||
DdlBanco.DataBind();
|
||||
|
||||
if(UsuarioActual.CveEmpresa == 119) DdlRegimenContratacion.SelectedValue = "1";
|
||||
|
||||
//Permisos
|
||||
if (UsuarioActual.TienePermisoProceso(82))
|
||||
{
|
||||
|
||||
@@ -815,11 +815,16 @@ Partial Class Ventas_ClientesAbonar
|
||||
|
||||
If DtSaldo IsNot Nothing AndAlso DtSaldo.Rows.Count = 1 Then
|
||||
Dim ImporteRef As Decimal = DtSaldo.SUM("Saldo", $"CveIE={DdlIngreso.SelectedValue.ToEntero()}")
|
||||
Dim tCveMonedaIE As Integer = DtSaldo.FiltroPrimeroValor("CveMoneda", "").ToEntero
|
||||
Dim ImporteAbonar As Decimal = 0
|
||||
|
||||
Dim TC As Decimal = 1
|
||||
'comparativo.
|
||||
For Each gvr As GridViewRow In GvCxC.Rows
|
||||
If gvr.FCCheckBox("Chk").Checked Then
|
||||
ImporteAbonar += gvr.FCTextBox("TxtAbonar").Text.ToDecimal()
|
||||
TC = 1
|
||||
If tCveMonedaIE = 1 AndAlso gvr.DataKey("CveMoneda") = "2" Then TC = TxtTC.Text.ToDecimal
|
||||
If tCveMonedaIE = 2 AndAlso gvr.DataKey("CveMoneda") = "1" Then TC = 1D / TxtTC.Text.ToDecimal
|
||||
ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TC).RoundSQL(2)
|
||||
End If
|
||||
Next
|
||||
ImporteAbonar += TxtAnticipo.Text.ToDecimal()
|
||||
@@ -1067,10 +1072,10 @@ Partial Class Ventas_ClientesAbonar
|
||||
Pago.FechaDocumentoRelacionado = FechaIngreso
|
||||
Pago.CveClientePago = CveCliente
|
||||
End If
|
||||
|
||||
'Tipos de cambio
|
||||
If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
|
||||
Pago.TCPago = TxtTC.Text.ToDecimal
|
||||
Pago.ImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
|
||||
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES
|
||||
Pago.TCPago = If(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal)
|
||||
ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
|
||||
|
||||
@@ -16054,6 +16054,7 @@ Partial Class Ventas
|
||||
Dim ConceptoContableAplicar As Integer = 4
|
||||
Dim CveVentaAplicar As Integer = ObjFactura.CveVenta
|
||||
Dim CveVentaAmortizacionAplicar As Integer = -1
|
||||
Dim CondicionesPago As Integer = RBLPago.SelectedValue.ToEntero
|
||||
|
||||
If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then
|
||||
ConceptoContableAplicar = 11
|
||||
@@ -16102,7 +16103,7 @@ Partial Class Ventas
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then
|
||||
ErrorPrepoliza = True
|
||||
Else
|
||||
ViewState("SeGuardoPrePoliza") = True
|
||||
|
||||
Reference in New Issue
Block a user