Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
@@ -1290,7 +1290,13 @@ Partial Class Compras_Compras
|
||||
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
|
||||
DVCultivosCuadro.Visible = True
|
||||
DdlSubProyecto.AutoPostBack = True
|
||||
DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
|
||||
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
|
||||
Dim extrafiltro = "Estatus=1 AND "
|
||||
If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
|
||||
extrafiltro = ""
|
||||
End If
|
||||
DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"{extrafiltro} CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlCultivosCuadro.DataBind()
|
||||
DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
@@ -5081,31 +5087,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Next
|
||||
|
||||
''[IPP] COMENTADO A MIRAS DE ELIMINAR 21-FEBRERO-2018
|
||||
''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
|
||||
'If TxtDescuento.Text.ToDouble > 0 Then
|
||||
' DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16D
|
||||
|
||||
' 'Valida que el descuento con iva cuadre en los totales
|
||||
' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDecimal)) < 0.02 Then
|
||||
' DescuentoConIVA = Importe - TxtTotal.Text.ToDecimal
|
||||
' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
|
||||
' ErrorACMEnsaje.Append(" - Valida que el descuento con iva cuadre en los totales ")
|
||||
' ErrorAC = True
|
||||
' End If
|
||||
|
||||
' 'actualizo el idcuenta del presupuesto
|
||||
' If ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
|
||||
' 'agrego a la cuenta contable anticipos
|
||||
' If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorAnticipos, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
|
||||
' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 1")
|
||||
' ErrorAC = True
|
||||
' End If
|
||||
' Else
|
||||
' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 2")
|
||||
' ErrorAC = True
|
||||
' End If
|
||||
'Else
|
||||
'actualizo el idcuenta del presupuesto
|
||||
Importe = TxtTotal.Text.ToDecimal
|
||||
If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
|
||||
@@ -5505,20 +5486,12 @@ Partial Class Compras_Compras
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
|
||||
'Else
|
||||
' Alert("El tipo de cambio no esta actualizado. Por favor comuniquese con un asistente SIG.", TipoMensaje.MsgError)
|
||||
' ErrorMovInv = True
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
'*************************************************** P R I M E R A P A R T E C O M P R A S **************************************************************************************************************************************************************************************************************************************************************************************************
|
||||
@@ -5661,12 +5634,6 @@ Partial Class Compras_Compras
|
||||
Dim CveCompraCapital As Integer = -1
|
||||
Dim CveCompraInteres As Integer = -1
|
||||
|
||||
'Dim ImporteCapital As Decimal = 0
|
||||
' Dim ImporteCapitalIVA As Decimal = 0
|
||||
|
||||
'Dim ImporteInteres As Decimal = 0
|
||||
' Dim ImporteInteresIVA As Decimal = 0
|
||||
|
||||
' Dim ImporteIEMensualidad As Decimal = ObjIE.DtResultados.FiltroPrimeroValor("ImporteIE", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
|
||||
CreditoEstatus = ObjIE.DtResultados.FiltroPrimeroValor("Estatus", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
|
||||
|
||||
@@ -5685,7 +5652,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Capital = Ambos
|
||||
Interes = Ambos
|
||||
|
||||
End If
|
||||
|
||||
If Capital > 0 Then
|
||||
@@ -5695,8 +5661,6 @@ Partial Class Compras_Compras
|
||||
CveCompraInteres = CveCompra
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If (CveCompraCapital > 0 And CveCompraInteres > 0) And EstusTemp = 2 Then
|
||||
If EstusTemp = 2 Then
|
||||
EstusTemp = 3
|
||||
@@ -5715,9 +5679,6 @@ Partial Class Compras_Compras
|
||||
ImporteInteres:=Interes) Then
|
||||
ErrorCredito = True
|
||||
End If
|
||||
'ObjIE.UpdateCreditosDetalle(CveCreditoDetalle, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, Estatus)
|
||||
|
||||
|
||||
|
||||
Else
|
||||
ErrorCredito = True
|
||||
@@ -5756,8 +5717,6 @@ Partial Class Compras_Compras
|
||||
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'********************** Variables '**********************
|
||||
|
||||
'****** Pagos
|
||||
@@ -5864,8 +5823,6 @@ Partial Class Compras_Compras
|
||||
Dim importeRetISRxAcreditar As Decimal = 0
|
||||
importeRetISRxAcreditar = TxtRetISR.Text.ToDecimal
|
||||
|
||||
|
||||
|
||||
'****** Movimientos Independientes
|
||||
|
||||
'Pago Proveedores (17)
|
||||
@@ -6276,17 +6233,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'Codigo anterior
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
''End If
|
||||
|
||||
'If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
|
||||
'Agregamos el Opuesto del 22 -> 15
|
||||
If importeMovimiento <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
|
||||
@@ -6414,34 +6360,8 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'Case 244 'RetISR Acreditable Terceros y Arrendamiento
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
|
||||
' importeMovimiento = importeRetISRAcreditable
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If CtaProveedorRetISR > 0 Then
|
||||
' IdCtaContable = CtaProveedorRetISR
|
||||
' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
|
||||
' Else
|
||||
' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
|
||||
' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
' 'Agregamos el Opuesto del 244 -> 243
|
||||
' If importeMovimiento <> 0 Then
|
||||
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
|
||||
' ErrorPrepoliza = True
|
||||
' End If
|
||||
' End If
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' End If
|
||||
' End If
|
||||
Case 64 'Ganancia
|
||||
|
||||
|
||||
CveSubProyectoInsertar = CveSubProyecto
|
||||
If CveSubProyectoInsertar <= 0 Then
|
||||
ErrorPrepoliza = True
|
||||
@@ -6482,30 +6402,7 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
importeMovimiento = 0
|
||||
End If
|
||||
'Case 285 'Ret IVA 6% Servicios
|
||||
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
|
||||
' 'If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
|
||||
' ' If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
' ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
' ' End If
|
||||
' 'End If
|
||||
|
||||
|
||||
' If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
|
||||
' If CveMoneda = 2 Then
|
||||
' importeMN = TxtRetIVA.Text.ToDecimal * TxtTC.Text.ToDecimal
|
||||
' Else
|
||||
' importeMN = TxtRetIVA.Text.ToDecimal
|
||||
' importeMovimiento = TxtRetIVA.Text.ToDecimal
|
||||
|
||||
' End If
|
||||
|
||||
' Else
|
||||
' importeMovimiento = 0
|
||||
' End If
|
||||
Case 6 'Compra
|
||||
|
||||
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
|
||||
@@ -6916,8 +6813,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
|
||||
'la diferencia se va aplicar sobre los
|
||||
|
||||
'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL
|
||||
@@ -6967,12 +6862,9 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
@@ -7150,15 +7042,11 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'LIMPIA
|
||||
importeMovimiento = 0
|
||||
IdCtaContable = 0
|
||||
@@ -7199,12 +7087,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'If CveCompraRefacturacion > 0 Then
|
||||
' importeMovimiento = 0
|
||||
' importeMN = 0
|
||||
' End If
|
||||
|
||||
|
||||
Case 59 'Documentos
|
||||
importeMovimiento = importeCreditos
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
@@ -7356,8 +7238,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -7707,12 +7587,8 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'** PRUEBA CUANDO SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19 ** JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
|
||||
'[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
|
||||
Dim tConceptoContable As Integer
|
||||
@@ -8418,8 +8294,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'VALIDAR ERRORES
|
||||
If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
|
||||
If ErrorDetalles Then
|
||||
@@ -8491,8 +8365,6 @@ Partial Class Compras_Compras
|
||||
MsgAccionAceptar = "location.href =""Compras.aspx"""
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
|
||||
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
|
||||
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
|
||||
@@ -8517,8 +8389,6 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'AJUSTA POLIZA
|
||||
If IdPoliza > 0 Then
|
||||
PolizaFolio = ObjContaAC.Folio
|
||||
@@ -8540,6 +8410,11 @@ Partial Class Compras_Compras
|
||||
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
|
||||
End If
|
||||
|
||||
If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
ObjCompras.Commit()
|
||||
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
|
||||
@@ -18057,9 +17932,13 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
|
||||
|
||||
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
|
||||
Dim extrafiltro = "Estatus=1 AND "
|
||||
If Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
|
||||
extrafiltro = ""
|
||||
End If
|
||||
DdlCultivosCuadro.Items.Clear()
|
||||
DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"{extrafiltro} CveSubProyecto = {DdlSubProyecto.SelectedValue}")
|
||||
DdlCultivosCuadro.DataBind()
|
||||
DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
|
||||
@@ -18897,7 +18776,7 @@ Partial Class Compras_Compras
|
||||
CompruebaAgregar()
|
||||
End If
|
||||
|
||||
Alert("SubProyectos cambiados correctamente", TipoMensaje.MsgInformacion)
|
||||
Alert("SubProyectos cambiados correctamente", TipoMensaje.ToastInformacion)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -18926,7 +18805,7 @@ Partial Class Compras_Compras
|
||||
CompruebaAgregar()
|
||||
End If
|
||||
|
||||
Alert("Los tipos de gastos han sido cambiados correctamente", TipoMensaje.MsgInformacion)
|
||||
Alert("Los tipos de gastos han sido cambiados correctamente", TipoMensaje.ToastInformacion)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -247,6 +247,7 @@ Partial Class PopUpVerFactura
|
||||
Dim SCAC As String = ""
|
||||
Dim CAAT As String = ""
|
||||
Dim NumeroTrailer As String = ""
|
||||
Dim Permiso As String = ""
|
||||
|
||||
|
||||
Dim tablaReporte As New DataTable
|
||||
@@ -257,7 +258,7 @@ Partial Class PopUpVerFactura
|
||||
'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
|
||||
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
NoEmbarque = row("NoEmbarque").ToString()
|
||||
Cliente = row("Cliente").ToString()
|
||||
@@ -282,7 +283,7 @@ Partial Class PopUpVerFactura
|
||||
LineaTransportacion = row("LineaTransportacion").ToString()
|
||||
SCAC = row("SCAC").ToString()
|
||||
CAAT = row("CAAT").ToString()
|
||||
|
||||
Permiso = row("Permiso").ToString()
|
||||
'If row("CveCamionRemolque1").ToString() = "1" Then
|
||||
' Rem1Placa = "12-TF-5E"
|
||||
' Remolque1 = "Remolque 1"
|
||||
@@ -292,12 +293,13 @@ Partial Class PopUpVerFactura
|
||||
|
||||
'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()
|
||||
If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
NoPallets = objnom.DtResultados.SUM("NoPallets").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
|
||||
@@ -307,7 +309,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Cliente", Cliente))
|
||||
params.Add(New ReportParameter("Direccion", Direccion))
|
||||
params.Add(New ReportParameter("Fecha", Fecha))
|
||||
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
||||
params.Add(New ReportParameter("SubProyecto", SubProyecto.ToUpper()))
|
||||
params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
|
||||
params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
|
||||
params.Add(New ReportParameter("Temperatura", Temperatura))
|
||||
@@ -317,6 +319,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Camion", Camion))
|
||||
params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
|
||||
params.Add(New ReportParameter("Remolque1", Remolque1))
|
||||
params.Add(New ReportParameter("Permiso", Permiso))
|
||||
|
||||
|
||||
params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
|
||||
@@ -343,7 +346,11 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto", Content_Disposition:="Inline")
|
||||
Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
|
||||
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
|
||||
rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
|
||||
End If
|
||||
ImprimirPDF(rutardlc, lrds, params, "Manifesto", Content_Disposition:="Inline")
|
||||
End Sub
|
||||
|
||||
Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
|
||||
@@ -392,7 +399,7 @@ Partial Class PopUpVerFactura
|
||||
'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
|
||||
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
NoEmbarque = row("NoEmbarque").ToString()
|
||||
Cliente = row("Cliente").ToString()
|
||||
@@ -438,7 +445,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
'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
|
||||
If objnom.EmbarquePalletGet(-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")
|
||||
@@ -547,7 +554,7 @@ Partial Class PopUpVerFactura
|
||||
'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
|
||||
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
NoEmbarque = row("NoEmbarque").ToString()
|
||||
Cliente = row("Cliente").ToString()
|
||||
@@ -593,7 +600,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
'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
|
||||
If objnom.EmbarquePalletGet(-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")
|
||||
@@ -684,7 +691,7 @@ Partial Class PopUpVerFactura
|
||||
'noPallet = "000001"
|
||||
'Variedad = "Golden"
|
||||
Using objnom As New ClsNominas
|
||||
If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
Envase = row("Envase").ToString()
|
||||
Tamano = row("Tamaño").ToString()
|
||||
@@ -754,7 +761,7 @@ Partial Class PopUpVerFactura
|
||||
'Cultivo = "Tomate"
|
||||
'noPallet = "000001"
|
||||
Using objnom As New ClsNominas
|
||||
If objnom.PA_Agro_Embarque_PalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
||||
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
||||
Envase = row("Envase").ToString()
|
||||
Tamano = row("Tamaño").ToString()
|
||||
|
||||
@@ -123,6 +123,9 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
|
||||
txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
|
||||
|
||||
If CveCultivo.ToEntero() > 0 AndAlso FechaI = "-1" AndAlso Anio = "-1" AndAlso Mes = "-1" AndAlso AnioMes = "-1" Then
|
||||
txtFechaI.Text = "01/01/1900"
|
||||
End If
|
||||
If Fecha <> "-1" Then
|
||||
txtFechaI.Text = Fecha
|
||||
txtFechaF.Text = Fecha
|
||||
|
||||
Reference in New Issue
Block a user