diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 4ddd2d56a..5c05914f1 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1185,7 +1185,7 @@ Public Class ClsBancos
'End Function
Public Function UpdateComplementoPago(CveComplementoPago As Integer, FolioFiscal As String, CvePAC As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CvePACCancelacion As Integer = -1,
- Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "") As Boolean
+ Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "", Optional CveSATMotivoCancelacion As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ComplementoPagoUpdate")
@@ -1199,6 +1199,7 @@ Public Class ClsBancos
.Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
.Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
.Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion
+ .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion
End With
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 329fd4b7a..9ab579855 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -237,6 +237,31 @@ Public Class ClsContabilidad
Return Retorno
End Function
+
+ Public Function UpdatePrePolizasOrdenamiento(CvePrePoliza As Integer, CveEmpresa As Integer) As Integer
+ FolioPoliza = -1
+ Dim Retorno As Integer = -1
+
+ DataAdapter("PA_Conta_PrePolizas_Ordenamiento")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+ .Add("@CveEmpresa", SqlDbType.Bit).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualziar el ordenamientio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+
+
+
'''
''' Actualiza la IdPoliza de una PrePoliza
'''
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index ca387ce30..4cd08b3e3 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -2042,7 +2042,9 @@ Public Class ClsPaginas
ObjVendedores.Dispose()
End If
If CveEmpresa <> -1 Then
+
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows)
+
GlobalDTVendedores = Dv.ToTable
Dv.Dispose()
Else
@@ -6582,7 +6584,7 @@ Public Class ClsPaginas
params.Add(New CrystalParametro("LogoPath", LogoRuta))
'VENDEDOR
- Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+ Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then
params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString))
params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString))
@@ -7168,7 +7170,7 @@ Public Class ClsPaginas
Dim VendedorTelefono As String = ""
Dim VendedorCelular As String = ""
- Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+ Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
If Not IsNothing(RowVendedor) Then
VendedorNombre = RowVendedor("Vendedor").ToString
@@ -7526,6 +7528,7 @@ Public Class ClsPaginas
If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjInv.DtResultados.Rows.Count > 0 Then
+
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then
AlmOrigen = Dr("AlmacenOrigen").ToString
@@ -7552,6 +7555,11 @@ Public Class ClsPaginas
If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
End If
End If
+
+ params.Add(New ReportParameter("Chofer", Dr("Chofer").ToString))
+ params.Add(New ReportParameter("Placa", Dr("Placa").ToString))
+ params.Add(New ReportParameter("EspecifUnidad", Dr("Especificacion").ToString))
+
End If
End If
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1a8716066..26432a79f 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -163,6 +163,25 @@ Public Class ClsVentas
Return Retorno
End Function
+
+ Public Function Embarque_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_AGRO_Embarque_ManifiestoUpvta", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ .Add("@cveEmbarqueManifiesto", SqlDbType.Int).Value = cveEmbarqueManifiesto
+ .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasGetTerminal")
@@ -1612,7 +1631,7 @@ Public Class ClsVentas
Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
- Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+ Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_GetRepPS")
@@ -1646,6 +1665,7 @@ Public Class ClsVentas
.Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
.Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
End With
@@ -1665,7 +1685,7 @@ Public Class ClsVentas
Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
- Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+ Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_GetRepPSDetalle")
@@ -1703,6 +1723,7 @@ Public Class ClsVentas
.Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
.Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
.Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+ .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
End With
Try
@@ -4792,7 +4813,7 @@ Public Class ClsVentas
End Try
Return retorno
End Function
- Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
+ Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
@@ -4803,6 +4824,7 @@ Public Class ClsVentas
.Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index d0bf4fcef..53cd7fdc2 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1370,11 +1370,13 @@
-
+
-
-
+
+
+
+
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 431c75456..8290aef4f 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -5847,6 +5847,8 @@ Partial Class Bancos_IE
Else
GvComplementoPagos.DataSource = Nothing
End If
+
+ GvComplementoPagos.Columns(8).Visible = False
Else
If CveIE > 0 Then
If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5862,13 +5864,14 @@ Partial Class Bancos_IE
' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
- GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC"})
+ GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
'"CveComplementoPago","FolioFiscal","Folio","SerieFolio","FechaComplemento","Importe","RFCReceptor","StrEstatus","FechaCancelacion","Tipo,Estatus","CveIE","CvePAC"
End If
End If
+ GvComplementoPagos.Columns(8).Visible = True
End If
ObjBancos.Dispose()
@@ -5904,6 +5907,12 @@ Partial Class Bancos_IE
e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
End If
+ If e.Row.DataKey("Estatus").ToEntero = 2 Then
+ e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
+ Else
+ e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
+ End If
+
ElseIf e.Row.DataKey("Tipo") = "Egs" Then
e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
@@ -6676,7 +6685,7 @@ Partial Class Bancos_IE
If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
- If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+ If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
Alert("El complemento se cancelo correctamente.")
End If
diff --git a/Bancos/RepEgresosSinComprobante.aspx.vb b/Bancos/RepEgresosSinComprobante.aspx.vb
index 517fda443..c97b4e116 100644
--- a/Bancos/RepEgresosSinComprobante.aspx.vb
+++ b/Bancos/RepEgresosSinComprobante.aspx.vb
@@ -233,14 +233,14 @@ Partial Class Bancos_RepEgresosSinComprobante
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
diff --git a/Bin/BarcodeStandard.dll b/Bin/BarcodeStandard.dll
new file mode 100644
index 000000000..49901517b
Binary files /dev/null and b/Bin/BarcodeStandard.dll differ
diff --git a/Bin/System.Drawing.Common.dll b/Bin/System.Drawing.Common.dll
new file mode 100644
index 000000000..649e45bcb
Binary files /dev/null and b/Bin/System.Drawing.Common.dll differ
diff --git a/Bin/System.Drawing.Common.dll.refresh b/Bin/System.Drawing.Common.dll.refresh
new file mode 100644
index 000000000..00a7af438
Binary files /dev/null and b/Bin/System.Drawing.Common.dll.refresh differ
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 221b694d8..34fda73c0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -261,8 +261,8 @@ Partial Class PopUpVerFactura
Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
Rem1Placa = row("Rem1Placa").ToString()
NoFactura = row("NoFactura").ToString()
- Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio"))
- Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
+ Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+ Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
@@ -394,11 +394,12 @@ Partial Class PopUpVerFactura
NoCajas = row("NoCajas").ToString()
Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
- NumberOfCode = String.Format("(01)00856977005186(13){0:ddMMyy}(10){0}01", Regex.Match(row("Cuadro").ToString(), "\\d+"), row("Fecha"))
+ NumberOfCode = String.Format("(01)00856977005186(13){1:ddMMyy}(10){0}01", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
End If
End Using
Dim params As New List(Of ReportParameter)
+
params.Add(New ReportParameter("Tamano", Tamano))
params.Add(New ReportParameter("noPallet", noPallet))
params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
@@ -410,16 +411,44 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
+
+
Dim tablaReporte As New DataTable
-
-
tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
tablaReporte.Rows.Add(tablaReporte.NewRow)
tablaReporte.Rows.Add(tablaReporte.NewRow)
Dim lrds As New List(Of ReportDataSource)
+
+ 'img
+ Dim dtqr As New DataTable
+ Dim column As DataColumn = New DataColumn("ImagenByte")
+ column.DataType = System.Type.[GetType]("System.Byte[]")
+ column.AllowDBNull = True
+ column.Caption = "ImagenByte"
+ dtqr.Columns.Add(column)
+ Dim rowqr As DataRow = dtqr.NewRow()
+
+
+ Dim bcode As New BarcodeLib.Barcode()
+ Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 50, 10)
+ Dim barcodebyte As Byte()
+ Using ms = New MemoryStream()
+ img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+ barcodebyte = ms.ToArray()
+ End Using
+ rowqr("ImagenByte") = barcodebyte
+
+ dtqr.Rows.Add(rowqr)
+ Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
+ rds2.Name = "dsImagenes"
+ rds2.Value = dtqr
+ lrds.Add(rds2)
+ 'endimg
+
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"
Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 748d2bd4c..552e6d08b 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -1107,7 +1107,7 @@ Partial Class Compras_ReembolsosComprobaciones
'Otros Ingresos
If ChkAjusteOI.Checked Then
- If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 78, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, UsuarioActual.Empresa.IdCuentaOtrosIngresos, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
End If
End If
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index f62dd3a9e..e70ff49f9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -493,7 +493,12 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
- DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+ DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+ 'DtMovimientos.DefaultView.Sort = "OrdenPP"
+ 'DtMovimientos = DtMovimientos.DefaultView.ToTable
+
GvPrePoliza.DataSource = DtMovimientos
@@ -2971,23 +2976,28 @@ Partial Class ContabilidadC_RegPrePolizaS
End If
Catch ex As Exception
MsgError = "Error"
- End Try
+ End Try
+
+ If MsgError = "" Then
+ If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+ MsgError = "Orror al ordenar polzia"
+ End If
+ End If
If MsgError = "" Then
-
Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}
" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
- ObjIE.Commit()
- If Conta IsNot Nothing Then Conta.Commit()
-
- UPPDocumento.Update()
-
- TxtConcepto.Text = ""
- GvMov.DataBind()
+ ObjIE.Commit()
+ If Conta IsNot Nothing Then Conta.Commit()
+
+ UPPDocumento.Update()
+
+ TxtConcepto.Text = ""
+ GvMov.DataBind()
TxtFechaDocumento.Text = ""
Else
diff --git a/Empresas/119/Formatos/Cotizacion.rdlc b/Empresas/119/Formatos/Cotizacion.rdlc
index 1f9351a37..d17f84dd0 100644
--- a/Empresas/119/Formatos/Cotizacion.rdlc
+++ b/Empresas/119/Formatos/Cotizacion.rdlc
@@ -2039,62 +2039,6 @@