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

-- importacion de AF, almacenes productos financieros

Browse Source
This commit is contained in:
rrene
2020-07-10 16:00:13 -07:00
parent 5a24d047fa
commit dd5a10f142
2 changed files with 27 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
AF/AF.aspx
View File

@@ -2890,9 +2890,9 @@
<div class="row">
<div class="col-md-2">Producto:</div>
<div class="col-md-10">
<asp:DropDownList ID="DdlAFInvPS" AutoPostBack="true" DataTextField="PSCodigo" DataValueField="CvePS" CssClass="select2me" AppendDataBoundItems="true" runat="server" Width="475px" OnSelectedIndexChanged="DdlAFInvPS_SelectedIndexChanged"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>
<ADS:Dropdownlost runat="server" ID="DdlAFInvPS" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange ="DdlAFInvPS_SelectedIndexChanged" />
<%-- <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div>
</div>
<div id="DivSerie" runat="server" visible="false" class="row">

42
AF/AF.aspx.vb
View File

@@ -530,18 +530,18 @@ Partial Class AF_AF
HLAFInv.Visible= True
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2)"
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, -1).FiltraParametros(StrAlmacenes)
Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,12)"
DdlAFInvAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, CveEmpresaActual, CveTipoAlmacen:=-1).FiltraParametros(StrAlmacenes)
DdlAFInvAlmacen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAFInvAlmacen.SelectedValue = "-1"
DdlAFInvAlmacen.DataBind()
DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
DdlAFInvAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
DdlAFInvPS.setEsWebService(True)
DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
DdlAFInvPS.DataBind()
DdlAFInvPS.SelectedValue = "-1"
'DdlAFInvPS.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2", "PSCodigo")
'DdlAFInvPS.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
'DdlAFInvPS.DataBind()
'DdlAFInvPS.SelectedValue = "-1"
End If
End Sub
Private Sub CargaMarcas()
@@ -3035,14 +3035,20 @@ Partial Class AF_AF
Catch ex As Exception
End Try
End Sub
End Sub
#End Region
#Region " AFInv "
Protected Sub BtnAFInv_Click(sender As Object, e As EventArgs)
If DdlAFInvPS.SelectedValue.ToEntero <= 0 Then
Alert("Seleccione un producto.")
Exit Sub
End If
AFInvSerie = ""
AFInvCvePS = -1
AFInvCveAlmacen = -1
@@ -3073,7 +3079,7 @@ Partial Class AF_AF
Exit Sub
End If
TxtDescripcion.Text = DdlAFInvPS.SelectedItem.Text
TxtDescripcion.Text = DdlAFInvPS.SelectedText
TxtValorCompra.Text = Costo.FormatoNumero
TxtFechaCompra.Text = Now.ToShortDateString
TxtNoSerie.Text = TxtAFInvSerie.Text.Trim
@@ -3091,11 +3097,11 @@ Partial Class AF_AF
DivAFInvAdvertencia.Visible = True
UpDatos.Update()
End Sub
End Sub
#End Region
#Region "AF GRUPOS"
Private Sub BtnAgregarGrupo_Click(sender As Object, e As EventArgs) Handles BtnAgregarGrupo.Click
TxtGrupoAF.Text = ""