Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -355,9 +355,7 @@ Public Class Timbrado
|
||||
Dim UsuarioServicio As String = If(CvePACCancelacion = 2, Empresa.RFC, "rene.molina@adsistemas.mx")
|
||||
Dim ClaveServicio As String = If(CvePACCancelacion = 2, Empresa.RFC.ToLower, "rene2018")
|
||||
Dim Clave As String = Empresa.ContraseñaKey
|
||||
Dim UrlServicio As String = "" ' Produccion
|
||||
|
||||
UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
|
||||
Dim UrlServicio As String = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" ' Produccion
|
||||
|
||||
If Not Empresa.FacturaProduccion Then
|
||||
ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key"
|
||||
@@ -365,7 +363,6 @@ Public Class Timbrado
|
||||
|
||||
UsuarioServicio = "UserTest"
|
||||
ClaveServicio = "1234567890"
|
||||
'UrlServicio = "http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL"
|
||||
End If
|
||||
#Region "Valida"
|
||||
If Not File.Exists(ArchivoCertificado) Then
|
||||
|
||||
@@ -460,7 +460,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
|
||||
|
||||
Dim data As New JArray
|
||||
Dim DtSucursalesExistencias As DataTable = Nothing
|
||||
|
||||
Dim Usuario As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
|
||||
Using ObjInv As New ClsInventarios
|
||||
If ObjInv.GetExistenciasSucursales(JsonRequest("products").ToString(), CveEmpresa) Then
|
||||
DtSucursalesExistencias = ObjInv.DtResultados.Copy()
|
||||
|
||||
@@ -47,7 +47,7 @@
|
||||
<asp:ListItem Value="2">Viaticos - Personal</asp:ListItem>
|
||||
<asp:ListItem Value="4">Deudores</asp:ListItem>
|
||||
<asp:ListItem Value="5">Acreedores</asp:ListItem>
|
||||
<asp:ListItem Value="6" Enabled ="False">Ventas</asp:ListItem>
|
||||
<asp:ListItem Value="6">Ventas</asp:ListItem>
|
||||
</asp:RadioButtonList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -337,11 +337,11 @@ Partial Class Bancos_PopIECompras
|
||||
CargaTipoTransaccion(TipoTransaccion)
|
||||
CargaCuentas()
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
RBLContado.Items(4).Enabled = True
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
'Dim ObjVentas As New ClsVentas
|
||||
'If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
' RBLContado.Items(4).Enabled = True
|
||||
'End If
|
||||
'ObjVentas.Dispose()
|
||||
|
||||
If CveMoneda = 2 Then
|
||||
ChkPagarPesos.Visible = True
|
||||
|
||||
@@ -129,8 +129,8 @@
|
||||
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
|
||||
UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
|
||||
<div class="input-group-addon" style="background-color: #428bca">
|
||||
<asp:LinkButton runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
|
||||
PostBackUrl="~/Ventas/Clientes.aspx?CveCliente=-1"></asp:LinkButton>
|
||||
<asp:HyperLink id="HplAddCliente" runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
|
||||
navigateUrl="/Ventas/Clientes.aspx?CveCliente=-1"></asp:HyperLink>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -113,7 +113,6 @@ Partial Class RepContratoDetalle
|
||||
CveViajePasajero = 0
|
||||
Session("FileExtension") = ""
|
||||
ArchivoUpdate = ""
|
||||
TelefonoEmpresa = ""
|
||||
|
||||
End If
|
||||
End Sub
|
||||
@@ -333,7 +332,7 @@ Partial Class RepContratoDetalle
|
||||
New ReportParameter("Usuario", UsuarioActual.Nombre)
|
||||
}
|
||||
|
||||
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
|
||||
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:=LbFolio.Text)
|
||||
End Sub
|
||||
Protected Sub AgregarABitacora(Descripcion As String)
|
||||
Dim ObjEventoBitacora As New ClsOIEventos
|
||||
|
||||
@@ -968,7 +968,7 @@ Partial Class ProductosyServicios
|
||||
hplImagen.Attributes.Add("href", String.Format("/ashx/SIGWeb.ashx?Metodo=GetImg&r={0}", Extensiones.Encripta(Me.Imagen)))
|
||||
End If
|
||||
|
||||
DivImagen.Visible = True
|
||||
If UsuarioActual.CveRol = 1 Then DivImagen.Visible = True
|
||||
upGaleria.Update()
|
||||
RegistraScript("clickgaleria();", "CG")
|
||||
|
||||
|
||||
@@ -130,9 +130,7 @@ Partial Class RepVentaDetalle
|
||||
InicializaValores()
|
||||
ConfiguraEmpresa()
|
||||
|
||||
If ConsultaAlCargar Then
|
||||
CargaDatos()
|
||||
End If
|
||||
If ConsultaAlCargar Then CargaDatos()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
LblServicioDomicilioFiltro.Visible = True
|
||||
@@ -150,24 +148,22 @@ Partial Class RepVentaDetalle
|
||||
|
||||
|
||||
Private Sub InicializaValores()
|
||||
ConsultaAlCargar = True
|
||||
|
||||
Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String
|
||||
Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
|
||||
Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
|
||||
'Dim CveSubProyecto As Integer
|
||||
|
||||
Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
|
||||
ConsultaAlCargar = If(Grupo <> "-1", True, False)
|
||||
CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString
|
||||
CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
|
||||
CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString
|
||||
CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString
|
||||
|
||||
CveUsuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
|
||||
|
||||
CveCorte = If(Request("CveCorte") IsNot Nothing AndAlso Request("CveCorte").ToEntero() > 0, Request("CveCorte").ToEntero(), -1).ToString
|
||||
IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString
|
||||
|
||||
|
||||
Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
|
||||
Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
|
||||
AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
|
||||
|
||||
Reference in New Issue
Block a user