diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index 5a6526ea1..4899c1242 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -1162,6 +1162,8 @@ Public Class ClsContPAQi
StrSQL.AppendLine("")
StrSQL.AppendLine(" BEGIN TRY")
StrSQL.AppendLine("")
+ StrSQL.AppendLine(" SET ARITHABORT ON; ")
+ StrSQL.AppendLine("")
StrSQL.AppendLine(" CREATE TABLE #TablaContable (")
StrSQL.AppendLine(" Id INT,")
StrSQL.AppendLine(" IdPoliza INT,")
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 03ccd11b5..813d87af3 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -723,7 +723,8 @@ Public Class ClsMovimientos
Public Function GetCxPPeriodo(CveProveedor As Integer, CveSubProyecto As Integer, CveClasificacion As Integer, CveUsuarioResponsable As Integer,
CveUsuarioRegistro As Integer, CveEstatus As Integer, CveEmpresa As Integer, Gpo As Integer, CveSucursal As Integer,
- TipoCambio As Integer, TCEspecifico As Double, FechaCorte As Date, CveUsuarioConsulta As Integer, CveTipoProveedor As Integer) As Boolean
+ TipoCambio As Integer, TCEspecifico As Double, FechaCorte As Date, CveUsuarioConsulta As Integer, CveTipoProveedor As Integer,
+ Optional TipoDocto As String = "-1", Optional CveMoneda As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Comp_RepCxPPeriodo")
With SqlAdapter.SelectCommand.Parameters
@@ -740,6 +741,8 @@ Public Class ClsMovimientos
.Add("@FechaCorte", SqlDbType.Date).Value = FechaCorte
.Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
.Add("@CveTipoProveedor", SqlDbType.Int).Value = CveTipoProveedor
+ .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+ .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
End With
Try
SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 73bf24f1a..aa5b2d3d0 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3238,6 +3238,27 @@ Public Class ClsNominas
End Function
#End Region
#End Region
+
+
+
+ Public Function GetLayoutAltaBanorte(CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Nom_Dispersionnomina", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el layout de nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+
+
#Region "IDisposable Support"
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index d1103d1dc..928349284 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7153,8 +7153,11 @@ Public Class ClsPaginas
'DATOS GENERALES
+ If UsuarioActual.CveEmpresa.Contiene(15) Then
+ params.Add(New ReportParameter("CP", UsuarioActual.Empresa.CP.ToString))
+ End If
+
- 'params.Add(New ReportParameter("CP", UsuarioActual.Empresa.CP.ToString))
params.Add(New ReportParameter("Observaciones", Vta.Observaciones))
params.Add(New ReportParameter("CveVendedor", Vta.CveVendedor.ToString))
params.Add(New ReportParameter("Status", Vta.EstatusFactura))
diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx
index 248704414..6a595d10c 100644
--- a/Ashx/SIGWeb.ashx
+++ b/Ashx/SIGWeb.ashx
@@ -761,6 +761,8 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero
+ Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero
+
Dim usuario As Usuario = UsuarioActual(context)
Dim CveEmpresa As String
If IsNothing(usuario) Then
@@ -772,7 +774,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
'sino existe, recarga los datos
If context.Application(AppNombre) Is Nothing Then
Dim ObjClientes As New ClsClientes
- If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then
+ If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1, CveClienteClasificacion:=cveclienteclasificacion) Then
context.Application(AppNombre) = ObjClientes.DtResultados
End If
ObjClientes.Dispose()
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index b1b59b727..028df676e 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -104,7 +104,8 @@
-
+
+
@@ -281,9 +282,10 @@
+
-
+
@@ -653,6 +655,32 @@
ComisionIntermediario = 0;
}
+
+
+ function SelectorNotas(Chk) {
+
+
+ $(`.CssSelector input[type=checkbox]`).each(function () {
+
+ if (Chk.checked) {
+
+ if (! $(this).prop('checked')) {
+ $(this).click();
+ }
+
+
+ } else {
+
+ if ($(this).prop('checked')) {
+ $(this).click();
+ }
+ }
+
+
+ });
+
+ }
+
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 4ed0fa810..60a92a6c8 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -215,6 +215,19 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 03f75a6a1..eb50c7db8 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -843,6 +843,9 @@ Partial Class Bancos_IE
DdlMotivoCancelacion.DataBind()
DdlMotivoCancelacion.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+ If UsuarioActual.Empresa.UsaAC Then
+ DvFolioACCondiciones.Visible = True
+ End If
End If
End Sub
@@ -861,6 +864,8 @@ Partial Class Bancos_IE
End Try
+
+
CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
diff --git a/Bancos/RepIngresosPorComprobar.aspx b/Bancos/RepIngresosPorComprobar.aspx
index 3bbaeab4d..f3f6b3b13 100644
--- a/Bancos/RepIngresosPorComprobar.aspx
+++ b/Bancos/RepIngresosPorComprobar.aspx
@@ -32,9 +32,10 @@
Cliente:
-
+ <%--
-
+ --%>
+
F.I.:
diff --git a/Bancos/RepIngresosPorComprobar.aspx.vb b/Bancos/RepIngresosPorComprobar.aspx.vb
index fbafecc6f..ad3c68233 100644
--- a/Bancos/RepIngresosPorComprobar.aspx.vb
+++ b/Bancos/RepIngresosPorComprobar.aspx.vb
@@ -27,8 +27,17 @@ Partial Class Bancos_RepIngresosPorComprobar
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- 'DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
- 'DdlProveedores.DataBind()
+
+
+ Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+ If EsWS Then
+ DdlClientes.setEsWebService(True)
+ Else
+ DdlClientes.setEsWebService(False)
+ DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ DdlClientes.DataBind()
+ DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End If
If UsuarioActual.TienePermisoProceso(91) Then
@@ -58,15 +67,16 @@ Partial Class Bancos_RepIngresosPorComprobar
If txtFechaI.Text <> "" Then FechaI = txtFechaI.Text Else FechaI = "-1"
If txtFechaF.Text <> "" Then FechaF = txtFechaF.Text Else FechaF = "-1"
+ Dim CveCliente As Integer = If(DdlClientes.SelectedValue = "", -1, DdlClientes.SelectedValue.ToEntero)
- If Mov.GetIngresosPorComprobar(FechaI, FechaF, DdlClientes.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
+ If Mov.GetIngresosPorComprobar(FechaI, FechaF, CveCliente, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
DtDatos = Mov.DtResultados
CargaGrid("")
UPDatos.Update()
End If
- If Mov.GetIngresosAnticiposPorComprobar(FechaI, FechaF, DdlClientes.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
+ If Mov.GetIngresosAnticiposPorComprobar(FechaI, FechaF, CveCliente, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlMoneda.SelectedValue.ToEntero, If(ChkSaldo.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
DtAnticipos = Mov.DtResultados
CargaGrid("")
UpAnt.Update()
@@ -77,13 +87,26 @@ Partial Class Bancos_RepIngresosPorComprobar
End Sub
Protected Sub BtnCargarProveedores_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
- DdlClientes.CssClass += " select2me"
- DdlClientes.Items.Clear()
- DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlClientes.DataBind()
- DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlClientes.Attributes.Remove("onclick")
+
+ Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+ If EsWS Then
+ DdlClientes.setEsWebService(True)
+ Else
+ DdlClientes.setEsWebService(False)
+ DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ DdlClientes.DataBind()
+ DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End If
+
+
+ 'DdlClientes.CssClass += " select2me"
+ 'DdlClientes.Items.Clear()
+ 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+
+ 'DdlClientes.DataBind()
+ 'DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
+ 'DdlClientes.Attributes.Remove("onclick")
End Sub
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 8a0a810b3..3c67875f7 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3367,6 +3367,47 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf
DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm
DdlRetISRConcepto.SelectedValueExist("1") ' honorarios
+ ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then
+
+
+ If CveFactura > 0 Then
+
+ If RetIVAOriginal > 0 Then
+ Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
+
+ If (CalRetIVAPor).RoundAD(6) = 0.106667 Then
+ DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales
+ End If
+
+ If (CalRetIVAPor).RoundAD(2) = 0.04 Then '4 Fletes
+
+ If RFCProv.Length = 13 Then
+ DdlRetIVAConcepto.SelectedValueExist("2")
+ Else
+ DdlRetIVAConcepto.SelectedValueExist("3")
+ End If
+
+
+ End If
+
+ End If
+
+ If RetISROriginal > 0 Then
+
+ Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
+
+ If (CalRetISRPor).RoundAD(1) = 0.1 Then '10 Sercviios profecionales
+ DdlRetISRConcepto.SelectedValueExist("1")
+ End If
+
+ If (CalRetISRPor).RoundAD(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza
+ DdlRetISRConcepto.SelectedValueExist("3")
+ End If
+
+ End If
+
+ End If
+
End If
LbAgregar.Enabled = True
@@ -10762,7 +10803,7 @@ Partial Class Compras_Compras
'End If
'AGREGA MOVIMIENTO
- If importeMovimiento <> 0 Then
+ If importeMovimiento <> 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero) Then
ErrorPrepoliza = True
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 156070172..70fed873b 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -205,9 +205,13 @@ Partial Class PopUpVerFactura
If Request("onlyPrint").ToString() = "PalletCaja" Then
imprimirpallet(Request("CvePallet").ToString.ToEntero())
End If
+
If Request("onlyPrint").ToString() = "manifiesto" Then
imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
End If
+ If Request("onlyPrint").ToString() = "manifiestoRemision" Then
+ imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+ End If
End If
End If
@@ -330,6 +334,150 @@ Partial Class PopUpVerFactura
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
End Sub
+
+
+ Private Sub imprimirManifiestoRemisionRemision(cveEmbarqueManifiesto As Integer)
+ Dim NoEmbarque As String = ""
+ Dim Fecha As String = ""
+ Dim SubProyecto As String = ""
+ Dim AgenciaAduanalUSA As String = ""
+ Dim AgenciaAduanalMEX As String = ""
+ Dim Temperatura As String = ""
+ Dim Hora As String = ""
+ Dim Chofer As String = ""
+ Dim CamPlaca As String = ""
+ Dim Camion As String = ""
+ Dim Rem1Placa As String = ""
+ Dim Remolque1 As String = ""
+ Dim NoPallets As String = ""
+ Dim NoBultos As String = ""
+ Dim NoKgManifiesto As String = ""
+ Dim Mercado As String = ""
+ Dim NoFactura As String = ""
+ Dim DivisoresdeCarton As String = ""
+ Dim BolsasdePlastico As String = ""
+ Dim TapaderasdeCarton As String = ""
+ Dim CAJASDECARTON As String = ""
+ Dim RPC As String = ""
+ Dim BINSDECARTON As String = ""
+ Dim TotalDlls As String = ""
+
+
+
+ Dim LongitudCaja As String = ""
+ Dim LineaTransportacion As String = ""
+ Dim SCAC As String = ""
+ Dim CAAT As String = ""
+ Dim NumeroTrailer As String = ""
+
+
+ Dim tablaReporte As New DataTable
+
+ 'Envase = "1 1/9"
+ 'Tamano = "Small"
+ 'Cultivo = "Tomate"
+ 'noPallet = "000001"
+ 'Variedad = "Golden"
+ Using objnom As New ClsNominas
+ If objnom.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
+ Dim row As DataRow = objnom.DtResultados.Rows(0)
+ NoEmbarque = row("NoEmbarque").ToString()
+ Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
+ DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
+ BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
+ TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
+ CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
+ RPC = String.Format("{0:N0}", row("RPC"))
+ BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
+
+
+
+ SubProyecto = row("SubProyecto").ToString()
+ AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
+ AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
+ Temperatura = row("Temperatura").ToString()
+ Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
+ Chofer = row("Chofer").ToString()
+ CamPlaca = row("CamPlaca").ToString()
+ Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
+ Rem1Placa = row("Rem1Placa").ToString()
+ NoFactura = row("NoFactura").ToString()
+ Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+ Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
+
+ NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
+
+ LongitudCaja = row("LongitudCaja").ToString()
+ LineaTransportacion = row("LineaTransportacion").ToString()
+ SCAC = row("SCAC").ToString()
+ CAAT = row("CAAT").ToString()
+
+ 'If row("CveCamionRemolque1").ToString() = "1" Then
+ ' Rem1Placa = "12-TF-5E"
+ ' Remolque1 = "Remolque 1"
+ 'Else
+ ' Rem1Placa = "15-TF-7f"
+ ' Remolque1 = "Remolque 2"
+
+ 'End If
+
+ If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
+ NoPallets = objnom.DtResultados.Rows.Count.ToString()
+ NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
+ NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
+ tablaReporte = objnom.DtResultados
+ End If
+ End If
+ 'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
+ End Using
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
+ params.Add(New ReportParameter("Fecha", Fecha))
+ params.Add(New ReportParameter("SubProyecto", SubProyecto))
+ params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
+ params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
+ params.Add(New ReportParameter("Temperatura", Temperatura))
+ params.Add(New ReportParameter("Hora", Hora))
+ params.Add(New ReportParameter("Chofer", Chofer))
+ params.Add(New ReportParameter("CamPlaca", CamPlaca))
+ params.Add(New ReportParameter("Camion", Camion))
+ params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
+ params.Add(New ReportParameter("Remolque1", Remolque1))
+
+
+ params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
+ params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+ params.Add(New ReportParameter("SCAC", SCAC))
+ params.Add(New ReportParameter("CAAT", CAAT))
+ params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
+
+
+ params.Add(New ReportParameter("NoFactura", NoFactura))
+ params.Add(New ReportParameter("Mercado", Mercado))
+ params.Add(New ReportParameter("NoBultos", NoBultos))
+ params.Add(New ReportParameter("NoPallets", NoPallets))
+ params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
+
+
+ params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
+ params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
+ params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
+ params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
+ params.Add(New ReportParameter("RPC", RPC))
+ params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
+ params.Add(New ReportParameter("TotalDlls", TotalDlls))
+
+
+
+
+
+ Dim lrds As New List(Of ReportDataSource)
+ Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
+ lrds.Add(rds)
+ '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+ '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+ ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto")
+ End Sub
Private Sub imprimirpallet2(cvePallet As Integer)
Dim Envase As String = ""
Dim Tamano As String = ""
diff --git a/Compras/RepCxPPeriodo.aspx b/Compras/RepCxPPeriodo.aspx
index 397894da3..0f4881bb5 100644
--- a/Compras/RepCxPPeriodo.aspx
+++ b/Compras/RepCxPPeriodo.aspx
@@ -48,9 +48,7 @@
Proveedor:
-
-
-
+
Clasificación:
@@ -126,6 +124,16 @@
+
Tipo Docto:
+
+
+
+
+
+
+
+
+
diff --git a/Compras/RepCxPPeriodo.aspx.cs b/Compras/RepCxPPeriodo.aspx.cs
index 5b9f2a458..49054ae32 100644
--- a/Compras/RepCxPPeriodo.aspx.cs
+++ b/Compras/RepCxPPeriodo.aspx.cs
@@ -44,8 +44,28 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
TipoCambio = 1;
TCEspecifico = -1;
- DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
- DdlProveedor.DataBind();
+
+
+
+ //DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+ //DdlProveedor.DataBind();
+
+
+
+ if (UsuarioActual.Empresa.Funcionalidad(105) == "1") {
+ DdlProveedor.setEsWebService(true);
+ DdlProveedor.Attributes.Add("data-metodo", "getproveedores");
+ DdlProveedor.SelectedText = "Todos";
+ DdlProveedor.SelectedValue = "-1";
+ }
+ else {
+ DdlProveedor.setEsWebService(false);
+ DdlProveedor.ddl.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+ DdlProveedor.ddl.DataBind();
+ DdlProveedor.ddl.Items.Insert(0, new ListItem("Todos", "-1"));
+ }
+
+
DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}").FiltraParametros("ProveedoresResponsables > 0");
DdlUsuarioResponsable.DataBind();
@@ -72,10 +92,16 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
{
if (RblTipoCambio.SelectedValue.ToEntero() == 3 && TxtEspecifico.Text != "") { TCEspecifico = TxtEspecifico.Text.ToDouble(); } else { TCEspecifico = -1; }
+
+ int CveProveedor = DdlProveedor.SelectedValue.ToEntero() > 0 ? DdlProveedor.SelectedValue.ToEntero() : -1;
+
+ string TipoDocto = (DdlTipoDocto.GetSelectedValuesM() == "") ? "-1" : DdlTipoDocto.GetSelectedValuesM();
+
ClsMovimientos ObjMov = new ClsMovimientos();
- if (ObjMov.GetCxPPeriodo(DdlProveedor.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),DdlProveedoresClasificaciones.SelectedValue.ToEntero(),
+ if (ObjMov.GetCxPPeriodo(CveProveedor, DdlSubProyecto.SelectedValue.ToEntero(),DdlProveedoresClasificaciones.SelectedValue.ToEntero(),
DdlUsuarioResponsable.SelectedValue.ToEntero(),DdlUsuarioRegistro.SelectedValue.ToEntero(),DdlEstatusCompra.SelectedValue.ToEntero(),UsuarioActual.CveEmpresa,
- DdlGrupo.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),TipoCambio,TCEspecifico,txtCorteA.Text.ToDate(),UsuarioActual.CveUsuario,DdlTipoProveedor.SelectedValue.ToEntero()))
+ DdlGrupo.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(),TipoCambio,TCEspecifico,txtCorteA.Text.ToDate(),UsuarioActual.CveUsuario,
+ DdlTipoProveedor.SelectedValue.ToEntero(), TipoDocto: TipoDocto))
{
GvDatos.DataSource = ObjMov.DtResultados;
DtDatos = ObjMov.DtResultados;
@@ -234,7 +260,7 @@ public partial class Compras_RepCxPPeriodo : ClsPaginas
if (DdlGrupo.SelectedValue != "-1")
StrFiltro.AppendFormat(" Grupo: {0}", DdlGrupo.SelectedItem.Text);
if (DdlProveedor.SelectedValue != "-1")
- StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.SelectedItem.Text);
+ StrFiltro.AppendFormat(" Proveedor: {0}", DdlProveedor.ddl.SelectedItem.Text);
if (DdlProveedoresClasificaciones.SelectedValue != "-1")
StrFiltro.AppendFormat(" Clasificación Proveedor: {0}", DdlProveedoresClasificaciones.SelectedItem.Text);
if (DdlTipoProveedor.SelectedValue != "-1")
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index bb3a00671..ca77c2250 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -1581,7 +1581,10 @@ Partial Class Compras_eFacturas
swTiempo.AppendFormat("espera: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
swmili = sw.ElapsedMilliseconds
sw.Start()
- VerificaCorreo(True)
+
+ If VerificaCorreo(True) Then
+ CargaDatos()
+ End If
sw.Stop()
swTiempo.AppendFormat("Verifica En la app: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
@@ -1695,6 +1698,9 @@ Partial Class Compras_eFacturas
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas"))
+
+
+ asdasd
'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion)
End Sub
@@ -2847,6 +2853,37 @@ Partial Class Compras_eFacturas
Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
Dim Prefijo As String = ""
+
+
+
+
+ Dim DTDocumentosRelacionados As New DataTable
+ DTDocumentosRelacionados.Columns.Add("Serie")
+ DTDocumentosRelacionados.Columns.Add("SerieFolio")
+
+ DTDocumentosRelacionados.Columns.Add("IdDocumento")
+ DTDocumentosRelacionados.Columns.Add("Folio", GetType(Integer))
+ DTDocumentosRelacionados.Columns.Add("MonedaDR")
+ DTDocumentosRelacionados.Columns.Add("MetodoDePagoDR")
+ DTDocumentosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
+
+ DTDocumentosRelacionados.Columns.Add("CveFactura", GetType(Integer))
+ DTDocumentosRelacionados.Columns.Add("CveCompra", GetType(Integer))
+ DTDocumentosRelacionados.Columns.Add("CveIE", GetType(Integer))
+ DTDocumentosRelacionados.Columns.Add("Fecha", GetType(Date))
+
+ DTDocumentosRelacionados.Columns.Add("FolioPago")
+ DTDocumentosRelacionados.Columns.Add("ImportePago", GetType(Decimal))
+ DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
+ DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
+ DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
+ DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
+
+ DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
+ DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
+
+
+
If IO.File.Exists(Archivo) Then
@@ -2913,30 +2950,7 @@ Partial Class Compras_eFacturas
UUIDPago = ValorXML(nodeTFD, "UUID")
LblUUID.Text = UUIDPago
- Dim DTDocumentosRelacionados As New DataTable
- DTDocumentosRelacionados.Columns.Add("Serie")
- DTDocumentosRelacionados.Columns.Add("SerieFolio")
- DTDocumentosRelacionados.Columns.Add("IdDocumento")
- DTDocumentosRelacionados.Columns.Add("Folio", GetType(Integer))
- DTDocumentosRelacionados.Columns.Add("MonedaDR")
- DTDocumentosRelacionados.Columns.Add("MetodoDePagoDR")
- DTDocumentosRelacionados.Columns.Add("ImpPagado", GetType(Decimal))
-
- DTDocumentosRelacionados.Columns.Add("CveFactura", GetType(Integer))
- DTDocumentosRelacionados.Columns.Add("CveCompra", GetType(Integer))
- DTDocumentosRelacionados.Columns.Add("CveIE", GetType(Integer))
- DTDocumentosRelacionados.Columns.Add("Fecha", GetType(Date))
-
- DTDocumentosRelacionados.Columns.Add("FolioPago")
- DTDocumentosRelacionados.Columns.Add("ImportePago", GetType(Decimal))
- DTDocumentosRelacionados.Columns.Add("FechaPago", GetType(Date))
- DTDocumentosRelacionados.Columns.Add("CveMetodoPago", GetType(Integer))
- DTDocumentosRelacionados.Columns.Add("SerieFolioCompra")
- DTDocumentosRelacionados.Columns.Add("CvePrePolizaDetalle", GetType(Integer))
-
- DTDocumentosRelacionados.Columns.Add("Tipo", GetType(String))
- DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
Dim nodePagosN As XmlNodeList
@@ -3140,7 +3154,9 @@ Partial Class Compras_eFacturas
'saco la información de lo vinculado en el ie
- ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+ 'ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
+ ImporteIES = DTDocumentosRelacionados.FiltraParametros("CveIE > 0").SUM("ImportePago")
+
DiferenciaImportes = Monto - ImporteIES
ObjCompras.Dispose()
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx
index 9d91861d0..5986fd478 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx
+++ b/Contabilidad/RepBalanzaComprobacion.aspx
@@ -3,16 +3,28 @@
-
- Exporta Excel
- <%-- --%>
-
-
- Imprimir
- <%-- --%>
-
-
+
+
+
+
+
+ Exporta Excel
+ <%-- --%>
+
+
+ Imprimir
+ <%-- --%>
+
+
+
+
+
+
+
+
+
+
Balanza de Comprobación
diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb
index 04f9191b3..f9bbddfb3 100644
--- a/Contabilidad/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb
@@ -228,10 +228,15 @@ Partial Class Contabilidad_RepBalanzaComprobacion
GenerarPDFCrystal("EXCEL")
End Sub
Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
- Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", UsuarioActual.Empresa.Ruta))
+ Dim Archivo As New System.IO.FileInfo(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ 'If UsuarioActual.CveUsuario = 100 Then
+ ' Alert(String.Format("{0}Contabilidad/Reportes/RepBalanzaComprobacion.rpt", Server.MapPath("~")))
+ ' End If
+ ' Exit Sub
+
If Not IsNothing(DtDatos) Then
'Dim dr As DataRow = DtCxC.Rows(0)
Dim lista = New List(Of CrystalParametro)
@@ -245,7 +250,9 @@ Partial Class Contabilidad_RepBalanzaComprobacion
lista.Add(New CrystalParametro("pImg", ""))
End If
- ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DtDatos, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato)
+ Dim DTTemp As DataTable = DtDatos.Copy
+
+ ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Contabilidad/Reportes/RepBalanzaComprobacion.rpt"), DTTemp, lista, "Balanza de Comprobación", Formato), "Balanza de Comprobación", Formato)
Else
Alert("No se tienen registrados movimientos", TipoMensaje.MsgAdvertencia)
diff --git a/Contabilidad/Reportes/RepBalanzaComprobacion.rpt b/Contabilidad/Reportes/RepBalanzaComprobacion.rpt
index 2b98edb34..b9c06261a 100644
Binary files a/Contabilidad/Reportes/RepBalanzaComprobacion.rpt and b/Contabilidad/Reportes/RepBalanzaComprobacion.rpt differ
diff --git a/CxC/RepCxCPeriodo.aspx b/CxC/RepCxCPeriodo.aspx
index e210ecc1b..a7089fb86 100644
--- a/CxC/RepCxCPeriodo.aspx
+++ b/CxC/RepCxCPeriodo.aspx
@@ -117,7 +117,8 @@
-
+
+