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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-04 11:55:04 -07:00
parent 08b3f92f30 f140bbe853
commit 84e6da4d74
4 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Acumuladores/RepEntradasUsadosClientes.aspx.vb
View File

@@ -29,7 +29,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes
End Sub
Public Sub CargaCombos()
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22)
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

6
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -13,7 +13,11 @@ Partial Class Inventarios_KardexAlmacen
TxtFechaF.Text = Now.ToShortDateString
CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
pnlOrden.Visible = UsuarioActual.CveEmpresa = 141
pnlOrden.Visible = False
If UsuarioActual.CveEmpresa = 141 Then
pnlOrden.Visible = True
DdlOrden.SelectedValue = 2
End If
If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
End If

2
Ventas/ClientesAbonar.aspx
View File

@@ -238,7 +238,7 @@
<asp:CheckBox Text=" Seguir Registrando Pagos" ID="ChkSeguirRegistrando" CssClass="md-checksd" runat="server" />
</td>
<td style="text-align: left; width: 9%">
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="false" CssClass="md-checksd" runat="server" />
<asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
<br />
<asp:Label ID="LblValidaCeuntaTipoTransaccion" runat="server" Visible="false" ForeColor="Red"></asp:Label>
</td>

7
Ventas/ClientesAbonar.aspx.vb
View File

@@ -333,12 +333,7 @@ Partial Class Ventas_ClientesAbonar
ElseIf CveMoneda = -1 Then
TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
End If
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
ChkComplementoPago.Visible = True
'ChkComplementoPago.Checked = True
TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
End If
If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then