Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JPerez
@@ -2,7 +2,6 @@
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
@@ -10,7 +9,6 @@ Imports System.Text
|
||||
Imports System.Xml
|
||||
Imports System.Xml.Xsl
|
||||
Imports System.Data
|
||||
Imports CrystalDecisions.Web
|
||||
Imports DocumentFormat.OpenXml.Wordprocessing
|
||||
Imports Org.BouncyCastle.Asn1
|
||||
Imports Org.BouncyCastle.Tls.Crypto.Impl
|
||||
@@ -134,7 +132,7 @@ Partial Class Contabilidad_ContabilidadElectronica
|
||||
Str.AppendFormat("Desc=""{0}"" ", HttpUtility.HtmlEncode(Dr("Nombre").ToString))
|
||||
Str.AppendFormat("SubCtaDe=""{0}"" ", Dr("CodigoPadre").ToString)
|
||||
Str.AppendFormat("Nivel=""{0}"" ", Dr("Nivel").ToString)
|
||||
Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "D", "G", "H"), "D", "A")) 'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora.
|
||||
Str.AppendFormat("Natur=""{0}"" ", If(Dr("Tipo").ToString.Contiene("A", "C", "E", "G", "I", "K"), "D", "A")) 'Atributo requerido para expresar la naturaleza de la cuenta o subcuenta. (D - Deudora, A - Acreedora). ( Activo = D ) ( Pasivo = A ) ( Capital = A ) ( Ingreso = A ) ( Costo = D ) ( Gasto = D ) ( Resultado Integral de Financiamiento = D y/o A ) ( Cuentas de orden = D y/o A ). Existen cuentas de Activo, Pasivo y Capital que por su naturaleza pueden presentarse de manera Deudora o Acreedora.
|
||||
Else
|
||||
Str.AppendFormat("CodAgrup=""{0}"" ", Dr("CodAgrup").ToString)
|
||||
Str.AppendFormat("NumCta=""{0}"" ", Dr("NumCta").ToString)
|
||||
@@ -274,12 +272,12 @@ Partial Class Contabilidad_ContabilidadElectronica
|
||||
objconta.Dispose()
|
||||
|
||||
If DtCuentas IsNot Nothing Then
|
||||
Dim Deudor As Decimal = DtCuentas.SUM("SaldoAD")
|
||||
Dim Acreedor As Decimal = DtCuentas.SUM("SaldoAA")
|
||||
'If Deudor <> Acreedor Then
|
||||
' Alert("los Saldos Actuales no cuadran.", TipoMensaje.MsgError)
|
||||
' Exit Sub
|
||||
'End If
|
||||
Dim Deudor As Decimal = DtCuentas.SUM("SaldoFCargo", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
|
||||
Dim Acreedor As Decimal = DtCuentas.SUM("SaldoFAbono", "CveCuenta is null") 'tomo los datos del acumulado de la balanza
|
||||
If Deudor <> Acreedor Then
|
||||
Alert(String.Format("los Saldos Actuales no cuadran. {0}-{1}", Deudor, Acreedor), TipoMensaje.MsgError)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
@@ -186,7 +186,7 @@
|
||||
</table>
|
||||
</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LbSaldoInicial" Style="white-space: pre;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
|
||||
<asp:Label ID="LbSaldoInicial" Style="padding-right: 75px;" runat="server" Text='<%# Eval("SaldoInicial", "{0:N2}")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
<ItemStyle Width="120" HorizontalAlign="Right" />
|
||||
</asp:TemplateField>
|
||||
|
||||
@@ -11,8 +11,6 @@ Imports System.IO
|
||||
Imports System.Drawing
|
||||
Imports System.Web.Services
|
||||
|
||||
|
||||
|
||||
Partial Class Contabilidad2_RepBalanzaComprobacion
|
||||
Inherits ClsPaginas
|
||||
|
||||
@@ -193,6 +191,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
|
||||
'Acomoda Deudor y Acreedor
|
||||
If e.Row.DBCampo("CveTipo") = "1" Then
|
||||
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero)
|
||||
e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
|
||||
e.Row.FCLabel("LbSaldoActual").Text = " "
|
||||
End If
|
||||
|
||||
@@ -211,19 +210,25 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
|
||||
End If
|
||||
|
||||
'Total general
|
||||
If e.Row.DBCampo("Id") = "" Then
|
||||
|
||||
If e.Row.DBCampo("CveCuenta") = "" Then
|
||||
e.Row.ControlStyle.Font.Bold = True
|
||||
e.Row.ControlStyle.Font.Size = 9
|
||||
e.Row.ControlStyle.Height = 30
|
||||
e.Row.FCLabel("LbNombre").Text = "Sumas Iguales"
|
||||
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoID").FormatoNumero, e.Row.DBCampo("SaldoIA").FormatoNumero)
|
||||
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("TotalCargos").FormatoNumero
|
||||
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("TotalAbonos").FormatoNumero
|
||||
e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right")
|
||||
e.Row.FCLabel("LbSaldoInicial").Style.Add("white-space", "pre")
|
||||
e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoICargo").FormatoNumero, e.Row.DBCampo("SaldoIAbono").FormatoNumero)
|
||||
e.Row.FCLabel("LbCargos").Text = e.Row.DBCampo("Cargos").FormatoNumero
|
||||
e.Row.FCLabel("LbAbonos").Text = e.Row.DBCampo("Abonos").FormatoNumero
|
||||
e.Row.FCLabel("LbSaldoActual").Visible = True
|
||||
e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoAD").FormatoNumero, e.Row.DBCampo("SaldoAA").FormatoNumero)
|
||||
e.Row.FCLabel("LbSaldoActual").Text = String.Format("{0} <br/>{1}", e.Row.DBCampo("SaldoFCargo").FormatoNumero, e.Row.DBCampo("SaldoFAbono").FormatoNumero)
|
||||
e.Row.FCHyperLink("HLSaldoActual").Visible = False
|
||||
Else
|
||||
If ModoImpresion Then e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text Else e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("ID"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
|
||||
If ModoImpresion Then
|
||||
e.Row.Cells(6).Text = e.Row.FCHyperLink("HLSaldoActual").Text
|
||||
Else
|
||||
e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -488,7 +488,6 @@ Partial Class Inventarios_EntradasSalidas
|
||||
End If
|
||||
End If
|
||||
|
||||
InicializaClientes()
|
||||
InicializaBitacoraTemporal()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||
@@ -514,7 +513,6 @@ Partial Class Inventarios_EntradasSalidas
|
||||
PermisoVerImportes()
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
|
||||
|
||||
TxtFecha.Enabled = False
|
||||
@@ -3941,17 +3939,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
|
||||
#Region "DDL CLIENTE / CLIENTE SUCURSAL - SELECTED INDEX CHANGED"
|
||||
Private Sub InicializaClientes()
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) AndAlso CveMovimiento <= 0 Then
|
||||
|
||||
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlClientes.DataBind()
|
||||
|
||||
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlClientes.SelectedValue = "-1"
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub ActivaClientes()
|
||||
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
DivCliente.Visible = True
|
||||
@@ -3959,10 +3947,6 @@ Partial Class Inventarios_EntradasSalidas
|
||||
'TxtDepartamentoEntrega.Text = ""
|
||||
End If
|
||||
|
||||
'If UsuarioActual.CveRol = 1 Then
|
||||
' RfvCliente.Enabled = False
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
Protected Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CambiaCliente()
|
||||
|
||||
@@ -1011,7 +1011,7 @@ Partial Class RH_Personal
|
||||
CargaOutSourcing()
|
||||
CargaDDlPersonalRefsReference()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 13 AndAlso UsuarioActual.CveRol = 1 Then
|
||||
If UsuarioActual.CveEmpresa = 13 Then 'código temporal
|
||||
CargaDTSCaracteristicas()
|
||||
CargaDatosCaracteristicas()
|
||||
End If
|
||||
|
||||
@@ -141,6 +141,7 @@ Partial Class Sistemas_CatSesiones
|
||||
GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTActivoFijos(UsuarioActual.CveEmpresa) = Nothing
|
||||
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
|
||||
GlobalDTEstadoActivoFijo() = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSATGenerales()
|
||||
|
||||
@@ -173,7 +173,7 @@
|
||||
<div class="row">
|
||||
<label class="col-md-2">Observaciones</label>
|
||||
<div class="col-md-7">
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="750" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnObs" runat="server" ClientIDMode="Static" />
|
||||
</div>
|
||||
<div class="col-md-2 input-icon">
|
||||
|
||||
@@ -1,11 +1,10 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Activities.Expressions
|
||||
Imports System.Data
|
||||
Imports DocumentFormat.OpenXml.Office.CustomUI
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Ventas_RepPedidosSTF
|
||||
Inherits ClsPaginas
|
||||
|
||||
@@ -297,6 +296,7 @@ Partial Class Ventas_RepPedidosSTF
|
||||
ObjA.IniciaTransacSQL()
|
||||
Dim TieneError As Boolean = False
|
||||
Dim StrAlerta As New StringBuilder
|
||||
Dim ActivaEnvio As Boolean = False
|
||||
|
||||
For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
|
||||
|
||||
@@ -327,10 +327,13 @@ Partial Class Ventas_RepPedidosSTF
|
||||
TieneError = True
|
||||
End If
|
||||
End If
|
||||
|
||||
If dr("CvePS").ToString.ToEntero = 1069499 Then ActivaEnvio = True
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
If drt("GastosEnvio").ToString.ToDecimal > 0 Then
|
||||
If drt("GastosEnvio").ToString.ToDecimal > 0 AndAlso ActivaEnvio Then
|
||||
Dim tCvePSEnvio As Integer = UsuarioActual.Empresa.Funcionalidad(160).ToEntero
|
||||
If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
|
||||
TieneError = True
|
||||
|
||||
@@ -9115,10 +9115,10 @@ Partial Class Ventas
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
If ModalidadEdicion Then
|
||||
e.Row.FCLinkButton("imgE").Visible = True
|
||||
e.Row.FCLinkButton("imgD").Visible = False
|
||||
'e.Row.FCLinkButton("imgD").Visible = False
|
||||
Else
|
||||
e.Row.FCLinkButton("imgE").Visible = False
|
||||
e.Row.FCLinkButton("imgD").Visible = False
|
||||
'e.Row.FCLinkButton("imgD").Visible = False
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user