Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -10,14 +10,16 @@ Imports System
|
||||
Imports System.IO
|
||||
Imports ADServerControl
|
||||
Imports System.Threading.Tasks
|
||||
Imports System.Diagnostics
|
||||
|
||||
Partial Class Compras_Compras
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
'Local
|
||||
|
||||
'Local
|
||||
Private Property RequiereEvaluacion() As Boolean
|
||||
Get
|
||||
Return If(IsNothing(ViewState("RequiereEvaluacion")), False, CBool(ViewState("RequiereEvaluacion")))
|
||||
@@ -754,9 +756,9 @@ Partial Class Compras_Compras
|
||||
Set(value As Boolean)
|
||||
ViewState("EsNoDeducible") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PROPIEDADES - AC NEW"
|
||||
Private Property DtPresupuestos As DataTable
|
||||
Get
|
||||
@@ -773,9 +775,9 @@ Partial Class Compras_Compras
|
||||
Set(value As Integer)
|
||||
ViewState("EjercicioAC") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PROPIEDADES REFACTURACION "
|
||||
Private Property DtRefacturacion As DataTable
|
||||
Get
|
||||
@@ -816,10 +818,10 @@ Partial Class Compras_Compras
|
||||
Set(value As ArrayList)
|
||||
ViewState("ClavesBorradas") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PROPIEDADES OC "
|
||||
Private Property TipoCambioOC As Decimal
|
||||
Get
|
||||
@@ -836,9 +838,9 @@ Partial Class Compras_Compras
|
||||
Set(value As Boolean)
|
||||
ViewState("PopUpOC") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PROPIEDADES ALMACEN" 'Charlie
|
||||
Private Property TotalAlmacen As Decimal
|
||||
Get
|
||||
@@ -856,12 +858,12 @@ Partial Class Compras_Compras
|
||||
Set(value As Decimal)
|
||||
ViewState("TotalFlete") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
'CFDi
|
||||
|
||||
'CFDi
|
||||
Private Property Serie As String
|
||||
Private Property Folio As String
|
||||
Private Property Fecha As String
|
||||
@@ -1000,10 +1002,10 @@ Partial Class Compras_Compras
|
||||
Set(value As Integer)
|
||||
ViewState("FleteImportacionOpcion") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PROPIEDADES DE TOTALES "
|
||||
Private Property SubTotalOriginal As Double
|
||||
Get
|
||||
@@ -1060,10 +1062,10 @@ Partial Class Compras_Compras
|
||||
Set(value As Boolean)
|
||||
ViewState("ActualizaTotales") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Dim DTConceptos As DataTable
|
||||
Private Property EmpresasOC As List(Of Integer)
|
||||
Get
|
||||
@@ -1585,8 +1587,8 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
'RegistraScript("ScrollVentanaAddProducto();")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "C A R G A S"
|
||||
Private Sub CargaOrdenCorte()
|
||||
Dim ObjCGame As New ClsCGame()
|
||||
@@ -1645,10 +1647,28 @@ Partial Class Compras_Compras
|
||||
If IO.File.Exists(Archivo) Then
|
||||
|
||||
Dim Validada As Boolean = True
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
|
||||
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
|
||||
Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
|
||||
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
|
||||
'verificacion doble, si no la han cancelado, ya tiene una validaci[on para que llegue aqui
|
||||
|
||||
|
||||
|
||||
|
||||
Dim SWatch As New Stopwatch
|
||||
SWatch.Start()
|
||||
Dim ts As New TimeSpan
|
||||
|
||||
|
||||
Dim Valida As New ClsValidaCFDi(dr("UUID").ToString(), dr("RFCDe").ToString, dr("RFCPara").ToString(), dr("Total").ToString.ToDecimal)
|
||||
|
||||
SWatch.Stop()
|
||||
|
||||
Dim SegundosRespuesta As Double = SWatch.ElapsedMilliseconds / 1000
|
||||
SegundosRespuesta = SegundosRespuesta.ToEntero
|
||||
|
||||
If SWatch.ElapsedMilliseconds >= 5000 Then
|
||||
Alert($"Los servicios de validacion del SAT presentan lentitud en la respuesta [{ SegundosRespuesta } s].", TipoMensaje.ToastError, "", 0)
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa < 2 Then
|
||||
Valida.EsValida = 1
|
||||
End If
|
||||
@@ -3609,9 +3629,9 @@ Partial Class Compras_Compras
|
||||
'TmpDT = DtPSTemp.Copy
|
||||
'DtPSTemp.Dispose()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Vinculacion De Servcios"
|
||||
Private Function isAdminObraGluyas() As Boolean
|
||||
Return (UsuarioActual.CveRol = 1047 And UsuarioActual.CveEmpresa = 66)
|
||||
@@ -3638,10 +3658,10 @@ Partial Class Compras_Compras
|
||||
dt.Dispose()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "BTN'S"
|
||||
Protected Sub BtnVincularServicios_Click(sender As Object, e As EventArgs) Handles BtnVincularServicios.Click
|
||||
Dim correcto As Boolean = True
|
||||
@@ -15656,9 +15676,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
UPCondicionesPago.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " ENVIA CORREO NOTICIACION - VENDEDOR "
|
||||
Private Sub MandaCorreoOCVendedores(CveCompra As Integer)
|
||||
|
||||
@@ -15863,65 +15883,65 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
'VIEJO - COMENTADO IPP 12 JULIO 2017
|
||||
'Private Sub MandaCorreo(CveCompra As Integer)
|
||||
' Dim ObjOC As New ClsOC
|
||||
' Dim DTCorreos As New DataTable
|
||||
' Dim DTFolios As New DataTable
|
||||
' Dim strBody As New StringBuilder
|
||||
|
||||
' ObjOC.GetOrdenesCompraCorreo(CveCompra)
|
||||
' DTCorreos = ObjOC.DtResultados
|
||||
|
||||
' ObjOC.GetComprasOC(CveCompra)
|
||||
' DTFolios = ObjOC.DtResultados
|
||||
|
||||
' strBody.AppendFormat("Se ha vinculado la compra <b>{0}-{1}</b> a la siguiente OC", Serie, Folio)
|
||||
' strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||
' strBody.Append("<head> ")
|
||||
' strBody.Append("</head> ")
|
||||
' strBody.Append("<body> ")
|
||||
|
||||
' 'Cargo el detalle
|
||||
' strBody.Append(" <div style='width: 550px'> ")
|
||||
' strBody.Append(" <fieldset> ")
|
||||
' strBody.Append(" <legend>Ordenes de compra</legend> ")
|
||||
' strBody.Append(" <table width=""550px""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>
|
||||
' <th scope='col' style='width: 50px'>Folio</th>
|
||||
' <th scope='col' style='width: 50px'>Tipo</th>")
|
||||
|
||||
' For Each row As DataRow In DTCorreos.Rows
|
||||
' Dim Asunto, Para, ArrayCC, Body As String
|
||||
' Asunto = "Vinculación de Factura"
|
||||
' Para = row("Correo").ToString
|
||||
' ArrayCC = ""
|
||||
|
||||
' For Each RowM As DataRow In DTFolios.Rows
|
||||
' strBody.AppendFormat("<tr class='Texto'><td style='width:50px;'>{0}</td><td style='width:50px;'>{1}</td></tr>", RowM("Folio").ToString, RowM("Tipo"))
|
||||
' Next
|
||||
|
||||
' strBody.Append(" </table> ")
|
||||
' strBody.Append(" </fieldset> ")
|
||||
' strBody.Append(" </div> ")
|
||||
' strBody.Append("</body></html>")
|
||||
|
||||
' Body = strBody.ToString
|
||||
|
||||
' ObjOC.Dispose()
|
||||
|
||||
' Dim Mail As New ClsSisMail()
|
||||
' Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
|
||||
' Next
|
||||
|
||||
'End Sub
|
||||
End Sub
|
||||
|
||||
'VIEJO - COMENTADO IPP 12 JULIO 2017
|
||||
'Private Sub MandaCorreo(CveCompra As Integer)
|
||||
' Dim ObjOC As New ClsOC
|
||||
' Dim DTCorreos As New DataTable
|
||||
' Dim DTFolios As New DataTable
|
||||
' Dim strBody As New StringBuilder
|
||||
|
||||
' ObjOC.GetOrdenesCompraCorreo(CveCompra)
|
||||
' DTCorreos = ObjOC.DtResultados
|
||||
|
||||
' ObjOC.GetComprasOC(CveCompra)
|
||||
' DTFolios = ObjOC.DtResultados
|
||||
|
||||
' strBody.AppendFormat("Se ha vinculado la compra <b>{0}-{1}</b> a la siguiente OC", Serie, Folio)
|
||||
' strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
|
||||
' strBody.Append("<head> ")
|
||||
' strBody.Append("</head> ")
|
||||
' strBody.Append("<body> ")
|
||||
|
||||
' 'Cargo el detalle
|
||||
' strBody.Append(" <div style='width: 550px'> ")
|
||||
' strBody.Append(" <fieldset> ")
|
||||
' strBody.Append(" <legend>Ordenes de compra</legend> ")
|
||||
' strBody.Append(" <table width=""550px""> <tr style='background-color:gray;color:White;font-family:Verdana;font-size:10px;text-align:center;vertical-align:middle;font-weight:bold;height:20px;text-decoration:none;'>
|
||||
' <th scope='col' style='width: 50px'>Folio</th>
|
||||
' <th scope='col' style='width: 50px'>Tipo</th>")
|
||||
|
||||
' For Each row As DataRow In DTCorreos.Rows
|
||||
' Dim Asunto, Para, ArrayCC, Body As String
|
||||
' Asunto = "Vinculación de Factura"
|
||||
' Para = row("Correo").ToString
|
||||
' ArrayCC = ""
|
||||
|
||||
' For Each RowM As DataRow In DTFolios.Rows
|
||||
' strBody.AppendFormat("<tr class='Texto'><td style='width:50px;'>{0}</td><td style='width:50px;'>{1}</td></tr>", RowM("Folio").ToString, RowM("Tipo"))
|
||||
' Next
|
||||
|
||||
' strBody.Append(" </table> ")
|
||||
' strBody.Append(" </fieldset> ")
|
||||
' strBody.Append(" </div> ")
|
||||
' strBody.Append("</body></html>")
|
||||
|
||||
' Body = strBody.ToString
|
||||
|
||||
' ObjOC.Dispose()
|
||||
|
||||
' Dim Mail As New ClsSisMail()
|
||||
' Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
|
||||
' Next
|
||||
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CIERRE PERIODO "
|
||||
Private Function ValidaCierrePeriodo() As Boolean
|
||||
'solo se permiten, mes actual, mes anterior <= #dias
|
||||
@@ -15937,9 +15957,9 @@ Partial Class Compras_Compras
|
||||
' Return True
|
||||
'End If
|
||||
'Return False
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AGREGA POR SERIE/LOTE "
|
||||
Private Sub CreaDtDetalle()
|
||||
If DtDatosDetalle Is Nothing Then
|
||||
@@ -16046,9 +16066,9 @@ Partial Class Compras_Compras
|
||||
Protected Sub GvSerie_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvSerie.RowDeleting
|
||||
DtDatosDetalle.Rows.Remove(DtDatosDetalle.Rows(e.RowIndex))
|
||||
CargaSerie()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " TIPO CAMBIO "
|
||||
Protected Sub DdlMoneda_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CambiaMoneda()
|
||||
@@ -16094,9 +16114,9 @@ Partial Class Compras_Compras
|
||||
Protected Sub BtnCambiaFechaTC_Click(sender As Object, e As EventArgs)
|
||||
LblTC.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.FormatoNumero(4)
|
||||
TxtTC.Text = GlobalTipoCambio(TxtFecha.Text.ToDate).ToString.FormatoNumero(4)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONVERTIR PESOS "
|
||||
Protected Sub BtnConvertirPesos_Click(sender As Object, e As EventArgs)
|
||||
Dim TipoCambioTemp = TxtConvertirPesos.Text.ToDouble
|
||||
@@ -16149,9 +16169,9 @@ Partial Class Compras_Compras
|
||||
|
||||
DdlMoneda.Enabled = False
|
||||
RegistraScript("$('#ModalPesos').modal('hide');")
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " TOTALES: VALIDA Y CALCULA "
|
||||
Private Sub AsignaValoresOriginales(SubTotal As Double, SubTotal2 As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Double)
|
||||
SubTotalOriginal = SubTotal
|
||||
@@ -16369,9 +16389,9 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
UpPS.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddAcarreo"))
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Historial de Modificacion"
|
||||
Private Sub CargaGvBitacora()
|
||||
' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
|
||||
@@ -16381,11 +16401,11 @@ Partial Class Compras_Compras
|
||||
GvBitacora.DataBind()
|
||||
End If
|
||||
ObjGral.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " FLETES "
|
||||
|
||||
|
||||
Private Sub CargaFletes()
|
||||
|
||||
If UsuarioActual.CveEmpresa <> 125 Or CveCompra > 0 Then
|
||||
@@ -16404,13 +16424,13 @@ Partial Class Compras_Compras
|
||||
UpFletes.Update()
|
||||
|
||||
ObjVentas.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "I M P R I M I R D E S G L O S E"
|
||||
|
||||
|
||||
Private Sub LnkExportaGv_Click(sender As Object, e As EventArgs) Handles LnkExportaGv.Click
|
||||
Dim dt As New DataTable
|
||||
dt.Columns.Add("Consecutivo", GetType(Integer))
|
||||
@@ -16434,14 +16454,14 @@ Partial Class Compras_Compras
|
||||
dt.Rows.Add(Row)
|
||||
Next
|
||||
ExportToExcel(dt, "Desglose")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
'DE AQUI PARA ABAJO SE ESTAN REORDENANDO REGIONES --- FAVOR DE SI SE MUEVE UNA COSITA O SE HACE UNA NUEVA FUNCION/METODO AGRUPARLO EN LA REGION CORRECTA O GENERAR UNA EN CASO DE NO EXISTIR
|
||||
|
||||
|
||||
|
||||
|
||||
'DE AQUI PARA ABAJO SE ESTAN REORDENANDO REGIONES --- FAVOR DE SI SE MUEVE UNA COSITA O SE HACE UNA NUEVA FUNCION/METODO AGRUPARLO EN LA REGION CORRECTA O GENERAR UNA EN CASO DE NO EXISTIR
|
||||
|
||||
|
||||
#Region " MODAL ADD PS - AGREGAR Y EDITAR PS (PARTIDA-CONCEPTO) "
|
||||
Private Sub HabilitaEdicionManualAgregar()
|
||||
If Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
|
||||
@@ -17149,9 +17169,9 @@ Partial Class Compras_Compras
|
||||
AddPS2(AplicaCalculaTotales)
|
||||
CargaGvInv()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " RECLASIFICA PARTIDAS - CLASIFICACION - SUBPROYECTO "
|
||||
Private Sub CargaClasificaciones()
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
@@ -17323,10 +17343,10 @@ Partial Class Compras_Compras
|
||||
|
||||
Alert("Los tipos de gastos han sido cambiados correctamente", TipoMensaje.MsgInformacion)
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " PS ALIAS "
|
||||
Protected Sub DdlPSAlias_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSAlias2.selectedindexchange
|
||||
If Not DdlPSAlias2.SelectedValue = "" Then
|
||||
@@ -17396,9 +17416,9 @@ Partial Class Compras_Compras
|
||||
GlobalDTProductosServiciosEquivalencias(-1, -1) = ObjPS.DtResultados
|
||||
End If
|
||||
ObjPS.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " UM: ALIAS - EQUIVALENCIAS "
|
||||
Private Sub CargarUMAlias()
|
||||
DdlUMAlias.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
|
||||
@@ -17564,12 +17584,12 @@ Partial Class Compras_Compras
|
||||
|
||||
ObjPS.Dispose()
|
||||
OjbUM.Dispose()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " COMPLEMENTOS PAGO "
|
||||
|
||||
|
||||
Private Sub CargaComplementosPago()
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
@@ -17597,11 +17617,11 @@ Partial Class Compras_Compras
|
||||
e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-ad-excel""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
|
||||
e.Row.Cells(4).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=Fact&EXT=pdf&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCde").ToString.Replace("&", "%26%"))))
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " OTROS GASTOS "
|
||||
|
||||
|
||||
Protected Sub LnkAddOtrosGastos_Click(sender As Object, e As EventArgs)
|
||||
DdlOrdenCorte.SelectedIndex = 0
|
||||
DdlOrdenCorte.SelectedValueExist(CveOrdenCorte)
|
||||
@@ -17612,18 +17632,18 @@ Partial Class Compras_Compras
|
||||
Protected Sub BtnAddOtrosGastos_Click(sender As Object, e As EventArgs)
|
||||
CveOrdenCorte = DdlOrdenCorte.SelectedValue.ToEntero()
|
||||
RegistraScript("$('#DivOtrosGastos').modal('hide');")
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
'#Region " DROPDOWN IVA "
|
||||
' 'Protected Sub DdlIVA_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' ' CalculaTotales(True)
|
||||
' 'End Sub
|
||||
'#End Region
|
||||
|
||||
|
||||
'#Region " DROPDOWN IVA "
|
||||
' 'Protected Sub DdlIVA_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' ' CalculaTotales(True)
|
||||
' 'End Sub
|
||||
'#End Region
|
||||
|
||||
#Region " APLICA NC "
|
||||
|
||||
|
||||
Private Sub InicializaAplicaNCFact()
|
||||
HLAplicaNCFact.Visible = True
|
||||
LblTotalNC.Text = TxtTotal.Text.FormatoNumero
|
||||
@@ -17651,10 +17671,10 @@ Partial Class Compras_Compras
|
||||
e.Row.FCCheckBox("ChkFacturaNC").Attributes.Add("onclick", $"FnCambiaFacturaNC({e.Row.DBCampo("Saldo").ToDouble},{e.Row.FCTextBox("TxtImporte").ClientID},{TxtTotal.Text.ToDouble},{LblAplicado.ClientID}, this);")
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " DEVOLUCION DE ALMACEN - DEVOLUCION AL PROVEEDOR "
|
||||
Private Sub InicializaDevolucionAlmacen()
|
||||
If Not GvInv.Rows.Count > 0 Or LblCompraEstatus.Text = "CANCELADA" Then
|
||||
@@ -17845,9 +17865,9 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnNCConfirmacion_Click(sender As Object, e As EventArgs)
|
||||
GuardaAnticipos(Nothing, Nothing)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " INVENTARIO: MOVIMIENTOS DE LA COMPRA "
|
||||
Private Sub InventarioMov()
|
||||
Dim ObjVentas As New ClsInventarios
|
||||
@@ -17885,11 +17905,11 @@ Partial Class Compras_Compras
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.FCLiteral("LtlImporte").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlImporte").Text.ToDouble, 2, , , TriState.True)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REGENERA PREPOLIZA "
|
||||
Protected Sub BtnRegenerarPrePolizaAlmacen_Click(sender As Object, e As EventArgs)
|
||||
'RegeneraPrePoliza()
|
||||
@@ -18154,9 +18174,9 @@ Partial Class Compras_Compras
|
||||
|
||||
ObjConta.Dispose()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ACTUALIZAR TIPO CAMBIO PREPOLIZA "
|
||||
Private Sub InicializaActualizarTC()
|
||||
If CveCompra > 0 And DdlMoneda.SelectedValue.ToEntero = 2 And CvePrePoliza > 0 Then
|
||||
@@ -18197,16 +18217,16 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PAQUETERIAS GUIAS"
|
||||
Protected Sub LnkAgregarGuia_Click(sender As Object, e As EventArgs)
|
||||
'' 25/05/2018 - Se agrega Link a Modulo Paqueterias Guias
|
||||
RegistraScript(String.Format("AbrirVentana('/General/PopUpPaqueteriasGuias.aspx?CveCompra={0}',800,620);", CveCompra))
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DEDUCCIONES IEPS / OTROS IMPUESTOS"
|
||||
Protected Sub CargaProductos(Ddl As DropDownList, CvePS As Integer)
|
||||
Ddl.DataSource = TmpDT
|
||||
@@ -18261,11 +18281,11 @@ Partial Class Compras_Compras
|
||||
Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C R E D I T O S"
|
||||
|
||||
|
||||
Private Sub ChkCreditoMultiple_CheckedChanged(sender As Object, e As EventArgs) Handles ChkCreditoMultiple.CheckedChanged
|
||||
|
||||
If ChkCreditoMultiple.Checked Then
|
||||
@@ -18346,9 +18366,9 @@ Partial Class Compras_Compras
|
||||
|
||||
UpGvCreditos.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FLETES / IMPORTACIONES"
|
||||
Private Sub CargaFolio()
|
||||
Dim ObjFolios As New ClsGralFolios
|
||||
@@ -18642,10 +18662,10 @@ Partial Class Compras_Compras
|
||||
Protected Sub DdlFleteImportacion_SelectedIndexChanged1(sender As Object, e As EventArgs)
|
||||
CambiaTipo()
|
||||
UpModalFletesImportaciones.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi) As Boolean
|
||||
|
||||
'VARIABLES
|
||||
@@ -18884,8 +18904,8 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#Region "A G R E G A R - P R O D U C T O S S E R V I C I O S"
|
||||
Private Sub CargaDatosAgregarPS()
|
||||
DdlClasificacionPS.Items.Clear()
|
||||
@@ -18939,27 +18959,27 @@ Partial Class Compras_Compras
|
||||
If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable()
|
||||
|
||||
ObjPS.Dispose()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TIPO DE COMPRA"
|
||||
|
||||
|
||||
Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub BtnFacturaNC_Click(sender As Object, e As EventArgs)
|
||||
If ChkNCInvNC.Checked Then
|
||||
CargaNCINV()
|
||||
Else
|
||||
RegistraScript("$('#FacturaNC').modal('hide');", "FacturaNC")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "ES NO DEDUCIBLE"
|
||||
Protected Sub ChkEsNoDeducible_CheckedChanged1(sender As Object, e As EventArgs)
|
||||
If ChkEsNoDeducible.Checked Then
|
||||
@@ -18992,9 +19012,9 @@ Partial Class Compras_Compras
|
||||
'TmpDT.AcceptChanges()
|
||||
AddPS2(EsNoDeducible:=EsNoDeducible)
|
||||
UpPS.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub LnkDesVincularComplemento_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
@@ -656,7 +656,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL(6) Else PorcentajePago = 1
|
||||
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL Else PorcentajePago = 1
|
||||
|
||||
If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119)) Then
|
||||
'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
|
||||
@@ -703,7 +703,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
'Agrego el IVA
|
||||
If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
|
||||
Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
End If
|
||||
@@ -984,7 +984,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL(6) Else PorcentajePago = 1
|
||||
If gvr.DataKey("Original").ToDecimal > 0 Then PorcentajePago = (ImporteMovto / gvr.DataKey("Original").ToDecimal).RoundSQL Else PorcentajePago = 1
|
||||
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, Referencia, 17, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), ImporteMX:=(ImporteMovto * tipoCambio), CveCuenta:=CveCuentaProveedor) Then
|
||||
MsgError = "Detalle"
|
||||
|
||||
@@ -82,7 +82,7 @@
|
||||
<Style />
|
||||
</TextRun>
|
||||
<TextRun>
|
||||
<Value>=Parameters!NombreCliente.Value</Value>
|
||||
<Value>=Parameters!NombreDistribuidor.Value</Value>
|
||||
<Style />
|
||||
</TextRun>
|
||||
</TextRuns>
|
||||
@@ -1933,6 +1933,12 @@
|
||||
<AllowBlank>true</AllowBlank>
|
||||
<Prompt>ReportParameter1</Prompt>
|
||||
</ReportParameter>
|
||||
<ReportParameter Name="NombreDistribuidor">
|
||||
<DataType>String</DataType>
|
||||
<Nullable>true</Nullable>
|
||||
<AllowBlank>true</AllowBlank>
|
||||
<Prompt>ReportParameter1</Prompt>
|
||||
</ReportParameter>
|
||||
</ReportParameters>
|
||||
<Language>Es-MX</Language>
|
||||
<rd:ReportUnitType>Inch</rd:ReportUnitType>
|
||||
|
||||
@@ -2805,8 +2805,8 @@
|
||||
<div class="row">
|
||||
<div class="col-md-5">
|
||||
<div >
|
||||
<label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
|
||||
<ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
|
||||
<label for="<%= DdlDistribuidor.ClientID.ToString()%>">Distribuidor:</label><br />
|
||||
<ADS:Dropdownlost ID="DdlDistribuidor" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -5018,7 +5018,7 @@ Partial Class PV
|
||||
CreaDTmpDTAjustes()
|
||||
CreaDTmpDTRecepcionUsados()
|
||||
CargaBCIAjuste()
|
||||
DdlClientes.setEsWebService(True)
|
||||
DdlDistribuidor.setEsWebService(True)
|
||||
DivChkAjuste.Visible = True
|
||||
End Sub
|
||||
|
||||
@@ -5749,22 +5749,18 @@ Partial Class PV
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
If DdlClientes.SelectedValue.ToEntero = -1 Then
|
||||
params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
|
||||
params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
|
||||
params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
|
||||
Else
|
||||
If (DdlClientes.SelectedValue.ToEntero > 0) Then
|
||||
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
|
||||
Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
|
||||
Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
|
||||
params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
|
||||
params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
|
||||
params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
|
||||
End If
|
||||
End If
|
||||
|
||||
'Informacion Distribuidor
|
||||
If (DdlDistribuidor.SelectedValue.ToEntero > 0) Then
|
||||
|
||||
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlDistribuidor.SelectedValue.ToEntero))
|
||||
Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
|
||||
Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
|
||||
params.Add(New ReportParameter("NombreDistribuidor", DdlDistribuidor.SelectedText))
|
||||
params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
|
||||
params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
|
||||
|
||||
End If
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
|
||||
params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
|
||||
@@ -5788,6 +5784,7 @@ Partial Class PV
|
||||
params.Add(New ReportParameter("TipoAuto", If(DdlPS.SelectedValue.ToEntero > 0, DtModelosAuto.FiltroPrimeroValor("Modelo", $"CveModeloAuto ={DdlModeloAuto.SelectedValue}"), "")))
|
||||
|
||||
'Informacion Consumidor
|
||||
params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
|
||||
params.Add(New ReportParameter("Direccion", LblDireccion.Text))
|
||||
|
||||
If Imagen.Exists Then
|
||||
|
||||
Reference in New Issue
Block a user