Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Rene Molina
@@ -666,12 +666,12 @@ Public Class ClsAcumuladores
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "GARANTIAS DETALLES"
|
||||
|
||||
|
||||
Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer,
|
||||
CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String,
|
||||
CveTipoDefecto As Integer, NumPoliza As String, Importe As Double,
|
||||
@@ -697,10 +697,25 @@ Public Class ClsAcumuladores
|
||||
OnError("Ocurrió un al agregar la garantia detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
End Function
|
||||
Public Function GetGarantiasDetalle(CveVenta As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
SqlDataAdapter("PA_Acum_GarantiasDetalleGet")
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
|
||||
End With
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As SqlException
|
||||
OnError("Ocurrió un al agregar la garantia detalle. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function DistribuidorMovtosAdd(CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
|
||||
CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String, Optional CveMovimiento As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -1552,7 +1552,7 @@ Public Class ClsClientes
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean
|
||||
Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_ClientesNoFrecuenteAdd")
|
||||
|
||||
@@ -1574,6 +1574,7 @@ Public Class ClsClientes
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
|
||||
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -1067,11 +1067,12 @@ Public Class ClsContPAQi
|
||||
StrSQL.Append(" CASE WHEN ISNUMERIC(c.Codigo) = 1 THEN FORMAT(CAST (c.Codigo AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.Codigo END + ' - ' + c.Nombre + ' ' AS CtaCodigo, ") 'Roberto 8/Nov/2014
|
||||
StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.Importe ELSE 0 END) AS Cargo, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.Importe ELSE 0 END) AS Abono, ")
|
||||
StrSQL.Append(" SUM (CASE WHEN mp.TipoMovto = 0 THEN mp.ImporteME ELSE 0 END) AS CargoME, SUM (CASE WHEN mp.TipoMovto = 1 THEN mp.ImporteME ELSE 0 END) AS AbonoME, ")
|
||||
StrSQL.Append(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado ")
|
||||
StrSQL.Append(" mp.TipoMovto, CASE WHEN ISNUMERIC(c.CODIGO) = 1 THEN FORMAT(CAST (c.CODIGO AS FLOAT),(SELECT REPLACE(Mascarilla,'X','0') FROM Parametros)) ELSE c.CODIGO END CuentaFormato, '' as Estado,MAX(U.Nombre) AS UsuarioRegistro ")
|
||||
StrSQL.Append(" FROM MovimientosPoliza mp ")
|
||||
StrSQL.Append(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ")
|
||||
StrSQL.Append(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ")
|
||||
StrSQL.Append(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ")
|
||||
StrSQL.Append(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ")
|
||||
StrSQL.Append(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ")
|
||||
StrSQL.Append(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ")
|
||||
StrSQL.Append(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ")
|
||||
|
||||
@@ -13,7 +13,8 @@ Imports System
|
||||
Imports System.Net
|
||||
Imports System.IO.Compression
|
||||
Imports System.Text
|
||||
|
||||
Imports System.Net.Http
|
||||
|
||||
Namespace Modelos
|
||||
|
||||
<Serializable>
|
||||
@@ -375,6 +376,7 @@ Namespace Modelos
|
||||
Me.RemisionesLista = New List(Of Integer)
|
||||
Me.ListaMensajes = New List(Of String)
|
||||
Me.FolioFiscal = ""
|
||||
Me.GenerarPDFFactura = False
|
||||
IniciaValores()
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.GetVenta(CveVenta, CveEmpresa) Then
|
||||
@@ -895,16 +897,21 @@ Namespace Modelos
|
||||
If Me.TipoDocto.Contiene("Ing", "Rem", "Ant", "Egs", "Dev", "Pd2") Then
|
||||
'If Not ImprimeAlert Then
|
||||
|
||||
Dim ArchivoIngPyMe As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.mrt", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoIng As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoRem As New System.IO.FileInfo(String.Format("{0}Formatos/Remision.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoEgs As New System.IO.FileInfo(String.Format("{0}Formatos/NotaCredito.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
If ArchivoIng.Exists Or ArchivoRem.Exists Or ArchivoIngPyMe.Exists Or ArchivoEgs.Exists Then
|
||||
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))
|
||||
Else
|
||||
MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
|
||||
If Me.GenerarPDFFactura Then
|
||||
DescargarFactura(CveVenta, CveEmpresa)
|
||||
|
||||
Dim ArchivoIngPyMe As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.mrt", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoIng As New System.IO.FileInfo(String.Format("{0}Formatos/Factura.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoRem As New System.IO.FileInfo(String.Format("{0}Formatos/Remision.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim ArchivoEgs As New System.IO.FileInfo(String.Format("{0}Formatos/NotaCredito.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
If ArchivoIng.Exists Or ArchivoRem.Exists Or ArchivoIngPyMe.Exists Or ArchivoEgs.Exists Then
|
||||
MensajeAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1", CveVenta)))
|
||||
Else
|
||||
MensajeAlert.Append("Ocurrió un error al generar el PDF. Por favor vuelva a entrar a la factura para imprimir el PDF. ")
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
'ERROR DE NO TIMBRADO
|
||||
@@ -1016,6 +1023,28 @@ Namespace Modelos
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte()
|
||||
Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
|
||||
Dim File As Byte() = Nothing
|
||||
Try
|
||||
Using httpClient = New HttpClient()
|
||||
httpClient.Timeout = New TimeSpan(0, 15, 0)
|
||||
Using request = New HttpRequestMessage(HttpMethod.Get, Url)
|
||||
request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}", CveEmpresa, DateTime.UtcNow.Ticks)))
|
||||
Dim response = httpClient.SendAsync(request).Result
|
||||
If response.StatusCode = Net.HttpStatusCode.OK Then
|
||||
File = response.Content.ReadAsByteArrayAsync().Result
|
||||
End If
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
File = Nothing
|
||||
OnError("Ocurrió un error al descargar la factura", ex)
|
||||
End Try
|
||||
|
||||
Return File
|
||||
End Function
|
||||
|
||||
#Region " GUARDAR - VENTA, PREPOLIZAS, INV, NC , ESTIMACIONES, AC, NOTA DE CRÉDITO "
|
||||
Private Function RegistrarNCAmortizacion(ObjVentas As ClsVentas, ObjConta As ClsContabilidad, ObjInventario As ClsInventarios, ObjContr As ClsContratos, ObjContPaq As ClsContPAQi, ByVal factura As Modelos.Factura, ObjBancos As ClsBancos, TmpDTconceptos As DataTable, ByRef ObjEventos As ClsOIEventos) As Boolean
|
||||
Dim ProcesoCorrecto As Boolean = True
|
||||
@@ -1758,7 +1787,6 @@ Namespace Modelos
|
||||
Private Function GuardarUsados(SqlTransaccion As SqlClient.SqlTransaction, CveVenta As Integer, ByRef ObjVentas As ClsVentas) As Boolean
|
||||
Dim Resultado As Boolean = True
|
||||
|
||||
'If ClienteEsDistribuidor Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(533).ToEntero > 0 Then
|
||||
Dim CvePSPSA As Integer = UsuarioActual.Empresa.Funcionalidad(533).ToEntero
|
||||
|
||||
@@ -1785,19 +1813,9 @@ Namespace Modelos
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Resultado = False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
ErrorList.Add("El cliente es Distribuidor y no se tiene un producto o servicio asigando como PS Acumulador")
|
||||
Resultado = False
|
||||
End If
|
||||
'Else
|
||||
' Resultado = True
|
||||
'End If
|
||||
|
||||
Return Resultado
|
||||
|
||||
@@ -8258,6 +8276,7 @@ Namespace Modelos
|
||||
|
||||
Public Property CveContratoSecciones As String
|
||||
Public Property CveEstatus As Integer
|
||||
Public Property GenerarPDFFactura As Boolean = False
|
||||
#End Region
|
||||
|
||||
End Class
|
||||
|
||||
@@ -3755,7 +3755,7 @@ Partial Class Compras_Compras
|
||||
Dim GuardaNoDeducibles As Boolean = False
|
||||
If ChkEsNoDeducible.Checked Then
|
||||
For Each Row As DataRow In TmpDT.Rows
|
||||
If Row("NoDeducible").ToString = "True" Then
|
||||
If Row("NoDeducible").ToString().ToUpper() = "TRUE" OrElse Row("NoDeducible").ToString().ToUpper() = "1" Then
|
||||
GuardaNoDeducibles = True
|
||||
End If
|
||||
Next
|
||||
@@ -4748,7 +4748,7 @@ Partial Class Compras_Compras
|
||||
CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
|
||||
RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
|
||||
IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
|
||||
IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If(Row("NoDeducible").ToString = "True" AndAlso EsNoDeducible, True, False)) Then
|
||||
IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString = "True" OrElse Row("NoDeducible").ToString = "1") AndAlso EsNoDeducible, True, False)) Then
|
||||
|
||||
ErrorDetalles = True
|
||||
Exit For
|
||||
@@ -9518,15 +9518,15 @@ Partial Class Compras_Compras
|
||||
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
|
||||
|
||||
Select Case ConceptoContable
|
||||
Case 5
|
||||
IdCtaContable = 1244
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
IdCtaContable = 1243
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
'Case 5
|
||||
' IdCtaContable = 1244
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 5, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' IdCtaContable = 1243
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, 205, Referencia, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=DdlProveedor.SelectedValue.ToEntero, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TxtTotal.Text.ToDecimal, ImporteME:=If(tipoCambioActual = 1, 0, TxtTotal.Text.ToDecimal), CveCuenta:=CveCuenta) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
Case 6
|
||||
Dim CveProveedorConcepto As Integer = 0, CveAcreedor As Integer = 0, CveIE As Integer = 0, CveColectiva As Integer = 0, CveCreditoDetalle As Integer = 0
|
||||
Dim ConceptoPersonal As String = "", Concepto As String = ""
|
||||
@@ -9815,11 +9815,11 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CargaXML"
|
||||
|
||||
|
||||
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
||||
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
||||
If o Is Nothing Then
|
||||
@@ -10024,10 +10024,10 @@ Partial Class Compras_Compras
|
||||
'End Try
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "GV'S"
|
||||
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAnticipos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -10292,9 +10292,9 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "METODOS"
|
||||
Private Sub GeneraGlobalDT(data As Object)
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
@@ -10727,66 +10727,66 @@ Partial Class Compras_Compras
|
||||
|
||||
CargarUMAlias()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALGO DE AF QUE NUNCA SE USABA "
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
'Protected Sub GVAF_RowCreated(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowCreated
|
||||
' If e.Row.RowType = DataControlRowType.DataRow AndAlso (e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal) Then
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataSource = TmpDTTiposAF
|
||||
' e.Row.FCDropDownList("DdlTipoActivoFijo").DataBind()
|
||||
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").DataBind()
|
||||
' e.Row.FCDropDownList("DdlSubTipoActivoFijo").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
|
||||
' e.Row.FCDropDownList("DdlAF").DataSource = Nothing
|
||||
' e.Row.FCDropDownList("DdlAF").DataBind()
|
||||
' e.Row.FCDropDownList("DdlAF").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVAF_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAF.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(20)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(140)
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(250)
|
||||
' End If
|
||||
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs)
|
||||
' Dim Array() As String = Nothing
|
||||
' Dim DdlGVSubTipoAF As DropDownList = Nothing
|
||||
|
||||
' Array = DirectCast(sender, DropDownList).ClientID.Split("_"c)
|
||||
' If Array.Length > 0 Then
|
||||
' DdlGVSubTipoAF = DirectCast(GVAF.Rows(Array(3).ToEntero).Controls(4).Controls(1), DropDownList)
|
||||
' End If
|
||||
|
||||
' If DdlGVSubTipoAF IsNot Nothing Then CargaSubTipoAF(DirectCast(sender, DropDownList), DdlGVSubTipoAF)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvOCC2_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOCC2.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.Cells(0).Text = (e.Row.RowIndex + 1).ToString
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub chkFuncionariosEmpleados_CheckedChanged(sender As Object, e As EventArgs) Handles chkFuncionariosEmpleados.CheckedChanged
|
||||
' PnlPagoContado.Visible = Not chkFuncionariosEmpleados.Checked
|
||||
' PnlFuncionarioEmpleado.Visible = chkFuncionariosEmpleados.Checked
|
||||
' UPCondicionesPago.Update()
|
||||
'End Sub
|
||||
Protected Sub BtnOCAceptar_Click(sender As Object, e As EventArgs) Handles BtnOCAceptar.Click
|
||||
'carga la OC
|
||||
Dim CveOC As Integer = -1
|
||||
@@ -10823,45 +10823,45 @@ Partial Class Compras_Compras
|
||||
|
||||
'UpnAF.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "Estimaciones"
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CargaDatosEstimaciones(pCveProveedor As Integer)
|
||||
' Dim Con As New ClsContratos
|
||||
' If Con.GetEstimaciones(pCveProveedor, -1, -1, -1, -1, 0, UsuarioActual.CveEmpresa) Then
|
||||
' GVEst.DataSource = Con.DtResultados
|
||||
' GVEst.DataBind()
|
||||
|
||||
' End If
|
||||
' UPEstimaciones.Update()
|
||||
' Con.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEst.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' e.Row.Cells(0).Width = Unit.Pixel(30)
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(30) 'Seccion
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(300) 'SubSeccion
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Cantidad
|
||||
' End If
|
||||
|
||||
' If e.Row.DBCampo("RazonSocial") = "" Then
|
||||
' e.Row.CssClass = "Totales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Contrato") = "" Then
|
||||
' e.Row.CssClass = "SubTotales2" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Seccion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales" : e.Row.Height = 25
|
||||
' ElseIf e.Row.DBCampo("Clasificacion") = "" Then
|
||||
' e.Row.CssClass = "SubTotales3" : e.Row.Height = 25
|
||||
' End If
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
Private Sub CargaGvInv()
|
||||
|
||||
@@ -11178,11 +11178,11 @@ Partial Class Compras_Compras
|
||||
|
||||
UpAlmacenEvidencia.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "PESTAÑA INFORMACION GENERAL DE BANCO IE"
|
||||
|
||||
|
||||
Private Sub CargaTipoTransaccion()
|
||||
DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'")
|
||||
DdlTipoTransaccion.DataBind()
|
||||
@@ -11203,52 +11203,52 @@ Partial Class Compras_Compras
|
||||
DdlCuentaCaja.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros(String.Format("CveTipoCuenta = 1"))
|
||||
DdlCuentaCaja.DataBind()
|
||||
DdlCuentaCaja.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "FINANCIAMIENTO - AC"
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Private Sub CreaDtAC()
|
||||
' DtAC = New DataTable
|
||||
' DtAC.Columns.Add("IdCuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Cuenta", GetType(String))
|
||||
' DtAC.Columns.Add("Saldo", GetType(String))
|
||||
'End Sub
|
||||
'Protected Sub CargaGvAc(Optional datos As DataTable = Nothing)
|
||||
' If UsuarioActual.Empresa.UsaAC Then
|
||||
' GvAC.DataBind()
|
||||
' GvAC.DataSource = If(datos IsNot Nothing, datos, DtAC)
|
||||
' GvAC.DataBind()
|
||||
|
||||
' Dim Total As Double = GvAC.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("PorDevengar").ToDouble)
|
||||
|
||||
' Lbtotalsaldo.Text = Total.ToString.FormatoNumero
|
||||
' UPPM.Update()
|
||||
' PnlAC.Visible = True
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaAC()
|
||||
' Dim Cont As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
|
||||
' If Cont.GetACSaldos(UsuarioActual.Empresa.EjercicioActual, 2) Then
|
||||
' DtAC = Cont.DtResultados.Copy.FiltraParametros("PorDevengar > 0")
|
||||
' Else
|
||||
' Alert("Ocurrio un error al cargar los Presupuestos. Por favor vuelva a cargar la pagina")
|
||||
' End If
|
||||
|
||||
' Cont.Dispose()
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvAC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAC.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", String.Format("ValidaImporte(this,{0});", e.Row.DBCampo("PorDevengar")))
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - PERSONAL"
|
||||
Private Sub CargaGvPersonal()
|
||||
GvPersonal.DataSource = TmpDT
|
||||
@@ -11419,13 +11419,13 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB - ACTIVOS FIJOS -AF"
|
||||
Protected Sub CargarGvActivosFijos(sender As Object, e As EventArgs)
|
||||
Tab.ActiveTabIndex = 3
|
||||
@@ -11655,58 +11655,58 @@ Partial Class Compras_Compras
|
||||
End Sub
|
||||
Protected Sub BtnAFMedida_Click(sender As Object, e As EventArgs)
|
||||
TmpDT(HdnIndexTmpDT.Value.ToEntero)("AFMedida") = HdnTxtAFMedida.Value
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "C O N T R A T O S"
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
'Protected Sub ImgBtnBuscarContrato_Click(sender As Object, e As ImageClickEventArgs) Handles ImgBtnBuscarContrato.Click
|
||||
' If CveProveedor <= 0 Then
|
||||
' Alert("Debe de Seleccionar un proveedor")
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' RegistraScript(String.Format("AbrirVentana('/Contratos/PopUpBuscarContrato.aspx?V=VCCOMP',730,300,'N');"))
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato(sender As Object, e As EventArgs)
|
||||
' CargaVContrato2(HdnVCveContrato.Value)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub CargaVContrato2(CveContrato As String)
|
||||
' If TxtContrato.Text <> "" Then
|
||||
' Dim ObjContratos As New ClsContratos
|
||||
' Dim DTContratosTemp As DataTable = Nothing
|
||||
|
||||
' GvContratos1.DataSource = TmpDT
|
||||
' GvContratos1.DataBind()
|
||||
' UPGVContratos1.Update()
|
||||
|
||||
' Dim ArrayCveContratos As String() = HdnVCveContrato.Value.Split(New Char() {","c})
|
||||
' For i As Integer = 1 To ArrayCveContratos.Count
|
||||
' If ObjContratos.GetContratosDetalle(ArrayCveContratos(i - 1).ToEntero) Then
|
||||
' If IsNothing(DTContratosTemp) Then
|
||||
' DTContratosTemp = ObjContratos.DtResultados.Copy
|
||||
' Else
|
||||
' DTContratosTemp.Merge(ObjContratos.DtResultados)
|
||||
' End If
|
||||
' Else
|
||||
' Alert("Ocurrio un ERROR al cargar el Contrato")
|
||||
' DTContratosTemp.Rows.Clear()
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' GvContratos2.DataSource = DTContratosTemp
|
||||
' GvContratos2.DataBind()
|
||||
' UPGVContratos2.Update()
|
||||
|
||||
' ObjContratos.Dispose()
|
||||
' End If
|
||||
'End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "TAB ALMACEN - INVENTARIOS ISRAEL PIÑA - 5 FEBRERO 2015"
|
||||
|
||||
|
||||
Protected Sub CalculaTotalPorDevengar()
|
||||
Dim total = TxtTotal.Text.ToDouble
|
||||
For Each Gvr As GridViewRow In GvInv.Rows
|
||||
@@ -11720,10 +11720,10 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub CambiaTotalDevengar(sender As Object, e As EventArgs)
|
||||
CalculaTotalPorDevengar()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " AJUSTA IMPORTES "
|
||||
Private Sub AjustaImporteUltimoConcepto(ImporteAjuste As Decimal, Optional EsCarga As Boolean = False)
|
||||
'Dim TempSubTotal = TxtSubTotal.Text.ToDouble
|
||||
@@ -11822,9 +11822,9 @@ Partial Class Compras_Compras
|
||||
GvPS.DataBind()
|
||||
UpPS.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "DDL'S"
|
||||
Protected Sub DdlCredito_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCredito.SelectedIndexChanged
|
||||
CargaCreditosDetalle(DdlCredito.SelectedValue.ToEntero)
|
||||
@@ -12053,9 +12053,9 @@ Partial Class Compras_Compras
|
||||
RVDocumentoImporteFE.MaximumValue = saldo.ToString
|
||||
UPCondicionesPago.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "CHK'S"
|
||||
Protected Sub RBLCajaChica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLCajaChica.SelectedIndexChanged
|
||||
Select Case RBLCajaChica.SelectedValue
|
||||
@@ -12277,9 +12277,9 @@ Partial Class Compras_Compras
|
||||
ElseIf RblRembolso.SelectedValue.ToEntero = 2 Then
|
||||
TrRembolsoCajaChica.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "ARMONIZACION CONTABLE - AC - SIMPLIFICADO"
|
||||
Private Sub CargaPresupuestosEgresos(Optional CargaTodo As Boolean = True)
|
||||
|
||||
@@ -12543,10 +12543,10 @@ Partial Class Compras_Compras
|
||||
EjercicioAC = Ejercicio
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "E V E N T O - B I T A C O R A"
|
||||
Protected Sub GVEventoBitacora_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEB.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
@@ -12643,9 +12643,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
ObjEventoBitacora.Dispose()
|
||||
GvEB.DataBind()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " C O N T A B I L I D A D "
|
||||
Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
|
||||
'Alert("Hola entre", TipoMensaje.MsgError)
|
||||
@@ -13034,10 +13034,10 @@ Partial Class Compras_Compras
|
||||
If Not ErrorCompra Then
|
||||
CargaCompra()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REEMBOLSOS NO USA AC "
|
||||
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
|
||||
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
|
||||
@@ -13051,13 +13051,13 @@ Partial Class Compras_Compras
|
||||
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
|
||||
End If
|
||||
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ALMACEN "
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CONSIGNACIONES "
|
||||
Protected Sub ChkConsignacion_CheckedChanged(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -13327,13 +13327,13 @@ Partial Class Compras_Compras
|
||||
BtnGuardar.Enabled = True
|
||||
UpFacturar.Update()
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " ***** Devoluciones INV ***** "
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
|
||||
'*se envia true si hubo un error*'
|
||||
|
||||
Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Double, Fecha As Date) As Boolean
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim CveAlmacen As Integer
|
||||
@@ -13530,9 +13530,9 @@ Partial Class Compras_Compras
|
||||
ImgBtnBuscarOC.Visible = False
|
||||
UpParametros.Update()
|
||||
UpPSS.Update()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " REFACTURACION "
|
||||
Private Sub ValidaRefacturacion()
|
||||
If Not CveCompra > 0 AndAlso DdlTipoComprobante.SelectedValue = "Fac" And UsuarioActual.Empresa.CvePlataforma <> 2 Then
|
||||
@@ -13766,10 +13766,10 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Return ErrorBitacora
|
||||
End Function
|
||||
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " CANCELAR COMPRA "
|
||||
Private Sub ValidaCancelarCompra()
|
||||
If UsuarioActual.TienePermisoProceso(140) Then
|
||||
@@ -14048,10 +14048,10 @@ Partial Class Compras_Compras
|
||||
DivValesCombustible.Visible = True
|
||||
RegistraScript(String.Format("$('#{0}').modal('show')", DivValesCombustible.ClientID))
|
||||
UPPValesCombustible.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VALES COMBUSTIBLES "
|
||||
Protected Sub BtnValesVincular_Click(sender As Object, e As EventArgs)
|
||||
IdVale = New List(Of Integer)
|
||||
@@ -14071,9 +14071,9 @@ Partial Class Compras_Compras
|
||||
' Alert(cve.ToString)
|
||||
'Next
|
||||
End If
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region " VINCULAR OC "
|
||||
Private Sub InicializaOC()
|
||||
'BORRAR OC
|
||||
@@ -15106,11 +15106,11 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
Alert($"El concepto <b>{PS}</b> tiene especificada la cantidad <b>{Cantidad}</b> pero un costo de cero ($0). <br/><br/> <b>En caso de vincular la OC de esta manera la cantidad especificada sera considerada como recibida.</b> <br/><br/> De ser correcto Continue o de lo contrario rectifique.", TipoMensaje.MsgAdvertencia)
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "F L E T E S Y S E R V I C I O S"
|
||||
|
||||
|
||||
Public Sub CreaDTFacturas()
|
||||
|
||||
Dim dt As New DataTable
|
||||
@@ -18959,11 +18959,11 @@ Partial Class Compras_Compras
|
||||
Dim gvr As GridViewRow = CType(Chk.BindingContainer, GridViewRow)
|
||||
|
||||
For Each drt As DataRow In TmpDT.Select("Consec = " & gvr.RowIndex + 1)
|
||||
|
||||
drt("NoDeducible") = Chk.Checked
|
||||
Next
|
||||
|
||||
TmpDT.AcceptChanges()
|
||||
Alert((TmpDT.Select("Consec = " & gvr.RowIndex + 1)(0))("NoDeducible").ToString())
|
||||
AddPS2(EsNoDeducible:=EsNoDeducible)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1099,10 +1099,10 @@
|
||||
<Paragraph>
|
||||
<TextRuns>
|
||||
<TextRun>
|
||||
<Value />
|
||||
<Value>=Fields!UsuarioRegistro.Value</Value>
|
||||
<Style>
|
||||
<FontFamily>calibri</FontFamily>
|
||||
<FontSize>8pt</FontSize>
|
||||
<FontSize>1pt</FontSize>
|
||||
<Color>White</Color>
|
||||
</Style>
|
||||
</TextRun>
|
||||
@@ -1120,6 +1120,7 @@
|
||||
<PaddingBottom>1pt</PaddingBottom>
|
||||
</Style>
|
||||
</Textbox>
|
||||
<rd:Selected>true</rd:Selected>
|
||||
</CellContents>
|
||||
</TablixCell>
|
||||
<TablixCell>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -197,6 +197,22 @@ Partial Class Inventarios_RecepcionUsados
|
||||
Set(value As Integer)
|
||||
ViewState("FolioAsignado") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveRemisionRecibida As Integer
|
||||
Get
|
||||
Return IfNull(ViewState("CveRemisionRecibida"), -1, CType(ViewState("CveRemisionRecibida"), Integer)).ToString().ToEntero()
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveRemisionRecibida") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property EsDistribuidor As Boolean
|
||||
Get
|
||||
Return CBool(IfNull(ViewState("EsDistribuidor"), False, CBool(ViewState("EsDistribuidor"))))
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("EsDistribuidor") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
@@ -270,6 +286,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
CreaDT()
|
||||
CargaCombos()
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
TxtFechaPendientes.Text = Now.ToShortDateString
|
||||
RVFecha.MaximumValue = Now.ToShortDateString
|
||||
InicializaClientes()
|
||||
|
||||
@@ -298,6 +315,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaSubProyectosUsados()
|
||||
InicializaBitacoraTemporal()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||
@@ -506,9 +524,31 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End Sub
|
||||
Private Sub CargaSubProyectos()
|
||||
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
|
||||
DdlSubProyecto.DataBind()
|
||||
DdlSubProyecto.DataBind()
|
||||
|
||||
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyectosUsados()
|
||||
If UsuarioActual.CveEmpresa = 140 Then
|
||||
DivRecepcionUsados.Visible = True
|
||||
|
||||
If Not UsuarioActual.TienePermisoProceso(190) Then
|
||||
'CARGA SOLO LAS SUCURSALES DE LOS ALMCENES QUE TIENE ASIGNADO EL USUARIO
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
If ObjInventarios.GetSucursalesAlmacenUsuario(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
DdlSubProyectos.DataSource = ObjInventarios.DtResultados
|
||||
End If
|
||||
ObjInventarios.Dispose()
|
||||
Else
|
||||
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
End If
|
||||
DdlSubProyectos.DataBind()
|
||||
DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub CargaPersonal()
|
||||
TrPersonal.Visible = True
|
||||
Dim dt As DataTable = Nothing
|
||||
@@ -940,16 +980,12 @@ Partial Class Inventarios_RecepcionUsados
|
||||
|
||||
End Sub
|
||||
Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
|
||||
|
||||
|
||||
|
||||
|
||||
If GvM.Rows.Count > 0 Then
|
||||
|
||||
'Dim CveMovimiento As Integer
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL())
|
||||
|
||||
Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL())
|
||||
|
||||
Dim ErrorMovInv As Boolean = False
|
||||
Dim ErrorAC As Boolean = False
|
||||
@@ -978,9 +1014,12 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
Dim tCveProveedor As Integer = -1
|
||||
If DdlProveedor.SelectedValue.ToEntero > 0 Then tCveProveedor = DdlProveedor.SelectedValue.ToEntero
|
||||
|
||||
Dim CveVenta As Integer = -1
|
||||
If CveRemisionRecibida > 0 Then
|
||||
CveVenta = CveRemisionRecibida
|
||||
End If
|
||||
'Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.ToDate, $" {TxtObservaciones.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
|
||||
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1,
|
||||
CveMovimiento = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta,
|
||||
CveSubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero,
|
||||
Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text,
|
||||
PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor)
|
||||
@@ -1007,23 +1046,31 @@ Partial Class Inventarios_RecepcionUsados
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not ObjVentas.UpdateVentaUsadoRecibido(CveRemisionRecibida, Dr("CvePS").ToString.ToEntero, True) Then
|
||||
Mensaje = "Error al actualizar el recibo de los usados"
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2)
|
||||
|
||||
|
||||
If RBLOpcion.SelectedValue.ToEntero <> 3 Then
|
||||
|
||||
If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, -1, UsuarioActual.CveUsuario,
|
||||
UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
|
||||
|
||||
|
||||
'CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
|
||||
'CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String
|
||||
|
||||
Mensaje = "Error al guardar Movimientos de distribuidor"
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
If EsDistribuidor Then
|
||||
If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, -1, UsuarioActual.CveUsuario,
|
||||
UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then
|
||||
|
||||
|
||||
'CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
|
||||
'CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String
|
||||
|
||||
Mensaje = "Error al guardar Movimientos de distribuidor"
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
@@ -1091,11 +1138,11 @@ Partial Class Inventarios_RecepcionUsados
|
||||
Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " ADD INVENTARIO INICIAL "
|
||||
Protected Sub BtnCodigoBarras_Click(sender As Object, e As EventArgs)
|
||||
|
||||
@@ -1931,6 +1978,64 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
SiguienteFolio()
|
||||
UpGenerales.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultarPendientes_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetVentasUsados(-1, DdlSubProyectos.SelectedValue.ToEntero(), TxtFechaPendientes.Text.ToDateTime(), UsuarioActual.CveEmpresa) Then
|
||||
GVPendientes.DataSource = ObjVentas.DtResultados
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
GVPendientes.DataBind()
|
||||
|
||||
UpGenerales.Update()
|
||||
End Sub
|
||||
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
|
||||
DtMovimientos.Rows.Clear()
|
||||
|
||||
Me.CveRemisionRecibida = -1
|
||||
Me.CveRemisionRecibida = CType(CType(sender, LinkButton).NamingContainer, GridViewRow).DataKey("CveVenta").ToEntero()
|
||||
|
||||
|
||||
Dim DtUsados As DataTable = Nothing
|
||||
Dim CveCliente As Integer = -1
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetVenta(CveRemisionRecibida, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
EsDistribuidor = CBool(ObjVentas.DtResultados.Rows(0)("EsDistribuidor").ToString())
|
||||
CveCliente = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString().ToEntero()
|
||||
End If
|
||||
|
||||
If EsDistribuidor Then
|
||||
DivCliente.Visible = True
|
||||
Else
|
||||
DivCliente.Visible = False
|
||||
End If
|
||||
DdlClientes.SelectedValueExist(CveCliente)
|
||||
|
||||
If ObjVentas.GetVentasUsadosDetalle(CveRemisionRecibida) Then
|
||||
DtUsados = ObjVentas.DtResultados.Copy()
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If DtUsados IsNot Nothing Then
|
||||
For Each RowUsado As DataRow In DtUsados.Rows
|
||||
Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
|
||||
|
||||
Dim RowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0) '.FiltroPrimeroValor("CveTamaño", $"CvePS = { DdlProducto2.SelectedValue.ToEntero }").ToEntero
|
||||
Dim CveTamaño As Integer = RowPS("CveTamaño").ToString().ToEntero()
|
||||
|
||||
Dim PS As String = RowPS("PS").ToString()
|
||||
Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
|
||||
Dim UM As String = RowPS("UnidadMedida").ToString()
|
||||
Dim Cantidad As Double = RowUsado("Cantidad").ToString().ToEntero()
|
||||
Dim PU As Double = RowUsado("PU").ToString().ToDouble()
|
||||
|
||||
AddNew(CvePS, PS, CveUM, UM, Cantidad, PU, "", "-1", "-1", "-1", "", "", "", DdlAlmacen.SelectedValue.ToEntero, DdlAlmacen.SelectedItem.Text, "", CveTamaño)
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
UpGenerales.Update()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
21
LogMail.txt
21
LogMail.txt
@@ -4,23 +4,4 @@
|
||||
28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80
|
||||
|
||||
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'x@x.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' - CCP: '' - Adjuntos: 1
|
||||
|
||||
02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx' - Para:'japmx95@gmail.com' - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-23' - CCP: '' - Adjuntos: 1
|
||||
|
||||
05/09/2019:11:02 a. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
|
||||
- Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
|
||||
en System.Net.Mail.SmtpClient.Send(MailMessage message)
|
||||
en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
|
||||
|
||||
05/09/2019:12:31 p. m. From:'signotificaciones@adssistemas.mx' - Para:';' - Asunto:'Envío de complemento de pago' - CCP: '' - Adjuntos: 2
|
||||
- Ocurrió un error al mandar correo.System.InvalidOperationException: Se debe especificar un destinatario.
|
||||
en System.Net.Mail.SmtpClient.Send(MailMessage message)
|
||||
en ClsSisMail.FinalSend(Mail ObjMail) en C:\inetpub\WWWSIGIT\App_Code\ClsSisMail.vb:línea 129
|
||||
|
||||
10/09/2019:12:16 p. m. From:'signotificaciones@adssistemas.mx' - Para:'DSDDS@hotmail.com' - Asunto:'SIG - La Orden Compra #26598 cambió de estatus.' - CCP: '' - Adjuntos: 0
|
||||
|
||||
10/09/2019:02:58 p. m. No se especifico a remitente - SIG - La Orden Compra #28107 cambió de estatus.
|
||||
|
||||
11/09/2019:11:56 a. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'Solicitud Vacaciones ' - CCP: '' - Adjuntos: 0
|
||||
|
||||
11/09/2019:12:35 p. m. From:'signotificaciones@adssistemas.mx' - Para:'antonio.gonzalez@adssistemas.mx' - Asunto:'(Vacaciones:Permisos) Asistencia Técnica AD Sistemas' - CCP: '' - Adjuntos: 0
|
||||
|
||||
@@ -4,6 +4,10 @@
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.columnaUsuarios{
|
||||
text-align:left;
|
||||
font-weight:bold;
|
||||
}
|
||||
.Widthall {
|
||||
width: 100% !important;
|
||||
}
|
||||
@@ -131,13 +135,13 @@
|
||||
<asp:GridView ID="Prueba" GridLines="None" CssClass="table table-striped table-advance table-hover" Width="100%" runat="server" AutoGenerateColumns="false" DataKeyNames="CveUsuario" EmptyDataText="No se encontraron Usuarios Registrados" ToolTip="Listado de Usuarios" Style="text-align: center">
|
||||
<HeaderStyle VerticalAlign="Middle" />
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<%--<asp:TemplateField>
|
||||
<HeaderTemplate>Estatus</HeaderTemplate>
|
||||
<ItemStyle Width="150px" BorderStyle="None" />
|
||||
<ItemTemplate>
|
||||
<asp:Label Font-Bold="true" Style="text-align: left" Width="250px" ID="LblUsuario" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</asp:TemplateField>--%>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
<div style="width: 100%; text-align: center">
|
||||
|
||||
@@ -105,7 +105,8 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
|
||||
If HdnModalidad.Value = "I" Then
|
||||
If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDatos()
|
||||
'CargaDatos()
|
||||
Alert("Estatus agregado")
|
||||
End If
|
||||
Else
|
||||
If HdnID.Value.ToEntero <> -1 Then
|
||||
@@ -116,21 +117,22 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
|
||||
If Not TieneError Then
|
||||
GvDatos.EditIndex = -1
|
||||
CargaDatos()
|
||||
'CargaDatos()
|
||||
Alert("Estatus actualizado")
|
||||
Else
|
||||
Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
CargaDatos()
|
||||
|
||||
ObjEstatusOrdenServicios.Dispose()
|
||||
'CargaDatos()
|
||||
'AsociarEstatusUsuarios()
|
||||
'CargarUsuarioConEstatus()
|
||||
'UpDatos.Update()
|
||||
'UpPrueba.Update()
|
||||
Alert("Estatus agregado")
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
|
||||
Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
EstatusUsuariosGridActualizar()
|
||||
AsociarEstatusUsuarios()
|
||||
CargarUsuarioConEstatus()
|
||||
UpDatos.Update()
|
||||
UpPrueba.Update()
|
||||
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
End Sub
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
@@ -168,9 +170,13 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End If
|
||||
|
||||
ObjEstatusOrdenServicios.Dispose()
|
||||
'CargaDatos()
|
||||
'UpDatos.Update()
|
||||
Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
EstatusUsuariosGridActualizar()
|
||||
AsociarEstatusUsuarios()
|
||||
CargarUsuarioConEstatus()
|
||||
UpPrueba.Update()
|
||||
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
|
||||
End Sub
|
||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||
Dim ObjEstatusOrdenServicios As New ClsOS
|
||||
@@ -208,9 +214,11 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End Sub
|
||||
|
||||
Private Sub CargarUsuarioConEstatus()
|
||||
'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
|
||||
' Prueba.Columns.RemoveAt(Contador)
|
||||
'Next
|
||||
Dim nombresUsuarios As New BoundField
|
||||
nombresUsuarios.DataField = "Nombre"
|
||||
nombresUsuarios.HeaderText = "Usuario"
|
||||
nombresUsuarios.ItemStyle.CssClass = "columnaUsuarios"
|
||||
Prueba.Columns.Add(nombresUsuarios)
|
||||
For Each Estatus As DataRow In DtEstatusOS.Rows
|
||||
Dim test As New CheckBoxField
|
||||
test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
|
||||
@@ -268,5 +276,13 @@ Partial Class OS_CatEstatusOrdenServicio
|
||||
End If
|
||||
objEstatusOC.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub EstatusUsuariosGridActualizar()
|
||||
DtEstatusUsuariosAsociados = Nothing
|
||||
Prueba.DataBind()
|
||||
For Contador As Integer = (Prueba.Columns.Count - 1) To 0 Step -1
|
||||
Prueba.Columns.RemoveAt(Contador)
|
||||
Next
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
|
||||
@@ -394,7 +394,7 @@ Partial Class Ventas_ClientesAbonar
|
||||
Private Function CargaCliente(tCveCliente As Integer, tCveMoneda As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Dim ObjCliente As New ClsClientes()
|
||||
If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
If ObjCliente.GetClientes(tCveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
Retorno = True
|
||||
CargaCuentas()
|
||||
|
||||
@@ -202,7 +202,7 @@
|
||||
<div class="caption font-green">
|
||||
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact&TipoCliente=2', 800, 547, 'N', 'PopUpBuscar')">Cliente: </a></span>
|
||||
<span class="caption-subject bold uppercase"><a id="HlCliente" href="javascript:void(0);" runat="server" class="Texto" onclick="javascript:AbrirVentana('/Ventas/PopUpBuscarClientes.aspx?Opt=Fact&TipoCliente=-1', 800, 547, 'N', 'PopUpBuscar')">Cliente: </a></span>
|
||||
<asp:LinkButton ID="LnkAgregarCliente" runat="server" AlternateText="Agregar Cliente" Text="<i class='fa fa-plus-square'></i>" />
|
||||
<asp:TextBox ID="TxtCodigo" runat="server" AutoPostBack="true" BorderStyle="None" Width="65px"></asp:TextBox>
|
||||
<asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
|
||||
@@ -338,7 +338,6 @@
|
||||
<asp:ListItem Value="Ing" Text="Ingresos" Selected="True"></asp:ListItem>
|
||||
<asp:ListItem Value="Ant" Text="Anticipos"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
|
||||
</td>
|
||||
<%--<td id="TdReferencia" runat="server" style="display: none;"> Ref: <asp:TextBox ID="TxtDocto" runat="server" ToolTip="Referencia (Número de factura original)" Width="40px"></asp:TextBox></td>--%>
|
||||
<td runat="server" id="TdOrdenPago" visible="false">
|
||||
@@ -1208,7 +1207,7 @@
|
||||
<ajax:FilteredTextBoxExtender ID="FTBECambio" runat="server" TargetControlID="TxtCambio" FilterType="Custom, Numbers" ValidChars=".," />
|
||||
<br></br>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
@@ -1503,7 +1502,7 @@
|
||||
<asp:Literal ID="LtlRecepcionUsados" Text="Recepcion Usados" runat="server"> </asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:GridView ID="GvRecepcionUsados" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
|
||||
<asp:GridView ID="GvRecepcionUsadosModal" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="100%" data-sort="true" AutoGenerateColumns="False"
|
||||
DataKeyNames="CvePSCargo,CveUM,Cargo">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="CodigoPS" HeaderText="Producto/Servicio" ItemStyle-HorizontalAlign="Left" />
|
||||
@@ -2620,7 +2619,7 @@
|
||||
<asp:HiddenField ID="HdnPorcentajeIEPS" runat="server" Value="-1" />
|
||||
<asp:HiddenField ID="HdnCvePS" runat="server" Value="-1" />
|
||||
|
||||
<div class="row">
|
||||
<div class="row" runat="server" visible="false">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged">
|
||||
@@ -2643,7 +2642,7 @@
|
||||
<br />
|
||||
<asp:UpdatePanel runat="server" ID="UpUnidadMedida" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<div runat="server" visible="false" class="form-group form-md-line-input input-iconright">
|
||||
<asp:DropDownList ID="DdlUnidadMedida" AppendDataBoundItems="true" CssClass="form-control input-sm select2me " runat="server" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Style="width: 100%;"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVUnidadMedida" runat="server" ControlToValidate="DdlUnidadMedida" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de Medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEUnidadMedida" runat="server" HighlightCssClass="vco" TargetControlID="RFVUnidadMedida" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
@@ -2653,12 +2652,30 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<br />
|
||||
<div>
|
||||
<label>Observación:</label>
|
||||
<br />
|
||||
<asp:TextBox ID="TxtObsPS" runat="server" Height="50" Width="398px" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
|
||||
<div class="row">
|
||||
<div class="col-md-7">
|
||||
<label>Observación:</label>
|
||||
<br />
|
||||
<asp:TextBox ID="TxtObsPS" runat="server" Height="100%" Width="100%" TextMode="MultiLine" CausesValidation="true" MaxLength="500"></asp:TextBox>
|
||||
</div>
|
||||
<div class="col-md-5" id="DivRecepcionUsados" runat="server" visible="false">
|
||||
<asp:GridView ID="GvRecepcionUsados" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" CssClass="table table-hover table-striped ScrollAD mysmallbtn"
|
||||
data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-height="100"
|
||||
DataKeyNames="CvePSCargo,CveUM,Cargo,CveTamaño">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="CodigoPS" HeaderText="Tamaño" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="70%" />
|
||||
<asp:TemplateField HeaderText="Cantidad" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="30%" >
|
||||
<ItemTemplate>
|
||||
<asp:TextBox ID="TxtCantidad" runat="server" Width="80%"></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBECantidad" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPrecio" runat="server" onkeypress="setFocus(event,'LbAgregar');" onkeyup="Recalcula();" CausesValidation="true" lang="nb" ClientIDMode="Static" Text="0.00" MaxLength="12" ValidationGroup="GrpAddVenta" Width="76px" CssClass="form-control "></asp:TextBox>
|
||||
<ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender4" runat="server" TargetControlID="TxtPrecio" FilterType="Custom, Numbers" ValidChars="." />
|
||||
@@ -2729,7 +2746,7 @@
|
||||
</div>
|
||||
<div class="col-md-3">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPUFactura" CssClass="form-control" runat="server" MaxLength="50" ></asp:TextBox>
|
||||
<asp:TextBox ID="TxtPUFactura" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVPUFactura" runat="server" ControlToValidate="TxtPUFactura" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''PU Factura''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPUFactura" runat="server" HighlightCssClass="vco" TargetControlID="RFVPUFactura"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:FilteredTextBoxExtender ID="FTBEPUFactura" runat="server" TargetControlID="TxtPUFactura" FilterType="Custom, Numbers" ValidChars=".," />
|
||||
@@ -3522,7 +3539,7 @@
|
||||
function CambiaAjuste(txt, txtajuste) {
|
||||
Recalcula();
|
||||
if (txtajuste != null) {
|
||||
txtajuste.value = ToDouble(txt.value)
|
||||
txtajuste.value = ToDouble(txt.value)
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -4102,6 +4102,13 @@ Partial Class Ventas
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Rem") And GvRemisiones.Rows.Count > 0 Then
|
||||
LbCancelarDocumento.Visible = False
|
||||
End If
|
||||
|
||||
'SI TIENE REMISIONES Y VA A CANCELAR ES NECESARIO EL MOVIMIENTO DE DEVOLUCION
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant") AndAlso GvRemisiones.Rows.Count > 0 Then
|
||||
ChkDevAlm.Checked = True
|
||||
ChkDevAlm.Enabled = False
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
tdVigencia.Visible = DdlTipoComprobante.SelectedValue.Contiene("Cot")
|
||||
@@ -9033,7 +9040,7 @@ Partial Class Ventas
|
||||
|
||||
End If
|
||||
|
||||
If DTRemisiones IsNot Nothing AndAlso DTRemisiones.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
|
||||
If DTRemisiones IsNot Nothing AndAlso DTRemisiones.Rows.Count > 0 AndAlso ErrorList.Count = 0 AndAlso factura.TipoDocto.Contiene("Ing", "Ant") Then
|
||||
|
||||
Dim dt As DataTable = DTRemisiones.FiltraParametros("Aplicado = True")
|
||||
If dt.Rows.Count > 0 Then
|
||||
@@ -16648,9 +16655,19 @@ Partial Class Ventas
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
|
||||
Dim CvePreioLista As Integer = -1
|
||||
If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
|
||||
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
|
||||
If Dr IsNot Nothing Then
|
||||
If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
|
||||
CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim ObjCliente As New ClsClientes
|
||||
|
||||
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
|
||||
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
|
||||
If ObjCliente.DtResultados.Rows.Count > 0 Then
|
||||
RegistraScript("hideDivEC();")
|
||||
ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero
|
||||
@@ -17769,6 +17786,7 @@ Partial Class Ventas
|
||||
Next
|
||||
End If
|
||||
|
||||
ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
|
||||
If ChkDevAlm.Checked Then
|
||||
ObjFactura.CveAlmacenDevolucion = CveAlmacenDevolucion
|
||||
End If
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
<%@ WebService Language="VB" Class="WSApp" %>
|
||||
|
||||
<%@ WebService Language="VB" Class="WSApp" %>
|
||||
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data
|
||||
@@ -22,9 +22,9 @@ Imports Newtonsoft.Json.Linq
|
||||
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Public Class WSApp
|
||||
Inherits System.Web.Services.WebService
|
||||
Inherits System.Web.Services.WebService
|
||||
#Region "G L O B A L - D T"
|
||||
|
||||
|
||||
Public ReadOnly Property UrlSitio As String
|
||||
Get
|
||||
Return ConfigurationManager.AppSettings("UrlSitio").ToString
|
||||
@@ -436,9 +436,9 @@ Public Class WSApp
|
||||
Set(value As DataTable)
|
||||
Application("GlobalDTMotivosHorasExtras") = value
|
||||
End Set
|
||||
End Property
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Public Property CveEmpresa As Integer = 143
|
||||
|
||||
Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
|
||||
@@ -459,7 +459,7 @@ Public Class WSApp
|
||||
Else
|
||||
End If
|
||||
ObjEmpresa.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#Region "M E T O D O S - S E R V I C I O"
|
||||
Public Function ValidaUsuario(CveUsuario As Integer) As Usuario
|
||||
Dim UsuarioActual As Usuario = Nothing
|
||||
@@ -794,9 +794,9 @@ Public Class WSApp
|
||||
Retorno.Mensajes.Add("Ocurrió un error al eliminar el movimiento. Por favor vuelva a intetar.")
|
||||
End If
|
||||
ObjInv.Dispose()
|
||||
End Sub
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "P E D I D O S"
|
||||
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
|
||||
Dim Timbre As New CFDITimbre
|
||||
@@ -910,9 +910,9 @@ Public Class WSApp
|
||||
i += 1
|
||||
Next
|
||||
Return Timbre
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "R E M I S I O N E S"
|
||||
Private Function CreaFactura(ByRef Retorno As Modelos.Factura.MMensajeFactura, CveCliente As Integer, CveAlmacen As Integer, CveSubProyecto As Integer, CveMoneda As Integer, UsuarioActual As Usuario, Observaciones As String, ListaPS As List(Of MVentaProductos)) As Modelos.Factura
|
||||
If CveSubProyecto <= 0 Then
|
||||
@@ -1073,7 +1073,12 @@ Public Class WSApp
|
||||
ObjFactura.Total = Total
|
||||
|
||||
ObjFactura.Timbre = PreParaTimbre(ObjFactura)
|
||||
ObjFactura.CveContratoSecciones = ""
|
||||
ObjFactura.CveContratoSecciones = ""
|
||||
|
||||
'BORRAR
|
||||
ObjFactura.DtRecepcionUsados = New DataTable
|
||||
ObjFactura.DtRecepcionUsados.Columns.Add("CvePS", GetType(Integer))
|
||||
|
||||
Catch ex As Exception
|
||||
Retorno.Mensajes.Add(ex.ToString())
|
||||
Return Nothing
|
||||
@@ -1165,7 +1170,9 @@ Public Class WSApp
|
||||
TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
|
||||
TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
|
||||
|
||||
TmpDT.Columns.Add("CveTamaño", GetType(Double))
|
||||
|
||||
Try
|
||||
For Each PS As MVentaProductos In ListaPS
|
||||
@@ -1434,9 +1441,9 @@ Public Class WSApp
|
||||
End Try
|
||||
ObjVentas.Dispose()
|
||||
Return strBody.ToString
|
||||
End Function
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Namespace WebServiceAppModels2
|
||||
|
||||
Reference in New Issue
Block a user