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:
rrene
2020-06-10 11:58:44 -07:00
parent 98bf177dfd 79cadfdbb6
commit 4ca41b3ca9
6 changed files with 131 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -270,6 +270,15 @@ Partial Class Inventarios_EntradasSalidas
End Set End Set
End Property End Property
Public Property FechaCaducidadAux() As String
Get
Return ViewState("FechaCaducidadAux").ToString
End Get
Set(value As String)
ViewState("FechaCaducidadAux") = value
End Set
End Property
#End Region #End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -343,6 +352,7 @@ Partial Class Inventarios_EntradasSalidas
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
PermisoVerImportes() PermisoVerImportes()
End If End If
FechaCaducidadAux = MinFecha.ToString
End If End If
End Sub End Sub
@@ -1154,7 +1164,9 @@ Partial Class Inventarios_EntradasSalidas
Exit Sub Exit Sub
End If End If
AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDouble, txtPrecio.Text.ToDouble, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text, TxtnLote.Text.Trim, MinFecha, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text) AddNew(DdlProducto2.SelectedValue.ToEntero, DdlProducto2.SelectedText, DdlUnidad.SelectedValue.ToEntero, DdlUnidad.SelectedItem.Text, txtCantidad.Text.ToDouble,
txtPrecio.Text.ToDouble, TxtnSerie.Text.Replace(" ", String.Empty), LblCodigo.Text, HdnCodigoAF.Value, HdnCveActivoFijo.Value, TxtObservacionesdetalle.Text,
TxtnLote.Text.Trim, FechaCaducidadAux.ToDate, DdlSeccionAlmacen.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedItem.Text)
LimpiarAgregar() LimpiarAgregar()
txtCantidad.Text = "" txtCantidad.Text = ""
@@ -3916,7 +3928,7 @@ Partial Class Inventarios_EntradasSalidas
End If End If
dt.TableName = "Datos" dt.TableName = "Datos"
Dim DTSeccionesAlmacen As DataTable = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
If Not ErrorArchivo Then If Not ErrorArchivo Then
NumRow = 0 NumRow = 0
Dim RowNoEncontrados As String = "" Dim RowNoEncontrados As String = ""
@@ -3928,12 +3940,21 @@ Partial Class Inventarios_EntradasSalidas
'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper 'Dim CodigoBarras As String = Row("Codigo Barras").ToString.Trim.ToUpper
Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal Dim PrecioUnitario As Decimal = Row("Precio Unitario").ToString.ToDecimal
Dim Serie As String = Row("Serie").ToString
Dim Lote As String = Row("Lote").ToString
Dim Caducidad As String = Row("Caducidad").ToString
Dim SeccionAlmacen As String = Row("SeccionAlmacen").ToString
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
Dim CveUM As Integer = 0 Dim CveUM As Integer = 0
NumRow = NumRow + 1 NumRow = NumRow + 1
Dim CveSeccionAlmacen As Integer = -1
If SeccionAlmacen <> "" Then
CveSeccionAlmacen = DTSeccionesAlmacen.FiltroPrimeroValor("CveSeccion", String.Format("SeccionAlmacen = '{0}'", SeccionAlmacen)).ToEntero
End If
If Codigo <> "" Then If Codigo <> "" Then
Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c) Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c)
If StrArray.Length > 0 Then If StrArray.Length > 0 Then
@@ -3974,10 +3995,16 @@ Partial Class Inventarios_EntradasSalidas
txtPrecio.Text = PrecioUnitario.ToString txtPrecio.Text = PrecioUnitario.ToString
ElProductoChange() ElProductoChange()
TxtnSerie.Text = Serie
TxtnLote.Text = Lote
DdlSeccionAlmacen.SelectedValue = CveSeccionAlmacen.ToString
FechaCaducidadAux = If(Caducidad = "", MinFecha.ToString, Caducidad)
AgregarPS() AgregarPS()
txtPrecio.Text = "" txtPrecio.Text = ""
DdlUnidad.SelectedItem.Text = "" DdlUnidad.SelectedItem.Text = ""
TxtnSerie.Text = ""
TxtnLote.Text = ""
DdlSeccionAlmacen.SelectedValue = "-1"
NumAgregados = NumAgregados + 1 NumAgregados = NumAgregados + 1
End If End If
@@ -4017,7 +4044,8 @@ Partial Class Inventarios_EntradasSalidas
Private Function GetPS(Opt As String, Valor As String) As String Private Function GetPS(Opt As String, Valor As String) As String
Dim StrReturn As String = String.Empty Dim StrReturn As String = String.Empty
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Opt & " = '" & Valor & "'").ToString.ToEntero Dim Condicion As String = String.Format("{0} = '{1}'", Opt, Valor)
CvePS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", Condicion).ToString.ToEntero
If CvePS > 0 Then If CvePS > 0 Then
StrReturn = "True|" & CvePS.ToString StrReturn = "True|" & CvePS.ToString
Else Else

