Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Oscar Irigoyen
@@ -4845,7 +4845,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound"
|
||||
DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
|
||||
DataKeyNames="CveCompra,TipoCambio,CveTipoConcepto,UUID,Saldo,SerieFolio,Fecha,CveMoneda" runat="server" AutoGenerateColumns="false" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -3587,7 +3587,7 @@ Partial Class Compras_Compras
|
||||
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
|
||||
|
||||
If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
|
||||
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
|
||||
End If
|
||||
|
||||
If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes
|
||||
@@ -3608,8 +3608,8 @@ Partial Class Compras_Compras
|
||||
If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
|
||||
DdlRetISRConcepto.SelectedValueExist("1")
|
||||
End If
|
||||
|
||||
If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
|
||||
'permitido en un margen de 1% a 2%
|
||||
If (CalRetISRPor).RoundSQL(4) = 0.0125 OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
|
||||
DdlRetISRConcepto.SelectedValueExist("3")
|
||||
End If
|
||||
|
||||
@@ -3962,12 +3962,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'PARA GLUYAS
|
||||
If UsuarioActual.CveEmpresa = 66 Then
|
||||
tPSCodigo = String.Format("{1} - {0}", ValorXML(node, "descripcion").ToUpper.Trim.Replace(vbCrLf, " ").Replace(vbLf, " ").Replace("'", "''"), ValorXML(node, "noIdentificacion").Trim)
|
||||
End If
|
||||
|
||||
'Alert(ValorXML(node, "ClaveProdServ").Trim)
|
||||
|
||||
If Version = "3.3" Or Version = "4.0" Then
|
||||
@@ -4992,7 +4986,7 @@ Partial Class Compras_Compras
|
||||
CompraActual.PorcentajeIVA = PorcentajeIVA
|
||||
CompraActual.UsuarioActual = UsuarioActual
|
||||
CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
|
||||
CompraActual.IdCtaContableProv = CtaProveedor
|
||||
CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda = 1, CtaProveedor, CtaProveedorExtranjera)
|
||||
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
||||
CompraActual.EsImportacion = chkImportacion.Checked
|
||||
|
||||
@@ -7205,29 +7199,26 @@ Partial Class Compras_Compras
|
||||
'AMORTIZACIÓN EN EL REGISTRO
|
||||
For Each Gvr As GridViewRow In GvFacturaNC.Rows
|
||||
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
|
||||
'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
|
||||
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
|
||||
Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal ' RMF. falta aplicar si está generada su TC de la última fluctuación
|
||||
Dim importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
|
||||
Dim CveMonedaNC As Integer = If(TipoCambioFactura = 1, 1, 2)
|
||||
|
||||
IdCtaContable = CtaProveedorExtranjera
|
||||
'CveCon = ObtConceptoContableProvisionCompra(Gvr.DataKey("CveTipoConcepto").ToEntero, "NC", CveMonedaNC, False)
|
||||
|
||||
CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
|
||||
CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimientoNC
|
||||
Pago.CveMonedaPago = CveMonedaNC
|
||||
Pago.CveCompraAmortizacion = CveCompra
|
||||
Pago.CveConceptoPago = 272
|
||||
Pago.CveMonedaPago = CompraActual.CveMoneda
|
||||
Pago.CveCompraAmortizacion = CompraActual.CveCompra
|
||||
Pago.Referencia = CompraActual.SerieFolio
|
||||
Pago.TCPago = TipoCambioFactura
|
||||
Pago.TCPago = CompraActual.TC
|
||||
Pago.AplicaAcreditable = False
|
||||
Pago.TipoPago = "NC"
|
||||
Pago.Fecha = CompraActual.Fecha 'toma la misma fecha de la provisión en el pago de NC
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
'datos de la compra tipodocto:Fac, para sobreescribirlos
|
||||
CompraActual.CveCompra = Gvr.DataKey("CveCompra").ToEntero
|
||||
CompraActual.SerieFolio = Gvr.DataKey("SerieFolio")
|
||||
CompraActual.TC = Gvr.DataKey("TipoCambio").ToDecimal
|
||||
CompraActual.Fecha = Gvr.DataKey("Fecha").ToDate
|
||||
CompraActual.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -1631,7 +1631,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DdlProveedoresE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaComprasE(CveProveedor As Integer)
|
||||
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
|
||||
If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
|
||||
Dim ObjCompras As New ClsCompras
|
||||
|
||||
DdlComprasE.ClearSelection()
|
||||
|
||||
@@ -76,9 +76,9 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
|
||||
End If
|
||||
'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
' Response.Redirect($"/Contabilidad/RepBalanzaComprobacion.aspx")
|
||||
'End If
|
||||
|
||||
Dim ErrorParametros = True
|
||||
ModoImpresion = False
|
||||
|
||||
@@ -71,7 +71,6 @@ Partial Class OC_CatEstatus
|
||||
CargaEstatus()
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
|
||||
CargaUsuarios()
|
||||
sssss()
|
||||
|
||||
'SOLO MUESTRA SUBPROYECTO
|
||||
|
||||
@@ -89,55 +88,55 @@ Partial Class OC_CatEstatus
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub sssss()
|
||||
Dim length = 200000
|
||||
Dim concatString = ""
|
||||
Dim aaa As New StringBuilder
|
||||
Dim stopWatch = New Stopwatch()
|
||||
stopWatch.Start()
|
||||
|
||||
For i As Integer = 0 To length - 1
|
||||
concatString = concatString & i
|
||||
Next
|
||||
|
||||
stopWatch.[Stop]()
|
||||
aaa.Append($"String Concat took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
stopWatch.Reset()
|
||||
concatString = String.Empty
|
||||
stopWatch.Start()
|
||||
|
||||
For i As Integer = 0 To length - 1
|
||||
concatString = $"{concatString}a"
|
||||
Next
|
||||
|
||||
stopWatch.[Stop]()
|
||||
aaa.Append($"String Interpolation took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
stopWatch.Reset()
|
||||
concatString = String.Empty
|
||||
Dim stringBuilder = New StringBuilder()
|
||||
stopWatch.Start()
|
||||
|
||||
For i As Integer = 0 To length - 1
|
||||
stringBuilder.Append("a")
|
||||
Next
|
||||
|
||||
concatString = stringBuilder.ToString()
|
||||
stopWatch.[Stop]()
|
||||
aaa.Append($"String Builder took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
stopWatch.Reset()
|
||||
concatString = String.Empty
|
||||
|
||||
stopWatch.Start()
|
||||
|
||||
For i As Integer = 0 To length - 1
|
||||
concatString = String.Format("a{0}", i)
|
||||
Next
|
||||
|
||||
stopWatch.[Stop]()
|
||||
aaa.Append($"String.Format took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
Alert(aaa.ToString)
|
||||
|
||||
End Sub
|
||||
'Private Sub sssss()
|
||||
' Dim length = 200000
|
||||
' Dim concatString = ""
|
||||
' Dim aaa As New StringBuilder
|
||||
' Dim stopWatch = New Stopwatch()
|
||||
' stopWatch.Start()
|
||||
|
||||
' For i As Integer = 0 To length - 1
|
||||
' concatString = concatString & i
|
||||
' Next
|
||||
|
||||
' stopWatch.[Stop]()
|
||||
' aaa.Append($"String Concat took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
' stopWatch.Reset()
|
||||
' concatString = String.Empty
|
||||
' stopWatch.Start()
|
||||
|
||||
' For i As Integer = 0 To length - 1
|
||||
' concatString = $"{concatString}a"
|
||||
' Next
|
||||
|
||||
' stopWatch.[Stop]()
|
||||
' aaa.Append($"String Interpolation took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
' stopWatch.Reset()
|
||||
' concatString = String.Empty
|
||||
' Dim stringBuilder = New StringBuilder()
|
||||
' stopWatch.Start()
|
||||
|
||||
' For i As Integer = 0 To length - 1
|
||||
' stringBuilder.Append("a")
|
||||
' Next
|
||||
|
||||
' concatString = stringBuilder.ToString()
|
||||
' stopWatch.[Stop]()
|
||||
' aaa.Append($"String Builder took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
' stopWatch.Reset()
|
||||
' concatString = String.Empty
|
||||
|
||||
' stopWatch.Start()
|
||||
|
||||
' For i As Integer = 0 To length - 1
|
||||
' concatString = String.Format("a{0}", i)
|
||||
' Next
|
||||
|
||||
' stopWatch.[Stop]()
|
||||
' aaa.Append($"String.Format took: {stopWatch.ElapsedMilliseconds} ms, for {length} iterations.</br>")
|
||||
' Alert(aaa.ToString)
|
||||
|
||||
'End Sub
|
||||
|
||||
#Region "C A T A L O G O "
|
||||
Public Sub CargaDatos()
|
||||
|
||||
@@ -6488,7 +6488,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
'HABILITA LA OPCION DE DIRECCION DE ENVIO
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140) Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 72, 119, 140, 172, 173, 174) OrElse UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene FNC:161, habilita carta porte
|
||||
trDireccionEnvio.Visible = True
|
||||
CargaDireccionesEnvio()
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user