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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-22 12:11:51 -07:00
parent 420ac4e935 a00195d244
commit 3eb84fdf8f
56 changed files with 4818 additions and 2520 deletions
Download Patch File Download Diff File Expand all files Collapse all files

469
Compras/Compras.aspx.vb
View File

File diff suppressed because it is too large Load Diff

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()

9
Compras/RepComprasDetalle.aspx
View File

@@ -355,6 +355,8 @@
<asp:Literal ID="LtlDescuentos" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="RetIVA" HeaderText="Ret IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="RetISR" HeaderText="Ret ISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-Width="80">
<HeaderTemplate>
Total
@@ -498,6 +500,13 @@
<asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
<td></td>
</tr>
<tr>
<td>
<asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret IVA" Checked="true" /></td>
<td>
<asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret ISR" Checked="true" /></td>
<td></td>
</tr>
</table>
</div>
<div class="modal-footer">

25
Compras/RepComprasDetalle.aspx.vb
View File

@@ -368,14 +368,13 @@ Partial Class Compras_RepComprasDetalle
e.Row.FCHyperLink("HplSerieFolio").Text = ""
End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
End If
End Sub
@@ -604,13 +603,15 @@ Partial Class Compras_RepComprasDetalle
GvDatos.Columns(4).Visible = ChkIVA.Checked
GvDatos.Columns(5).Visible = ChkIEPS.Checked
GvDatos.Columns(6).Visible = ChkDesc.Checked
GvDatos.Columns(7).Visible = ChkTotal.Checked
GvDatos.Columns(8).Visible = ChkAbre.Checked
GvDatos.Columns(9).Visible = ChkRazon.Checked
GvDatos.Columns(10).Visible = ChkFolio.Checked
GvDatos.Columns(11).Visible = ChkFecha.Checked
GvDatos.Columns(12).Visible = ChkObs.Checked
GvDatos.Columns(13).Visible = ChkDescripcion.Checked
GvDatos.Columns(7).Visible = Chkretiva.Checked
GvDatos.Columns(8).Visible = Chkretisr.Checked
GvDatos.Columns(9).Visible = ChkTotal.Checked
GvDatos.Columns(10).Visible = ChkAbre.Checked
GvDatos.Columns(11).Visible = ChkRazon.Checked
GvDatos.Columns(12).Visible = ChkFolio.Checked
GvDatos.Columns(13).Visible = ChkFecha.Checked
GvDatos.Columns(14).Visible = ChkObs.Checked
GvDatos.Columns(15).Visible = ChkDescripcion.Checked
UPDatos.Update()
End Sub