Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rakcsle
@@ -9521,8 +9521,7 @@ Public Class ClsPaginas
|
||||
|
||||
#Region "P A G O D E C O M P R A S "
|
||||
|
||||
|
||||
Public Function AplicaPrePolizaPago(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
|
||||
Public Function AplicaPrePolizaPagoCompra(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
|
||||
Dim ErrorMovtos As Boolean = False
|
||||
Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
|
||||
Dim ImporteMovimiento As Decimal = 0
|
||||
@@ -9671,15 +9670,17 @@ Public Class ClsPaginas
|
||||
If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
|
||||
Dim tOtCveCon As Integer = 211
|
||||
Dim tOtTipoMovto As Boolean = False
|
||||
Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0)
|
||||
If ImporteMovimiento < 0 Then
|
||||
tOtTipoMovto = True : tOtCveCon = 78
|
||||
ImporteMovimiento = Math.Abs(ImporteMovimiento)
|
||||
IdCta = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.IdCuentaOtrosIngresos, 0)
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, 0, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tOtTipoMovto, ImporteMovimiento, ImporteMovimiento, tOtCveCon, CompraActual.SerieFolio, Concepto, IdCta, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, CveSubProyecto:=CompraActual.CveSubProyecto, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME) Then ErrorMovtos = True
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorMovtos AndAlso CompraActual.TC <> Pago.TCPago Then
|
||||
If Not ErrorMovtos AndAlso TCValuacion <> Pago.TCPago Then
|
||||
Dim ConceptoContable, IdCtaContable As Integer
|
||||
Dim TipoMovimiento As Boolean
|
||||
Dim Diferencia As Decimal = 0
|
||||
@@ -9805,11 +9806,11 @@ Public Class ClsPaginas
|
||||
Ret.CveConceptoAcreditable = 249
|
||||
Ret.CveConceptoxAcreditar = 248
|
||||
ElseIf CveConceptoRetIVA = 5 Then
|
||||
Funcionalidad = 578
|
||||
Funcionalidad = 578 : FuncionalidadxAcred = 578
|
||||
Ret.CveConceptoAcreditable = 286
|
||||
Ret.CveConceptoxAcreditar = 285
|
||||
ElseIf CveConceptoRetIVA = 6 Then
|
||||
Funcionalidad = 578
|
||||
Funcionalidad = 578 : FuncionalidadxAcred = 578
|
||||
Ret.CveConceptoAcreditable = 333
|
||||
Ret.CveConceptoxAcreditar = 334
|
||||
End If
|
||||
|
||||
@@ -4832,7 +4832,7 @@ Public Class Timbrado
|
||||
|
||||
If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
|
||||
For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
|
||||
cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####").ToDouble(), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####").ToDouble(), concep.Importe, concep.Descuento, concep.ObjetoImpuesto)
|
||||
cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento, concep.ObjetoImpuesto)
|
||||
For Each imp As CFDIConceptosImpuestos In concep.Impuestos
|
||||
If imp.TrasladooRetencion = "T" Then
|
||||
cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
|
||||
|
||||
@@ -5965,7 +5965,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
Pago.CveCreditoDetalle = CveCreditoDetalle
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -6036,7 +6036,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
'Pago.CveConceptoPago = CveConceptoPago
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
End If
|
||||
|
||||
Case 14 'IVA X Acreditar
|
||||
@@ -6091,14 +6091,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
'Case 224 'Otros impuestos
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' importeMovimiento = OtrosImpuestos
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||
' End If
|
||||
|
||||
Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then
|
||||
@@ -7044,7 +7036,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -7093,7 +7084,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = -1
|
||||
Pago.CvePersonal = CvePersonal
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7247,7 +7238,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7290,7 +7281,7 @@ Partial Class Compras_Compras
|
||||
Pago.TCPago = Ant.TCCompra
|
||||
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
@@ -7402,9 +7393,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'' A N T I C I P O S
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
If ArrAnticipos.Count > 0 Then
|
||||
@@ -7472,7 +7460,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'' F U N C I O N A R I O S Y E M P L E A D O S
|
||||
If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
|
||||
TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
|
||||
@@ -7486,25 +7473,20 @@ Partial Class Compras_Compras
|
||||
'se agrego un movimiento de pago
|
||||
|
||||
If CveIE > 0 Then
|
||||
|
||||
If ImporteCompra <> 0 Then
|
||||
'inserto los movimientos de la conta para abonar al saldo
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImporteCompra
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
ErrorMovtosIE = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'movimiento de compra
|
||||
'[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero]
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then
|
||||
@@ -7619,7 +7601,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveCompraAmortizacion = CveCompraNC
|
||||
Pago.CveConceptoPago = CveConceptoPago
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
Else
|
||||
ErrorMovtosCxP = True
|
||||
@@ -7727,7 +7709,7 @@ Partial Class Compras_Compras
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
Else
|
||||
ErrorMovtosCxP = True
|
||||
|
||||
@@ -113,6 +113,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CveCuentaBancaria = -1
|
||||
ViewState("CveMoneda") = 1
|
||||
CveMonedaPago = 1
|
||||
TipoCambioPago = 1
|
||||
Folio = ""
|
||||
|
||||
'Cargar Filtros
|
||||
@@ -547,7 +548,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
Else
|
||||
If drp IsNot Nothing Then
|
||||
If drp("IdPoliza").ToString.ToEntero > 0 Then
|
||||
If drp("FolioPoliza").ToString.ToEntero > 0 Then
|
||||
CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
IdPoliza = drp("IdPoliza").ToString.ToEntero
|
||||
Else
|
||||
@@ -749,7 +750,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
If AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
End If
|
||||
@@ -798,6 +799,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CveIEPago = 0
|
||||
Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
|
||||
CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, TxtFechaPrePoliza.Text.ToDate, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
|
||||
TipoCambioPago = 1
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -811,7 +813,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
MsgError = "no se pudo insertar el detalle de la poliza"
|
||||
End If
|
||||
|
||||
If Not AplicaPrePolizaPago(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
If Not AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then
|
||||
MsgError = "Detalle"
|
||||
End If
|
||||
|
||||
|
||||
@@ -434,6 +434,10 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
|
||||
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
|
||||
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
|
||||
'DivAgregarConceptos.Visible = True
|
||||
LnkAddConcepto.Visible = True
|
||||
|
||||
@@ -20,7 +20,7 @@
|
||||
<%--<asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" /> --%>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkCerrar" runat="server"><i class="fa fa-print"></i> Cerrar Ejercicio</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkCerrar" runat="server" visible="false"><i class="fa-solid fa-shield" ></i> Cerrar Ejercicio</asp:LinkButton>
|
||||
</li>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
@@ -603,8 +603,8 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" style="width: 90px;">Cuentas:</label>
|
||||
<div class="col-md-2" style="width: 125px;">
|
||||
<asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100px">
|
||||
<div class="col-md-5">
|
||||
<asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100%">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -173,6 +173,7 @@ Partial Class AC2_SituacionFinanciera
|
||||
DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlSubproyecto.DataBind()
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True
|
||||
|
||||
'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
|
||||
DdlPeriodo.SelectedValue = Now.Month.ToString
|
||||
|
||||
@@ -518,7 +518,7 @@
|
||||
|
||||
<%--GV DATOS--%>
|
||||
<asp:GridView ID="GvDatos" runat="server" EmptyDataText="Aun no hay registros." AutoGenerateColumns="False" ShowFooter="True" ShowHeader="true" ShowHeaderWhenEmpty="True"
|
||||
DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,AplicaSerieLote,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
|
||||
DataKeyNames="Consec,CvePS,Codigo,CodigoBarras,CveUM,CantidadC,CantidadF,UM,PS,CveClasificacion,CveCategoria,CveVentaDetalle,CveTamaño,AplicaSeccion, AplicaSerie,AplicaLote,AplicaCaducidad" HeaderStyle-CssClass="Titulos" CssClass="table table-striped table-hover Widthall ScrollAD gvInventario mysmallbtn" data-heighterror="450" data-freezerows="1" GridLines="None">
|
||||
<HeaderStyle Height="30px" />
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
|
||||
@@ -938,7 +938,6 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
e.Row.FCTextBox("TbCantidadF").Text = "0"
|
||||
End If
|
||||
|
||||
|
||||
If TipoDocto = "DPe" Then
|
||||
CveConsecSerie = e.Row.DBCampo("Consec").ToString().ToEntero()
|
||||
PSSerie = e.Row.DBCampo("PS").ToString()
|
||||
@@ -976,15 +975,7 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
|
||||
If DdlAlmacen.SelectedValue.ToEntero() > 0 Then
|
||||
CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero(), UsuarioActual.CveEmpresa, True)
|
||||
'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero(), e.Row.DBCampo("CvePS").ToEntero())
|
||||
'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
|
||||
'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
|
||||
'If dtt.Rows.Count > 1 Then
|
||||
' e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'End If
|
||||
'dtt.Dispose()
|
||||
End If
|
||||
|
||||
Else
|
||||
e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = False
|
||||
End If
|
||||
@@ -1027,19 +1018,27 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
|
||||
|
||||
'FUNCIONALIDAD PISTOLA DE CODIGOS
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
|
||||
e.Row.FCTextBox("TbCantidadF").Text = "0"
|
||||
If e.Row.DBCampo("CodigoBarras").Trim <> "" AndAlso UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||
|
||||
'NO BLOQUEA PARA ROL AD
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
If AplicaSerie Then
|
||||
e.Row.FCTextBox("TbCantidadF").Enabled = False
|
||||
e.Row.FCTextBox("TbCantidadF").Text = "0"
|
||||
Else
|
||||
e.Row.FCTextBox("TbCantidadF").Text = e.Row.DBCampo("CantidadF").ToDecimal.ToString("#,##0.######")
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not UsuarioActual.CveRol = 1 Then
|
||||
e.Row.FCTextBox("TbCantidadF").Enabled = False
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'acumuladoras
|
||||
If e.Row.DBCampo("CveCategoria") <> "249" Then
|
||||
e.Row.FCTextBox("TbCantidadF").Enabled = True
|
||||
End If
|
||||
Else
|
||||
If Not UsuarioActual.CveRol = 1 Then
|
||||
e.Row.FCTextBox("TbCantidadF").Enabled = False
|
||||
e.Row.FCTextBox("TbCantidadF").Text = "0"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1048,7 +1047,6 @@ Partial Class Inventarios_EntregaAlmacen
|
||||
e.Row.FCCheckBox("cbInv").Enabled = False
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -1537,14 +1537,14 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
End If
|
||||
|
||||
If CBool(e.Row.DBCampo("AplicaCaducidad")) Then
|
||||
e.Row.FCTextBox("TxtCaducidad").Visible = True
|
||||
e.Row.FCLinkButton("LnkCaducidad").Visible = True
|
||||
e.Row.FCTextBox("TxtCaducidad").Text = Now.ToShortDateString
|
||||
e.Row.FCTextBox("TxtDividir").Visible = True
|
||||
Else
|
||||
e.Row.FCTextBox("TxtCaducidad").Visible = False
|
||||
e.Row.FCLinkButton("LnkCaducidad").Visible = False
|
||||
End If
|
||||
e.Row.FCTextBox("TxtCaducidad").Visible = True
|
||||
e.Row.FCLinkButton("LnkCaducidad").Visible = True
|
||||
e.Row.FCTextBox("TxtCaducidad").Text = Now.ToShortDateString
|
||||
e.Row.FCTextBox("TxtDividir").Visible = True
|
||||
Else
|
||||
e.Row.FCTextBox("TxtCaducidad").Visible = False
|
||||
e.Row.FCLinkButton("LnkCaducidad").Visible = False
|
||||
End If
|
||||
|
||||
If CBool(e.Row.DBCampo("AplicaLote")) Then
|
||||
e.Row.FCTextBox("TxtLote").Visible = True
|
||||
@@ -2315,7 +2315,7 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"))
|
||||
Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:= (TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm"))
|
||||
If Existencia < ExistenciaActual Then
|
||||
MensajeExistencias.Append($"Producto: <b>{GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}</b>.</br>")
|
||||
Continue For
|
||||
@@ -3242,6 +3242,12 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveTipoAlmacen").ToEntero()
|
||||
If CveTipoAlmacen = 21 Then 'tipo: devs a proveedore
|
||||
RealizarMovimientoVirtual = False
|
||||
End If
|
||||
|
||||
If RealizarMovimientoVirtual Then
|
||||
|
||||
Dim DtPSVirtual As New DataTable("DtTamanios")
|
||||
|
||||
@@ -365,7 +365,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
Private Sub CargaMovimientoGarantia(CveFolioGarantia As Integer)
|
||||
Using ObjAcum As New ClsAcumuladores
|
||||
If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia) Then
|
||||
If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=1) Then
|
||||
''carga
|
||||
Dim dra As DataRow = ObjAcum.DtResultados(0)
|
||||
DivMov.Visible = True
|
||||
@@ -572,7 +572,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
If TxtnSerie.Visible Then
|
||||
Cantidad = 1
|
||||
If String.IsNullOrEmpty(TxtnSerie.Text.Trim()) OrElse String.IsNullOrWhiteSpace(TxtnSerie.Text.Trim()) Then
|
||||
Alert("Serie es necesario", TipoMensaje.MsgAdvertencia)
|
||||
Alert("Serie es necesario.", TipoMensaje.MsgAdvertencia)
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -641,7 +641,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
tLote = If(TxtnLote.Visible, TxtnLote.Text, "-1")
|
||||
tCaducidad = If(TxtnFechaCaducidad.Visible, TxtnFechaCaducidad.Text.ToDate, MinFecha)
|
||||
|
||||
Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
|
||||
Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1").Trim
|
||||
|
||||
Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
|
||||
|
||||
@@ -738,7 +738,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
registro.Item("CvePS") = CvePS
|
||||
registro.Item("PS") = DrPS("PSCodigo")
|
||||
registro.Item("Observaciones") = Observaciones
|
||||
registro.Item("Serie") = Serie
|
||||
registro.Item("Serie") = Serie.Trim
|
||||
registro.Item("Lote") = Lote
|
||||
If FechaCaducidad > MinFecha Then registro.Item("FechaCaducidad") = FechaCaducidad
|
||||
registro.Item("CveClasificacion") = CveClasificacion
|
||||
@@ -1486,7 +1486,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Private Sub CargaGvDatos()
|
||||
EscondeColumnasGVM(DtMovimientos)
|
||||
|
||||
GvDatos.DataSource = DtMovimientos
|
||||
GvDatos.DataSource = DtMovimientos.FiltraParametros("", "No desc")
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
@@ -1798,13 +1798,6 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenRecepcion.SelectedValue.ToEntero > 0 Then
|
||||
|
||||
CargaSeccionesAlmacen(e.Row.FCDropDownList("DdlSeccionAlmacen"), DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero, UsuarioActual.CveEmpresa)
|
||||
'Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenRecepcion.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
|
||||
'e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
|
||||
'e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
|
||||
'If dtt.Rows.Count > 1 Then
|
||||
' e.Row.FCDropDownList("DdlSeccionAlmacen").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
'End If
|
||||
'dtt.Dispose()
|
||||
|
||||
End If
|
||||
|
||||
@@ -1821,9 +1814,12 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
'FUNCIONALIDAD PISTOLA DE CODIGOS
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
|
||||
e.Row.FCTextBox("TxtCantidad").Enabled = False
|
||||
If e.Row.DBCampo("CveCategoria") <> "249" Then
|
||||
e.Row.FCTextBox("TxtCantidad").Enabled = True
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCancelarTraspaso_Click(sender As Object, e As EventArgs)
|
||||
@@ -2364,9 +2360,9 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
TdSeriePS.Visible = False
|
||||
|
||||
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text}'")
|
||||
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero($"CodigoBarras = '{TxtCodigoPS.Text.Trim}'")
|
||||
If DrPS Is Nothing Then
|
||||
Alert($"No se ha encontrado un producto del Codigo ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
|
||||
Alert($"No se ha encontrado un producto del Código: ""<b>{TxtCodigoPS.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus,200);")
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
TxtCodigoPS.Text = ""
|
||||
Exit Sub
|
||||
@@ -2392,7 +2388,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Dim Valido = ValidaExistencia(1, CvePSSerie, CveUMSerie, -1, TxtSeriePS.Text.Trim, "-1", MinFecha)
|
||||
|
||||
If Valido Then
|
||||
AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim)
|
||||
AgregarPS(1, CvePSSerie, CveUMSerie, Serie:=TxtSeriePS.Text.Trim.ToUpper)
|
||||
Else
|
||||
TxtSeriePS.Text = ""
|
||||
TxtSeriePS.Focus()
|
||||
@@ -2444,7 +2440,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
If Existe Then
|
||||
Alert($"Ya se ha cargado la totalidad del Producto ""<b>{PSTemp}</b>"" con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
Else
|
||||
Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
Alert($"No se ha encontrado un producto para surtir con el Código: ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
End If
|
||||
|
||||
RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
|
||||
@@ -2458,7 +2454,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
End If
|
||||
|
||||
For Each Gvr As GridViewRow In GvDatosRecepcion.Rows
|
||||
If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim And Gvr.DataKey("Serie") = TxtSeriePSRecepcion.Text.Trim Then
|
||||
If Gvr.DataKey("CodigoBarras") = TxtCodigoPSRecepcion.Text.Trim And Gvr.DataKey("Serie") = TxtSeriePSRecepcion.Text.Trim.ToUpper Then
|
||||
Dim TxtCantidad = GvDatosRecepcion.Rows(Gvr.RowIndex).FCTextBox("TxtCantidad")
|
||||
If Gvr.DataKey("Cantidad").ToDecimal - TxtCantidad.Text.ToDecimal - 1 >= 0 Then
|
||||
|
||||
@@ -2470,15 +2466,15 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Alert($"Ya se ha cargado la totalidad del Producto ""<b>{Gvr.DataKey("PS").ToString}</b>"" con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
Alert($"Ya se ha cargado la totalidad del Producto ""<b>{Gvr.DataKey("PS").ToString}</b>"" con el Código ""<b>{TxtCodigoPSRecepcion.Text}</b>"".", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
Alert($"No se ha encontrado un producto para surtir con el Codigo ""<b>{TxtCodigoPSRecepcion.Text}</b>"". Serie:{TxtSeriePSRecepcion.Text.Trim} ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus1,200);")
|
||||
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
|
||||
'Alert($"Ya se han cargado todos los productos o no se ha encontrado un producto de la Serie ""<b>{TxtSeriePSRecepcion.Text}</b>"". ", TipoMensaje.MsgAdvertencia, "window.setTimeout(Focus2,200);")
|
||||
|
||||
TxtSeriePSRecepcion.Text = ""
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
30
OC/OC.aspx
30
OC/OC.aspx
@@ -255,7 +255,7 @@
|
||||
<%--linea 5--%>
|
||||
<div class="row" style="padding-bottom: 0.6em;">
|
||||
<b>
|
||||
<asp:Label runat="server" ID="LblFechaEstimada" Text="Fecha Estimada:" class="col-md-2" /></b>
|
||||
<asp:Label runat="server" ID="LblFechaEstimada" Text="F. Estimada:" class="col-md-2" /></b>
|
||||
<div class="col-md-4" id="DivFechaEstimada" runat="server">
|
||||
<div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 80% !important; padding: 0px;">
|
||||
<asp:TextBox ID="TxtFechaEstimadaEntrega" runat="server" ClientIDMode="Static" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
|
||||
@@ -284,25 +284,19 @@
|
||||
</div>
|
||||
</div>
|
||||
<%--linea 6--%>
|
||||
<asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel ID="UPProv" runat="server" UpdateMode="Conditional" RenderMode="Inline" style="class=Row">
|
||||
<ContentTemplate>
|
||||
<div id="PnlProveedor" runat="server" style="padding-bottom: 0.6em;">
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-2">Proveedor:</label>
|
||||
<div class="col-md-9">
|
||||
<%--<asp:DropDownList ID="DdlProveedores" CssClass="select2me" AutoPostBack="True" Style="width: 100%;" runat="server" DataTextField="NombreCortoProveedor" DataValueField="CveProveedor">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>--%>
|
||||
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
|
||||
<%--<asp:RangeValidator ID="RVProveedores" CssClass="form-control" runat="server" ControlToValidate="DdlProveedores" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCOProveedores" runat="server" HighlightCssClass="vco" TargetControlID="RVProveedores" Width="300px"></ajax:ValidatorCalloutExtender>--%>
|
||||
<asp:ImageButton ID="ImgCambiaProv" Visible="false" ImageUrl="/Imagenes/accept.png" runat="server" />
|
||||
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
|
||||
</div>
|
||||
<div class="col-md-1" style="padding-left: 0px;">
|
||||
<asp:LinkButton runat="server" Visible="false" ID="ImgCambiaProv" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea actualizar proveedor?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Actualizar Proveedor" />
|
||||
<asp:Label ID="LblLeyendaProveedorIVA" runat="server" Width="100%" Text="" Font-Italic="True"></asp:Label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -326,10 +320,7 @@
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
|
||||
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-2"><b>IVA A Facturar:</b> </label>
|
||||
<div class="col-md-2">
|
||||
<asp:UpdatePanel ID="UpDdlIVA" runat="server" UpdateMode="Conditional">
|
||||
@@ -438,16 +429,11 @@
|
||||
</tr>
|
||||
<tr id="TrUsuarioAsignado" runat="server" visible="False">
|
||||
<td colspan="2">
|
||||
<asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td></td>
|
||||
<td>
|
||||
<asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
|
||||
<asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
|
||||
<asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
<tr>
|
||||
</tr>
|
||||
<tr id="trCfdi" style="display:none;" >
|
||||
<td>
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
|
||||
@@ -2218,9 +2218,18 @@ Partial Class OC_OC
|
||||
End If
|
||||
End If
|
||||
|
||||
'Si es Proveedor Extranjero el IVA es 0%
|
||||
If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
|
||||
IvaPS = 0
|
||||
If DdlProveedores.SelectedValue.ToEntero > 0 Then
|
||||
'Si es Proveedor Extranjero el IVA es 0%
|
||||
Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
|
||||
If drProv IsNot Nothing Then
|
||||
If drProv("RFC").ToString = "XEXX010101000" Then
|
||||
IvaPS = 0
|
||||
End If
|
||||
If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
|
||||
RetISR = 0.0125
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDecimal, TotalPS,
|
||||
@@ -4026,7 +4035,19 @@ Partial Class OC_OC
|
||||
' IEPSPSIVA = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDecimal, 0)
|
||||
End If
|
||||
|
||||
If DdlProveedores.SelectedValue.ToEntero > 0 Then
|
||||
'Si es Proveedor Extranjero el IVA es 0%
|
||||
Dim drProv As DataRow = GlobalDTCompProveedores(CveEmpresaActual, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimero("")
|
||||
|
||||
If drProv IsNot Nothing Then
|
||||
If drProv("RFC").ToString = "XEXX010101000" Then
|
||||
IvaPS = 0
|
||||
End If
|
||||
If drProv("CodigoRegimenFiscal").ToString = "626" Then 'simplificado lleva retencion de 1.25 de isr
|
||||
RetISR = 0.0125
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
CveSubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero
|
||||
SubProyecto = gvr.FCDropDownList("DdlSubProyectoEdit").SelectedItem.Text
|
||||
@@ -4038,8 +4059,6 @@ Partial Class OC_OC
|
||||
Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
||||
CveProyecto = -1
|
||||
Proyecto = "Seleccione"
|
||||
@@ -4082,9 +4101,6 @@ Partial Class OC_OC
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'Agarra el nuevo AF si se modifico o deja el pasado
|
||||
CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
|
||||
Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
|
||||
@@ -6959,7 +6975,7 @@ Partial Class OC_OC
|
||||
#End Region
|
||||
|
||||
#Region " ACTUALIZA OC "
|
||||
Protected Sub ImgCambiaProv_Click(sender As Object, e As ImageClickEventArgs) Handles ImgCambiaProv.Click
|
||||
Private Sub ImgCambiaProv_Click(sender As Object, e As EventArgs) Handles ImgCambiaProv.Click
|
||||
Dim OC As New ClsOC
|
||||
If OC.UpdateProveedorOrdenCompra(DdlProveedores.SelectedValue.ToEntero, CveOrdenCompra, UsuarioActual.CveUsuario, CveEmpresaActual) Then
|
||||
CargaHistorial()
|
||||
|
||||
Reference in New Issue
Block a user