41
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2429,24 +2429,29 @@ Partial Class Inventarios_EntregaAlmacen
Dim Observaciones As String = TxtObservacionesPaqInterna.Text Dim Observaciones As String = TxtObservacionesPaqInterna.Text
Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero Dim CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero
Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) If CveSubProyecto > 0 Then
Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True)
If CvePaqueteriaGuia > 0 Then
If CvePaqueteriaGuia > 0 Then
If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then
''manda correo If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then
MandaCorreoEntrega(CveVentaSurtir) ''manda correo
Else MandaCorreoEntrega(CveVentaSurtir)
ErrorMovInv = True Else
End If ErrorMovInv = True
End If End If
If ErrorMovInv Then End If
Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError) If ErrorMovInv Then
End If Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError)
Else End If
ErrorMovInv = True Else
Alert("Error en el paqueteria guia", TipoMensaje.MsgError) ErrorMovInv = True
Alert("Error en el paqueteria guia", TipoMensaje.MsgError)
End If
Else
Alert("Hace falta indicar un Sub Proyecto", TipoMensaje.MsgAdvertencia)
ErrorMovInv = True
End If End If
End If End If

19
Inventarios/ResguardoMaterial.aspx
View File

@@ -208,7 +208,8 @@
<th width="40%">Clasificación<br /> <th width="40%">Clasificación<br />
Producto </th> Producto </th>
<th width="10%">U.M.</th> <th width="10%">U.M.</th>
<th style="width: 20%" runat="server" id="ThSerie" visible="false">Serie</th> <th style="width: 10%" runat="server" id="ThSeccion" visible="false">Seccion almacen</th>
<th style="width: 10%" runat="server" id="ThSerie" visible="false">Serie</th>
<th style="width: 10%;">Observaciones</th> <th style="width: 10%;">Observaciones</th>
<th width="10%"></th> <th width="10%"></th>
</tr> </tr>
@@ -238,6 +239,11 @@
<asp:CompareValidator ID="CVUnidad" runat="server" ControlToValidate="ddlUnidad" Type="Integer" Operator="GreaterThan" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad Medida''</b> es necesario, por favor selecione una." Display="None" ValueToCompare="0" ValidationGroup="CVUnidad"></asp:CompareValidator> <asp:CompareValidator ID="CVUnidad" runat="server" ControlToValidate="ddlUnidad" Type="Integer" Operator="GreaterThan" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad Medida''</b> es necesario, por favor selecione una." Display="None" ValueToCompare="0" ValidationGroup="CVUnidad"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVUnidad" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="CVUnidad" Width="300px"></ajax:ValidatorCalloutExtender>
</td> </td>
<td runat="server" id="TrSeccion" visible="false">
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
</td>
<td runat="server" id="TrSerie" visible="false"> <td runat="server" id="TrSerie" visible="false">
<asp:TextBox ID="TxtnSerie" runat="server" Width="80px" Visible="false"></asp:TextBox> <asp:TextBox ID="TxtnSerie" runat="server" Width="80px" Visible="false"></asp:TextBox>
</td> </td>
@@ -263,19 +269,22 @@
<asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" Style="display: none;" runat="server" /> <asp:Button ID="BtnVinculaAFEdit" ClientIDMode="Static" Style="display: none;" runat="server" />
<asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" /> <asp:HiddenField runat="server" ID="HdnCodAFEdit" Value="-1" ClientIDMode="Static" />
<asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros." DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,Cantidad" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="True" ShowHeaderWhenEmpty="True" OnRowDataBound="GvM_RowDataBound"> <asp:GridView ID="GvM" runat="server" GridLines="none" CssClass="table table-striped table-hover Widthall" EmptyDataText="Aún no hay registros."
DataKeyNames="No,CveMovimientoDetalle,CveUM,CvePS,Serie,Observaciones,Cantidad,SeccionAlmacen,CveSeccionAlmacen" AutoGenerateColumns="False" AllowPaging="False"
ShowFooter="True" ShowHeaderWhenEmpty="True" OnRowDataBound="GvM_RowDataBound">
<Columns> <Columns>
<asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" /> <asp:BoundField HeaderText="#" DataField="No" ItemStyle-Width="3%" ItemStyle-HorizontalAlign="Center" />
<asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" /> <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:#,###,###.##}" ItemStyle-Width="7%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" /> <asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="40%" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="20%" /> <asp:BoundField HeaderText="Sección Almacén" DataField="SeccionAlmacen" ItemStyle-Width="10%" Visible="false"/>
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" />
<asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="10%" />
<asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false"> <%--<asp:TemplateField HeaderText="Sección Almacén" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" Visible="false">
<ItemTemplate> <ItemTemplate>
ss ss
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>--%>
<asp:TemplateField ItemStyle-Width="10%"> <asp:TemplateField ItemStyle-Width="10%">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" /> <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el concepto?" data-btn-ok-label="si" />

