10.A. Formato de devolución como la entrada de almacén por compra.
This commit is contained in:
rakcsle
@@ -7522,11 +7522,29 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
'5, 305, 306, 311
|
||||
If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
'''Empresas VSH
|
||||
If (Not ErrorPrepoliza) AndAlso ConceptoContable = 14 AndAlso UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso RBLPago.SelectedValue.ToEntero = 3 AndAlso RBLContado.SelectedValue.ToEntero.Contiene(6, 2) Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If Not ErrorPrepoliza Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, True, False), importeMovimiento, importeMN.RoundSQL, 19, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
@@ -3273,6 +3273,8 @@ Partial Class PopUpVerFactura
|
||||
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
||||
Else
|
||||
|
||||
|
||||
|
||||
params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
|
||||
params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
|
||||
params.Add(New ReportParameter("Folio", Folio.ToString))
|
||||
@@ -4199,7 +4201,7 @@ Partial Class PopUpVerFactura
|
||||
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
||||
Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
|
||||
Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
|
||||
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
|
||||
|
||||
params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
|
||||
params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
|
||||
'params.Add(New ReportParameter("Folio", Folio.ToString))
|
||||
@@ -4220,9 +4222,33 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
||||
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDecimal.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
||||
|
||||
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
||||
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(189) Then
|
||||
|
||||
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN A PROVEEDOR"))
|
||||
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
|
||||
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
|
||||
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
|
||||
params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), "")))
|
||||
params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
||||
params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, "")))
|
||||
params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, "")))
|
||||
params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), "")))
|
||||
params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCSerieFolioVinculada").ToString, "")))
|
||||
Dim Fecha2 As String = String.Format("{0} {1}", FechaHora.ToDate.ToString("dd/MM/yyyy"), FechaHora.ToDateTime.ToString("HH:mm:ss"))
|
||||
params.Add(New ReportParameter("Fecha", Fecha2))
|
||||
params.Add(New ReportParameter("NombreCapturo", dr("NombreCapturo").ToString))
|
||||
|
||||
Else
|
||||
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
||||
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", Fecha))
|
||||
params.Add(New ReportParameter("Observaciones", Observaciones))
|
||||
|
||||
@@ -680,6 +680,11 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
Pago.TCPago = TipoCambioPago
|
||||
Pago.CvePersonal =CvePersonal
|
||||
ImportePagoTotal = ImportePagoTotal + ImporteMovto
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
||||
Pago.AplicaAcreditable = False
|
||||
End If
|
||||
|
||||
'Otros Ingresos
|
||||
If MsgError = "" AndAlso (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then
|
||||
Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal
|
||||
@@ -756,6 +761,10 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
MsgError = "no se pudo insertar el detalle de la poliza"
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
||||
Pago.AplicaAcreditable = False
|
||||
End If
|
||||
|
||||
If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
@@ -319,6 +319,7 @@
|
||||
|
||||
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-4">
|
||||
|
||||
@@ -744,12 +744,26 @@ Partial Class Compras_eFacturas
|
||||
ViewState("DTTraslados") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property EsGrupoDiaz As Boolean
|
||||
Get
|
||||
If ViewState("EsGrupoDiaz") Is Nothing Then
|
||||
ViewState("EsGrupoDiaz") = False
|
||||
End If
|
||||
Return CType(ViewState("EsGrupoDiaz"), Boolean)
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
ViewState("EsGrupoDiaz") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
'EsGrupoDiaz = False ' If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False)
|
||||
|
||||
ChecandoCorreo = False
|
||||
|
||||
ViewState("Orden") = String.Empty
|
||||
@@ -784,7 +798,8 @@ Partial Class Compras_eFacturas
|
||||
End If
|
||||
If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(13).Visible = False
|
||||
If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(7).Visible = True
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1 Then
|
||||
|
||||
If (UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveRol = 1) Or EsGrupoDiaz Then
|
||||
LnkRegistarFactura.Visible = True
|
||||
End If
|
||||
|
||||
@@ -793,14 +808,16 @@ Partial Class Compras_eFacturas
|
||||
MostrarSolcitudesSAT()
|
||||
|
||||
'CARGA REGISTRO DE FACTURA
|
||||
If EsGrupoDiaz Then
|
||||
CargaClasificacionesComprobaciones()
|
||||
CargaClasificaciones()
|
||||
CargaPS(-1)
|
||||
CargaPersoanlCajaChica()
|
||||
CargaPersonalViaticos()
|
||||
CargaDdlRetIVA()
|
||||
CargaDdlRetISR()
|
||||
End If
|
||||
|
||||
'CargaClasificacionesComprobaciones()
|
||||
'CargaClasificaciones()
|
||||
'CargaPS(-1)
|
||||
'CargaPersoanlCajaChica()
|
||||
'CargaPersonalViaticos()
|
||||
'CargaDdlRetIVA()
|
||||
'CargaDdlRetISR()
|
||||
|
||||
Dim LblSubProyectoTemp As New Label
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoTemp, "Seleccione")
|
||||
@@ -6864,8 +6881,15 @@ Public Class ClsCompraManager
|
||||
|
||||
Dim DrTipoGasto As DataRow = Me.DTTiposGastos.FiltroPrimero("")
|
||||
|
||||
DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
|
||||
DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
|
||||
If DrTipoGasto Is Nothing Then
|
||||
DrPS("CveTipoGasto") = -1
|
||||
DrPS("TipoGasto") = ""
|
||||
Else
|
||||
DrPS("CveTipoGasto") = DrTipoGasto("CveTipoGasto")
|
||||
DrPS("TipoGasto") = DrTipoGasto("TipoGasto")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then
|
||||
DrPS("AplicaCostoIndirecto") = "0"
|
||||
|
||||
Reference in New Issue
Block a user