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

App_Code/ClsPaginas.vb

@@ -9632,7 +9632,7 @@ Public Class ClsPaginas
         'movimiento de pago proveedor Complementaria
         If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (ImporteME * TCValuacion - ImporteME).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=TCValuacion, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
         End If
 
@@ -10114,7 +10114,7 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoComplementaria, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteAnticipoExtranjera, CveVenta:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
 
             End If
 
@@ -10130,7 +10130,7 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 207, Pago.Referencia, Concepto, VentaActual.IdCtaContableClienteComplementaria, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 91, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 91, Pago.Referencia, Concepto, VentaActual.IdCtaContableCliente, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=VentaActual.CveVenta, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
 
             End If
 

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -102,9 +102,10 @@
                 DataKeyNames="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="150px" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>                  
-                     <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>      
-                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>                   
+                    <asp:BoundField DataField="ConceptoContable" ItemStyle-Width="250px" HeaderText="Concepto Contable" />    
+                    <asp:BoundField DataField="TipoGlobalStr" ItemStyle-Width="50px" HeaderText="Tipo Global" /> 
+                    <asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px"  HeaderText="Código Cuenta" />      
+                    <asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" />                   
                        
                     <asp:TemplateField ItemStyle-Width="49px">
                         <ItemTemplate>
@@ -231,20 +232,28 @@
                                             <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>
                                             <label for="<%= DdlConceptoGlobal.ClientID.ToString()%>">Concepto Contable: </label>
-                                        </div>
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
-                                            <label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
-                                        </div> 
-                                        <div class="form-group form-md-line-input input-iconright" id="div3" runat="server" >
-                                            <asp:DropDownList ID="DdlTipoGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server"   Width="240px" ValidationGroup="GrpModulo2" >
+                                        </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="div3" runat="server" >
+                                            <asp:DropDownList ID="DdlTipoGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" autopostback="true"  Width="240px" ValidationGroup="GrpModulo2" >
                                                 <asp:ListItem Text="Mayor" Value="1"></asp:ListItem>
                                                 <asp:ListItem Text="Desglosado" Value="2"></asp:ListItem>
                                             </asp:DropDownList>
                                             <label for="<%= DdlTipoGlobal.ClientID.ToString()%>">Tipo Global: </label>
                                         </div> 
-                                    </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">
+                                            <asp:DropDownList ID="DdlCuentaGlobal" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo2"></asp:DropDownList>
+                                            <label for="<%= DdlCuentaGlobal.ClientID.ToString()%>">Cuenta Contable: </label>
+                                        </div> 
+                                    </div>    
+                                 </div>   
                             </div>
                             <div class="modal-footer">
                                 <asp:LinkButton ID="LBAgregaGlobal" runat="server" class="btn btn-success" Text="Agregar" OnClick="LBAgregaGlobal_Click" ValidationGroup="GrpModulo2" />

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -47,12 +47,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0
         GvDatos.Columns(6).Visible = ObjConta.DtResultados.MAX("TipoGasto") <> ""
 
-
         If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then
             GvGlobal.DataSource = ObjConta.DtResultados
         End If
 
-
         ObjConta.Dispose()
         GvDatos.DataBind()
         GvGlobal.DataBind()
@@ -334,4 +332,18 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     Private Sub DdlCconceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCconceptosContables.SelectedIndexChanged
         RecargaConcepto(DdlCconceptosContables.SelectedValue.ToEntero)
     End Sub
+
+    Private Sub DdlTipoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoGlobal.SelectedIndexChanged
+        Dim Afectables As Integer = 1
+        If DdlTipoGlobal.SelectedValue = "2" Then 'cuando es detallado, que de la opción de seleccionar una de mayor y/o no afectable
+            Afectables = -1
+        End If
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentas(-1, "-1", Afectables, UsuarioActual.CveEmpresa) Then
+            DdlCuentaGlobal.DataSource = ObjConta.DtResultados.FiltraParametros("", Orderby:="Codigo")
+        End If
+        ObjConta.Dispose()
+        DdlCuentaGlobal.DataBind()
+    End Sub
 End Class

Ventas/Ventas.aspx.vb

@@ -15808,23 +15808,14 @@ Partial Class Ventas
 
                                     If CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento * gvr.DataKey("TipoCambio").ToString().ToDecimal
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     ElseIf CveMonedaVenta = 1 And gvr.DataKey("CveMoneda").ToEntero = 2 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        TC = TipoCambioFluctuacion
                                     ElseIf CveMonedaVenta = 2 And gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                         importeMovimiento = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal * gvr.FCTextBox("TxtTC" & gvr.RowIndex).Text.ToDecimal
-                                        importeMN = importeMovimiento
-                                        TC = gvr.DataKey("TipoCambio").ToString().ToDecimal
                                     End If
                                     importeMovimiento = importeMovimiento.RoundSQL
-                                    importeMN = importeMN.RoundSQL
 
                                     If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(12, CveCliente) Then
                                         If ObjConta.DtResultados.Rows.Count > 0 Then