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

-- cambio guias

Browse Source
This commit is contained in:
rrene
2020-06-02 08:13:28 -07:00
parent fa2c29bf3f
commit f3e6d01590
5 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsPaginas.vb
View File

@@ -4262,13 +4262,14 @@ Public Class ClsPaginas
PaginaDict.Add("/General/CatDiasInhabiles.aspx".ToUpper(), 429)
PaginaDict.Add("/General/CatTipoCambio.aspx".ToUpper(), 642)
PaginaDict.Add("/General/PopUpPaqueteriasGuias.aspx".ToUpper(), 659)
PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 659)
PaginaDict.Add("/General/CatPaqueterias.aspx".ToUpper(), 665)
PaginaDict.Add("/General/CatDocumentacionTipo.aspx".ToUpper(), -1)
PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710)
PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711)
PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712)
PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038)
PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727)
#End Region
#Region "GPS"

4
App_Code/ClsVentas.vb
View File

@@ -339,7 +339,8 @@ Public Class ClsVentas
Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1,
Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean
Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
Optional CorreoNotificacion As String = "") As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_VentasAdd")
@@ -428,6 +429,7 @@ Public Class ClsVentas
.Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje
.Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion
.Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
.Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With

7
App_Code/modExtensiones.vb
View File

@@ -544,6 +544,8 @@ Namespace Extensiones
Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia)
retorno = False
End Try
directorioOld.Clear()
directorioNew.Clear()
Return retorno
End Function
<Runtime.CompilerServices.Extension()>
@@ -2044,6 +2046,8 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(sb.ToString())
HttpContext.Current.Response.End()
sb.Clear()
style.Clear()
End If
End Sub
@@ -2076,6 +2080,8 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(sb.ToString())
HttpContext.Current.Response.End()
sb.Clear()
style.Clear()
End Sub
<Runtime.CompilerServices.Extension()>
Public Sub ExportToExcel(datatable As DataTable, NombreArchivoXLSX As String)
@@ -2284,6 +2290,7 @@ Namespace Extensiones
HttpContext.Current.Response.Write(style.ToString)
HttpContext.Current.Response.Write(pdfDoc)
HttpContext.Current.Response.[End]()
style.Clear()
End Using
End Using
End Sub

12
Inventarios/EntregaAlmacen.aspx
View File

@@ -238,11 +238,13 @@
</tr>
<tr>
<td colspan="2">
<div style="display:none;">
<asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
<asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
<asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
</div>
<asp:Panel ID="PnlEntrega" runat="server" Visible="false">
<asp:RadioButton id="RbSinEntrega" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Sin Entrega" AutoPostBack="true"></asp:RadioButton>
<asp:RadioButton id="RbEntregaInterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Interna" AutoPostBack="true"></asp:RadioButton>
<asp:RadioButton id="RbEntregaExterna" runat="server" OnCheckedChanged="EntregaRadioGroup_Click" Width="33%" GroupName="EntregaRadioGroup" Text="Entrega Externa" AutoPostBack="true"></asp:RadioButton>
</asp:Panel>
</td>
</tr>

1
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -318,6 +318,7 @@ Partial Class Inventarios_EntregaAlmacen
DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString)
If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False
If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True
CreaDtDetalle()
CreaDtDetalleLote()