AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2021-05-21 08:16:18 -07:00
parent 6b6fa04910 ad5fe8c961
commit 2648ddccbe
84 changed files with 6759 additions and 4085 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Compras/Compras.aspx
View File

@@ -2207,7 +2207,7 @@
<ItemTemplate>
<%--<asp:Label runat="server" ID="LbCveAF" Text='<%# Eval("CodAF")%>'></asp:Label>--%>
<asp:TextBox ID="LblCodigo" Text='<%# Eval("CodAF")%>' runat="server" Width="100px"></asp:TextBox>
<asp:Label runat="server" ID="LblValido" Style="display: none" Text="<i class='fa fa-check' style='color:green'></i>"></asp:Label>
<asp:HyperLink runat="server" ID="HLBuscarAF"><i class="fa fa-search" aria-hidden="true"></i></asp:HyperLink>
<asp:HiddenField runat="server" ID="HdnCveConcepto" Value='<%# Eval("CveConcepto")%>' />
@@ -6042,6 +6042,7 @@
}
$get("BtnLimpiaAF").click();
// $get("BtnVinculaAFEdit").click();
}

53
Compras/Compras.aspx.vb
View File

@@ -2118,6 +2118,10 @@ Partial Class Compras_Compras
TxtSerie.Enabled = True
End If
If LblMetodoPago.Text = "" Then
Alert("El xml no contiene la etiqueta 'método de pago', favor de verificar la emisión con el proveedor.", TipoMensaje.MsgAdvertencia)
BtnGuardar.Visible = False
End If
End If
@@ -6516,7 +6520,7 @@ Partial Class Compras_Compras
If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
'AF TipoAF 2 Es para las compras
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1")
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
For Each Row2 As DataRow In DT.Rows
importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal)
@@ -12473,6 +12477,17 @@ Partial Class Compras_Compras
llenaDtsAF()
CargaGVsAF()
For Each Row As DataRow In TmpDT.Rows
If Row("CveActivoFijo").ToString.ToEntero = 0 Then
Row("TipoAF") = DBNull.Value
End If
Next
TmpDT.AcceptChanges()
End Sub
Protected Sub DivirInsumo(sender As Object, e As EventArgs)
Dim index2 As Integer = 0
@@ -12543,10 +12558,28 @@ Partial Class Compras_Compras
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = ObjAF.DtResultados.Rows(0)("Codigo").ToString
RegistraScript(String.Format("MuestraCheckAF('{0}','');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
End If
'COMENTADO IPP 15 JUNIO 2017
'RegistraScript(String.Format("EnterAFEditOK('{0}','{1}');", ObjAF.DtResultados.Rows(0)("CveActivoFijo").ToString, ObjAF.DtResultados.Rows(0)("Codigo").ToString))
@@ -12556,10 +12589,28 @@ Partial Class Compras_Compras
GvAFInsumos.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
GvAFInsumos.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFInsumos.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = Nothing
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
ElseIf HdnTipoAF.Value.ToEntero = 2 Then
GvAFCompras.Rows(Index).FCHiddenField("HdnCveAF").Value = "-1"
GvAFCompras.Rows(Index).FCHiddenField("HdnCodAF").Value = "-1"
RegistraScript(String.Format("MuestraCheckAF('{0}','none');", GvAFCompras.Rows(Index).FCLabel("LblValido").ClientID), "A2")
Try
TmpDT.Rows(Index)("CveActivoFijo") = Nothing
TmpDT.AcceptChanges()
Catch ex As Exception
End Try
End If
Alert("No se encontró un Activo Fijo con el código proporcionado.", TipoMensaje.MsgAdvertencia)

17
Compras/Proveedores.aspx.vb
View File

@@ -1458,7 +1458,22 @@ Partial Class Compras_Proveedores
#Region "LL E N A R - C O M B O S"
Private Sub CargaResponsable()
'DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, DistinctColumns:={"CveUsuario", "Nombre"})
DdlCveUsuarioResponsable.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
Dim DtUsuarios As DataTable = Nothing
Dim ObjUsuarios As New ClsSisUsuarios
Try
If ObjUsuarios.GetUsuarios(-1) Then
DtUsuarios = ObjUsuarios.DtResultados.FiltraParametros($"CveEmpresaPredeterminada = {UsuarioActual.CveEmpresa}", DistinctColumns:={"CveUsuario", "Nombre", "Estatus"})
If CveProveedor <= 0 AndAlso DtUsuarios IsNot Nothing Then
DtUsuarios = DtUsuarios.FiltraParametros("Estatus = True", DistinctColumns:={"CveUsuario", "Nombre"})
End If
End If
Catch ex As Exception
OnError("Ocurrio un error al obtener los responsables", ex)
End Try
ObjUsuarios.Dispose()
DdlCveUsuarioResponsable.DataSource = DtUsuarios 'GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
DdlCveUsuarioResponsable.DataBind()
End Sub
Private Sub CargaClasificacionProveedor()