63
Inventarios/ResguardoMaterial.aspx.vb
View File

@@ -187,6 +187,8 @@ Partial Class Inventarios_ResguardoMaterial
dt.Columns.Add("Observaciones") dt.Columns.Add("Observaciones")
dt.Columns.Add("CvePersonal", Type.GetType("System.Int32")) dt.Columns.Add("CvePersonal", Type.GetType("System.Int32"))
dt.Columns.Add("Checado", Type.GetType("System.Boolean")) dt.Columns.Add("Checado", Type.GetType("System.Boolean"))
dt.Columns.Add("CveSeccionAlmacen", Type.GetType("System.Int32"))
dt.Columns.Add("SeccionAlmacen")
DtMovimientos = dt DtMovimientos = dt
@@ -272,14 +274,17 @@ Partial Class Inventarios_ResguardoMaterial
DdlAlmacenDestinoLiberacion.DataBind() DdlAlmacenDestinoLiberacion.DataBind()
DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
DdlSeccionAlmacen.DataBind()
CargaPS() CargaPS()
End Sub End Sub
Private Sub CargaPS() Private Sub CargaPS()
DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
If DdlProducto2.UsaWebService Then If DdlProducto2.UsaWebService Then
DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") 'DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue.ToString) 'DdlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue.ToString)
End If End If
If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
@@ -333,6 +338,10 @@ Partial Class Inventarios_ResguardoMaterial
ThSerie.Visible = True ThSerie.Visible = True
TrSerie.Visible = True TrSerie.Visible = True
TxtnSerie.Visible = True TxtnSerie.Visible = True
ThSeccion.Visible = True
TrSeccion.Visible = True
GvM.Columns(4).Visible = True GvM.Columns(4).Visible = True
Else Else
TxtnSerie.Visible = False TxtnSerie.Visible = False
@@ -415,10 +424,12 @@ Partial Class Inventarios_ResguardoMaterial
registro.Item("PS") = DdlProducto2.SelectedText registro.Item("PS") = DdlProducto2.SelectedText
registro.Item("Estatus") = "" registro.Item("Estatus") = ""
registro.Item("Serie") = TxtnSerie.Text registro.Item("Serie") = TxtnSerie.Text
registro.Item("SeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedItem.Text, "")
registro.Item("CveSeccionAlmacen") = If(DdlSeccionAlmacen.SelectedValue.ToEntero > 0, DdlSeccionAlmacen.SelectedValue.ToEntero, -1)
registro.Item("Observaciones") = TxtObservacionesdetalle.Text registro.Item("Observaciones") = TxtObservacionesdetalle.Text
DtMovimientos.Rows.Add(registro) DtMovimientos.Rows.Add(registro)
CargaGvM() CargaGvM()
UPDatos.Update()
txtCantidad.Text = "" txtCantidad.Text = ""
txtCantidad.Focus() txtCantidad.Focus()
@@ -439,15 +450,37 @@ Partial Class Inventarios_ResguardoMaterial
ThSerie.Visible = False ThSerie.Visible = False
TrSerie.Visible = False TrSerie.Visible = False
TxtnSerie.Visible = False TxtnSerie.Visible = False
GvM.Columns(5).Visible = False
GvM.Columns(4).Visible = False GvM.Columns(4).Visible = False
For Each Dr As DataRow In DtMovimientos.Rows
If Dr("Serie").ToString <> "" Then Dim Contador As Integer = 0
ThSerie.Visible = True Dim UltimoRenglon As Integer = DtMovimientos.Rows.Count - 1
TrSerie.Visible = True Dim MostrarSerie As Boolean = False
GvM.Columns(4).Visible = True Dim MostrarSeccion As Boolean = False
Exit For While Contador <= UltimoRenglon And (Not MostrarSerie And Not MostrarSeccion)
End If Dim Dr As DataRow = DtMovimientos.Rows(Contador)
Next MostrarSerie = If(Not MostrarSerie, Dr("Serie").ToString <> "", True)
MostrarSeccion = If(Not MostrarSerie, Dr("SeccionAlmacen").ToString <> "", True)
Contador += 1
End While
ThSerie.Visible = MostrarSerie
TrSerie.Visible = MostrarSerie
GvM.Columns(5).Visible = MostrarSerie
GvM.Columns(4).Visible = MostrarSeccion
'For Each Dr As DataRow In DtMovimientos.Rows
' If Dr("Serie").ToString <> "" Then
' ThSerie.Visible = True
' TrSerie.Visible = True
' GvM.Columns(5).Visible = True
' Exit For
' End If
' If Dr("SeccionAlmacen").ToString <> "" Then
' GvM.Columns(4).Visible = True
' End If
'Next
GvM.DataSource = DtMovimientos GvM.DataSource = DtMovimientos
GvM.DataBind() GvM.DataBind()
@@ -460,6 +493,7 @@ Partial Class Inventarios_ResguardoMaterial
GvM.EditIndex = -1 GvM.EditIndex = -1
CargaGvM() CargaGvM()
UPDatos.Update()
End Sub End Sub
Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -740,7 +774,8 @@ Partial Class Inventarios_ResguardoMaterial
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Dr As DataRow In DtMovimientos.Rows For Each Dr As DataRow In DtMovimientos.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0, -1, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, 0,
-1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar."
TieneError = True TieneError = True
Exit For Exit For
@@ -759,7 +794,9 @@ Partial Class Inventarios_ResguardoMaterial
Else Else
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
For Each Dr As DataRow In ObjInventario.DtResultados.Rows For Each Dr As DataRow In ObjInventario.DtResultados.Rows
If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero,
Serie:=Dr("Serie").ToString, Observaciones:=Dr("Observaciones").ToString) Then
TieneError = True TieneError = True
MensajeError = "Ocurrió un error al guardar los movimientos de entrada" MensajeError = "Ocurrió un error al guardar los movimientos de entrada"
Exit For Exit For

