Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/Modelos.vb

@@ -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

Contabilidad/CatCuentasAsignaciones.aspx

@@ -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" />

Contabilidad/CatCuentasAsignaciones.aspx.vb

@@ -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
+        If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveCuentaGlobal").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then
-            Alert("se elimino correctamente")
+            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

Inventarios/EntradasSalidas.aspx.vb

@@ -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

Nomina/Nomina.aspx

@@ -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>

Nomina/Nomina.aspx.cs

@@ -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))
             {

Ventas/ClientesAbonar.aspx.vb

@@ -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 

Ventas/Ventas.aspx.vb

@@ -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