Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
Rakcsle Supertramp
@@ -1875,7 +1875,7 @@ Public Class ClsInventarios
|
||||
Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha,
|
||||
Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
|
||||
Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
|
||||
Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal
|
||||
Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional ExcluyeTransitorios As Integer = -1) As Decimal
|
||||
Dim Retorno As Decimal = -1
|
||||
|
||||
If FechaMovto = "-1" Then
|
||||
@@ -1900,6 +1900,7 @@ Public Class ClsInventarios
|
||||
.Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
|
||||
.Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
|
||||
.Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
|
||||
.Add("@ExcluyeTransitorios", SqlDbType.Int).Value = ExcluyeTransitorios
|
||||
.Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
|
||||
|
||||
.Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output
|
||||
@@ -1927,7 +1928,7 @@ Public Class ClsInventarios
|
||||
Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1,
|
||||
Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha,
|
||||
Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1,
|
||||
Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
|
||||
Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional ExcluyeTransitorios As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Inv_ExistenciasGet")
|
||||
|
||||
@@ -1948,6 +1949,7 @@ Public Class ClsInventarios
|
||||
.Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado
|
||||
.Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir
|
||||
.Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados
|
||||
.Add("@ExcluyeTransitorios", SqlDbType.Int).Value = ExcluyeTransitorios
|
||||
.Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes
|
||||
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
|
||||
|
||||
|
||||
@@ -446,7 +446,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
HlSaldarCuentasSinPagar.Visible = True
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 And CveUsuarioProgramo <> -1 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) And CveUsuarioProgramo <> -1 Then
|
||||
LnkPDFSolicitud.Visible = True
|
||||
LnkExcelSolicitud.Visible = True
|
||||
End If
|
||||
@@ -942,6 +942,9 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
Dim TipoCambioGeneral As Decimal = 0
|
||||
Dim tipoCambioCompraValuacion As Decimal = 1
|
||||
|
||||
Dim UsaComplementariaBancos As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False)
|
||||
Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False)
|
||||
|
||||
Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
|
||||
|
||||
Dim TipoCambioFluctuacion As Decimal = 1
|
||||
@@ -1046,7 +1049,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
IdCtaContable = IdCtaContComplementaria
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
If ImporteMovimiento <> 0 AndAlso (UsuarioActual.CveEmpresa = 119 Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos
|
||||
If ImporteMovimiento <> 0 AndAlso (UsaComplementariaProveedores Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos
|
||||
importeMX = ImporteMovimiento
|
||||
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion, CveCuenta:=CveCuentaComplementaria) Then
|
||||
MsgError = "No se pudo insertar la póliza"
|
||||
@@ -2034,7 +2037,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
|
||||
If (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then
|
||||
If TipoCambioPago > 1 AndAlso CveMoneda = 2 Then
|
||||
If UsuarioActual.CveEmpresa = 119 Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then
|
||||
If UsaComplementariaBancos Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then
|
||||
If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
|
||||
TipoCambioPago = TxtTCDolares.Text.ToDecimal
|
||||
ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then
|
||||
@@ -3121,6 +3124,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
Dim CveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero
|
||||
Dim FechaCompra As Date = gr.DataKey("Fecha").ToDate
|
||||
Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero
|
||||
Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False)
|
||||
|
||||
Dim CveConceptoContablePago As Integer = 17
|
||||
If gr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContablePago = 308 'cuando es acreedor
|
||||
@@ -3141,7 +3145,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
|
||||
If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
|
||||
IdCtaContable = IdCtaContComplementaria
|
||||
CveCuenta = CveCuentaProveedorExtranjera
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, CveCuenta:=CveCuentaComplementaria) Then
|
||||
|
||||
@@ -4604,19 +4604,18 @@ Partial Class Compras_Compras
|
||||
CveEstatusFactura = 6
|
||||
End If
|
||||
'hay amortización directa como descuento. RMF Temporal
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then
|
||||
' TxtDescuento.Text = LblAmortizacion.Text
|
||||
' LblAmortizacion.Text = "0.00"
|
||||
'End If
|
||||
|
||||
'o si el descuento es igual a la amortizacion
|
||||
'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then
|
||||
' TxtDescuento.Text = LblAmortizacion.Text
|
||||
' LblAmortizacion.Text = "0.00"
|
||||
'End If
|
||||
'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then
|
||||
' TxtDescuento.Text = LblAmortizacion.Text
|
||||
' LblAmortizacion.Text = "0.00"
|
||||
'End If
|
||||
|
||||
'o si el descuento es igual a la amortizacion
|
||||
'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then
|
||||
' TxtDescuento.Text = LblAmortizacion.Text
|
||||
' LblAmortizacion.Text = "0.00"
|
||||
'End If
|
||||
|
||||
End If
|
||||
'si el registro es manual, toma el mismo dato
|
||||
If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal
|
||||
|
||||
@@ -5030,7 +5029,7 @@ Partial Class Compras_Compras
|
||||
|
||||
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then
|
||||
AutoConta = False
|
||||
End If
|
||||
|
||||
@@ -6897,7 +6896,7 @@ Partial Class Compras_Compras
|
||||
|
||||
If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
|
||||
'GASTO
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
|
||||
DT = TmpDT
|
||||
Else
|
||||
DT = TmpDT.FiltraParametros("ISNULL(AplicaCostoIndirecto,0) <> 1")
|
||||
@@ -7034,6 +7033,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Case 5 'Proveedores
|
||||
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
|
||||
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
|
||||
If tipoCambioActual <> 1 Then
|
||||
Select Case ConceptoContable
|
||||
Case 5
|
||||
@@ -7059,7 +7059,7 @@ Partial Class Compras_Compras
|
||||
Else
|
||||
IdCtaContable = CtaProveedorComplementaria
|
||||
CveCuenta = CveCuentaProveedorComplementaria
|
||||
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
|
||||
If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 OrElse UsaComplementaria) Then 'Cuando tiene complementaria lo dividimos en dos Then
|
||||
importeMN = importeMovimiento
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
@@ -15228,7 +15228,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||
' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||
DivOCVinculaInv.Visible = True
|
||||
End If
|
||||
|
||||
@@ -15270,7 +15270,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'PROMOCIONES
|
||||
LtOCPromocion.Text = StrPromos.ToString
|
||||
If LtOCPromocion.Text.Length > 0 And UsuarioActual.CveEmpresa = 119 Then
|
||||
If LtOCPromocion.Text.Length > 0 And UsuarioActual.CveEmpresa.Contiene(119, 158) Then
|
||||
DivOCPromocion.Visible = True
|
||||
End If
|
||||
|
||||
@@ -15544,12 +15544,6 @@ Partial Class Compras_Compras
|
||||
'If DdlOCVinculaInv.SelectedValue.ToEntero = 237 And Not CveFlete > 0 Then Alert("Necesita vincular un flete si selecciona Factura de Flete", TipoMensaje.MsgAdvertencia) : Exit Sub
|
||||
'If DdlOCVinculaInv.SelectedValue.ToEntero = 240 And Not CveImportacion > 0 Then Alert("Necesita vincular una Importación si selecciona Factura de Importación", TipoMensaje.MsgAdvertencia) : Exit Sub
|
||||
|
||||
'If UsuarioActual.CveEmpresa = 119 And DdlTipoComprobante.SelectedValue = "Fac" Then
|
||||
' If Not VerificarProductosCompraConOC() Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
'End If
|
||||
|
||||
Dim SubTotalGV = 0.0D
|
||||
Dim Amortizacion As Decimal = TmpDT.SUMD("Total")
|
||||
If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
|
||||
@@ -15612,7 +15606,7 @@ Partial Class Compras_Compras
|
||||
|
||||
'SI PUEDE RECIBIR POR OC Y COMPRA
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
|
||||
|
||||
If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
|
||||
Alert("El campo <b>Tipo de recepción almacén</b> es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -17275,7 +17269,7 @@ Partial Class Compras_Compras
|
||||
LblAmortizacion.Text = "0.00"
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso TieneAmortizacion Then
|
||||
Amortizacion = LblAmortizacion.Text.Trim.ToDecimal
|
||||
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString
|
||||
End If
|
||||
|
||||
@@ -83,7 +83,7 @@ Partial Class Compras_ProveedoresAuxiliar
|
||||
If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa,
|
||||
DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then
|
||||
If DdlOpcion.SelectedValue.ToEntero = 2 Then
|
||||
GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ")
|
||||
GvP.DataSource = ObjConta.DtResultados '.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) in (5,311) AND Importe >= 0,0,1) = 1 ") 'excluye las provisiones
|
||||
Else
|
||||
GvP.DataSource = ObjConta.DtResultados
|
||||
End If
|
||||
|
||||
@@ -45,7 +45,7 @@
|
||||
<asp:DropDownList runat="server" ID="DdlMedidas" CssClass="form-control input-sm select2me" Width="150px" DataTextField="Medida" DataValueField="CveMedida"></asp:DropDownList>
|
||||
</td>
|
||||
<td rowspan="2">
|
||||
<div id="DivEquivalentes" style="overflow-y: auto; overflow-x:hidden; width: 150px; height:100px" runat="server" visible="False">
|
||||
<div id="DivEquivalentes" style="overflow-y: auto; overflow-x:hidden; width: 150px; height:70px" runat="server" visible="False">
|
||||
<asp:GridView ID="GvEquival" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMedidaEquivalencia,CveMedida,CveRin,CveMedidaEquivalente,CveRinEquivalente,Medida,RinTamaño,MedidaEquivalente,RinTamañoEquivalente" EmptyDataText="" ToolTip="" CssClass="table table-striped table-advance table-hover" Style="margin-top: 10px; width: 100%" GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField ItemStyle-Width="300px" HeaderText="Equivalentes">
|
||||
@@ -138,7 +138,7 @@
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</div>
|
||||
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 230px;" runat="server" visible="False">
|
||||
<div id="DivMedRin" style="overflow-y: auto; width: 765px; height: 325px;" runat="server" visible="False">
|
||||
<asp:GridView ID="GvMedRin" Width="100%" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron registros" ToolTip="Listado de Contratos encontrados." CssClass="table table-striped table-hover" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="Almacen" HeaderText="Almacén" />
|
||||
|
||||
@@ -100,7 +100,7 @@ Partial Class Inventarios_Default
|
||||
If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then
|
||||
Dim ObjInventarios As New ClsInventarios()
|
||||
If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
|
||||
ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then
|
||||
ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, ExcluyeTransitorios:=1, TopSelect:=100) Then
|
||||
Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||
|
||||
If dr IsNot Nothing Then
|
||||
|
||||
1416
Site.master
1416
Site.master
File diff suppressed because it is too large
Load Diff
@@ -132,7 +132,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtPS" CssClass="form-control Mayuscula" runat="server" MaxLength="846"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtPS" TextMode="MultiLine" Rows="2" CssClass="form-control Mayuscula" runat="server" MaxLength="846"></asp:TextBox>
|
||||
<label class="truncate" for="<%= TxtPS.ClientID.ToString()%>">Descripción del Producto / Servicio:</label>
|
||||
<asp:RequiredFieldValidator ID="RFVPS" runat="server" ControlToValidate="TxtPS" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto Servicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVPS" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
Reference in New Issue
Block a user