3
Ventas/Clientes.aspx
View File

@@ -3776,9 +3776,6 @@
<asp:TextBox ID="TxtObservaciones" OnTextChanged="TxtObservaciones_TextChanged" AutoPostBack="true" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox> <asp:TextBox ID="TxtObservaciones" OnTextChanged="TxtObservaciones_TextChanged" AutoPostBack="true" Width="300" MaxLength="100" runat="server" Text='<%# Eval("Observacion") %>'></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="115"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Vigencia" ItemStyle-Width="115">
<ItemTemplate> <ItemTemplate>
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 115px !important; padding: 0px;"> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 115px !important; padding: 0px;">

17
Ventas/Clientes.aspx.vb
View File

@@ -6922,7 +6922,15 @@ Partial Class Clientes
Public Sub DownLoad_ClickDocumentacion(sender As Object, e As EventArgs) Public Sub DownLoad_ClickDocumentacion(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim Adjunto As String = GvRow.DataKey("Adjunto") Dim Adjunto As String = GvRow.DataKey("Adjunto")
linkDescargaPagare = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
Dim stringDescargaDocumento As String = ""
If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa)
Else
stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
End If
linkDescargaPagare = stringDescargaDocumento
TxtDireccionAval.Text = "" TxtDireccionAval.Text = ""
TxtAval.Text = "" TxtAval.Text = ""
RegistraScript("$('#ModalDivPagare').modal('show')") RegistraScript("$('#ModalDivPagare').modal('show')")
@@ -7054,14 +7062,13 @@ Partial Class Clientes
LnkDownLoadDoc.Visible = True LnkDownLoadDoc.Visible = True
End If End If
txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy")
If Adjunto.Trim.Length > 0 Then If Adjunto.Trim.Length > 0 Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "\DocElectronica\Clientes\" & CveCliente & "/" & Adjunto
If File.Exists(linkDescargaArchivo) Or (Documentacion = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140) Then
If File.Exists(linkDescargaArchivo) Then
LnkDownLoadDoc.Visible = True LnkDownLoadDoc.Visible = True
ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc) ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)