Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -1830,7 +1830,7 @@ Public Class ClsClientes
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener las diferencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
OnError("Ocurrió un error al obtener nombre de corporativos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
@@ -3824,7 +3824,6 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function CancelarTimbreTimbrado(CveTimbre As Integer, FechaCancelacion As DateTime, CvePACCancelacion As Integer, SelloCancelacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_TimbreTimbradoCancelar")
|
||||
@@ -3846,10 +3845,7 @@ Public Class ClsGenerales
|
||||
OnError("Ocurrió un error al actualizar el timbrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Function
|
||||
Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_TimbreRemove")
|
||||
@@ -3868,9 +3864,7 @@ Public Class ClsGenerales
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
|
||||
Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
|
||||
|
||||
@@ -3887,7 +3881,6 @@ Public Class ClsGenerales
|
||||
End Try
|
||||
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
|
||||
Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,
|
||||
|
||||
@@ -718,39 +718,82 @@ Partial Class OS_OrdenesServicios
|
||||
Private Sub CargaVenta()
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetVenta(CveCotizacion, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
||||
'Carga Cliente
|
||||
|
||||
ViewState("CveCliente") = ObjVentas.DtResultados.Rows(0)("CveCliente").ToString.ToEntero
|
||||
CargaCliente(CveCliente)
|
||||
End If
|
||||
If ObjVentas.GetVentaDetalle(CveCotizacion) Then
|
||||
Dim Cons As Integer = 1
|
||||
For Each dr As DataRow In ObjVentas.DtResultados.Rows
|
||||
|
||||
|
||||
Dim Drow As DataRow = ObjVentas.DtResultados.Rows(0)
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
TxtDescripcion.Text = Drow("SerieFolio").ToString
|
||||
TxtSolicito.Text = UsuarioActual.Nombre
|
||||
DdlMedico.SelectedValueExist(Drow("CveMedico").ToString)
|
||||
DdlProcedimiento.SelectedValueExist(Drow("CveProcedimiento").ToString)
|
||||
DdlTipoVenta.SelectedValueExist(Drow("CveTipoVenta").ToString)
|
||||
DdlSubProyecto.SelectedValueExist(Drow("CveSubProyecto").ToString)
|
||||
|
||||
'If dr("CveTipoPS").ToString.ToEntero = 2 Then
|
||||
|
||||
Dim CvePSDetalle As Integer = UsuarioActual.Empresa.Funcionalidad(708).ToEntero
|
||||
Dim CodigoPS As String = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS={CvePSDetalle}")
|
||||
|
||||
TxtFechaCita.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
|
||||
|
||||
Dim drt As DataRow = TmpDT.NewRow
|
||||
drt("Consecutivo") = 1
|
||||
drt("CveOSDetalle") = -1
|
||||
drt("CvePS") = CvePSDetalle
|
||||
drt("PS") = CodigoPS
|
||||
drt("Cantidad") = 1
|
||||
drt("Observaciones") = $"Venta: {Drow("SerieFolio").ToString}"
|
||||
|
||||
If dr("CveTipoPS").ToString.ToEntero = 2 Then
|
||||
drt("Consecutivo") = Cons
|
||||
drt("CveOSDetalle") = -1
|
||||
drt("CvePS") = dr("CvePS")
|
||||
drt("PS") = dr("PS")
|
||||
drt("Cantidad") = dr("Cantidad")
|
||||
drt("Observaciones") = dr("Obs")
|
||||
drt("SeFacturara") = True
|
||||
drt("SeSuperviso") = False
|
||||
drt("Archivo") = -1
|
||||
drt("CveCuentaEquipo") = "-1"
|
||||
drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
|
||||
drt("Especificaciones") = "-1"
|
||||
drt("SeFacturara") = True
|
||||
drt("SeSuperviso") = False
|
||||
drt("Archivo") = -1
|
||||
drt("CveCuentaEquipo") = "-1"
|
||||
drt("CuentaEquipoMostrar") = ""
|
||||
drt("Especificaciones") = "-1"
|
||||
|
||||
TmpDT.Rows.Add(drt)
|
||||
Cons = Cons + 1
|
||||
Else
|
||||
TmpDT.Rows.Add(drt)
|
||||
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
|
||||
Else
|
||||
If ObjVentas.GetVentaDetalle(CveCotizacion) Then
|
||||
|
||||
Dim Cons As Integer = 1
|
||||
For Each dr As DataRow In ObjVentas.DtResultados.Rows
|
||||
Dim drt As DataRow = TmpDT.NewRow
|
||||
|
||||
If dr("CveTipoPS").ToString.ToEntero = 2 Then
|
||||
drt("Consecutivo") = Cons
|
||||
drt("CveOSDetalle") = -1
|
||||
drt("CvePS") = dr("CvePS")
|
||||
drt("PS") = dr("PS")
|
||||
drt("Cantidad") = dr("Cantidad")
|
||||
drt("Observaciones") = dr("Obs")
|
||||
drt("SeFacturara") = True
|
||||
drt("SeSuperviso") = False
|
||||
drt("Archivo") = -1
|
||||
drt("CveCuentaEquipo") = "-1"
|
||||
drt("CuentaEquipoMostrar") = "Cuentas y/o Equipos"
|
||||
drt("Especificaciones") = "-1"
|
||||
|
||||
TmpDT.Rows.Add(drt)
|
||||
Cons = Cons + 1
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
GvPS.DataSource = TmpDT
|
||||
GvPS.DataBind()
|
||||
End If
|
||||
'CargaDetalle
|
||||
End If
|
||||
|
||||
@@ -473,7 +473,7 @@
|
||||
</div>
|
||||
<div class="col-md-6 ">
|
||||
<div class="form-group form-md-line-input">
|
||||
<asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="10"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtNombreCorto" runat="server" CssClass="form-control" MaxLength="30"></asp:TextBox>
|
||||
<label for="<%= TxtNombreCorto.ClientID.ToString()%>">Nombre Corto: </label>
|
||||
|
||||
</div>
|
||||
@@ -1751,6 +1751,7 @@
|
||||
<asp:Button ID="BtnCargaCxC" runat="server" ClientIDMode="Static" Text="CargaCxC" Style="display: none;" OnClick="BtnCargaCxC_Click" />
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
@@ -1867,7 +1868,6 @@
|
||||
</div>
|
||||
|
||||
<div class="col-md-6">
|
||||
|
||||
<div class="form-group form-md-line-input">
|
||||
<asp:TextBox ID="TxtCobranzaContacto" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
|
||||
<label for="<%= TxtCobranzaContacto.ClientID.ToString()%>">Nombre Contacto de Pagos: </label>
|
||||
@@ -1906,10 +1906,6 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input">
|
||||
@@ -5200,7 +5196,7 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" >
|
||||
<div class="row" style="padding-left: 16px;">
|
||||
<div class="form-group form-md-line-input input-iconright col-xs-6">
|
||||
<asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
|
||||
<asp:RegularExpressionValidator ID="RegularExpressionValidator1" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
|
||||
@@ -5215,7 +5211,7 @@
|
||||
<i></i>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" >
|
||||
<div class="row" style="padding-left: 16px;" >
|
||||
<div class="form-group form-md-line-input input-iconright col-xs-6">
|
||||
<asp:TextBox ID="TxtContactoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtContactoSucursal.ClientID.ToString()%>">Contacto:</label>
|
||||
@@ -5283,7 +5279,9 @@
|
||||
</div>
|
||||
|
||||
<div class="row" style="padding-left: 16px">
|
||||
<div class="form-group form-md-line-input input-iconright col-xs-6">
|
||||
<div class="form-group form-md-line-input input-iconright col-xs-6" runat="server" id="DvAlmacenSucursal" visible="false">
|
||||
<asp:DropDownList runat="server" ID="ddlAlmacenSucursal" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control select2me" Width="100%"></asp:DropDownList>
|
||||
<label for="<%=ddlAlmacenSucursal.ClientID.ToString()%>">Almacén:</label>
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright col-xs-6">
|
||||
<div id="DivEstatusSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-12">
|
||||
|
||||
@@ -661,17 +661,7 @@ Partial Class Clientes
|
||||
End Property
|
||||
|
||||
|
||||
Property CveAlmacenAsignadoSucursal As Integer
|
||||
Get
|
||||
If ViewState("CveAlmacenAsignadoSucursal") Is Nothing Then
|
||||
ViewState("CveAlmacenAsignadoSucursal") = -1
|
||||
End If
|
||||
Return ViewState("CveAlmacenAsignadoSucursal").ToString().ToEntero()
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveAlmacenAsignadoSucursal") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@@ -2583,8 +2573,9 @@ Partial Class Clientes
|
||||
For Each Row As DataRow In TempDTSucursales.Rows
|
||||
If Not CveCliente > 0 Then
|
||||
|
||||
Dim CveAlmacenAsignadoSucursal As Integer = -1
|
||||
If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
Dim CveAlmacenAsignadoSucursal As Integer = If(Row("CveAlmacenAsignado").ToString().ToEntero <= 0, -1, Row("CveAlmacenAsignado").ToString().ToEntero)
|
||||
|
||||
If DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveAlmacenAsignadoSucursal <= -1 Then
|
||||
CveAlmacenAsignadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(Row("SucursalCliente").ToString(), ObjClientes.IniciaTransacSQL())
|
||||
If Not CveAlmacenAsignadoSucursal > 0 Then
|
||||
ErrorProceso = True
|
||||
@@ -3005,14 +2996,26 @@ Partial Class Clientes
|
||||
DivEstatusSucursal.Visible = False
|
||||
TxtNumeroCuenta.Text = ""
|
||||
DdlMetodoPagoSucursal.SelectedIndex = 0
|
||||
CveAlmacenAsignadoSucursal = -1
|
||||
ddlAlmacenSucursal.SelectedValueExist("-1")
|
||||
UpAgregarSucursal.Update()
|
||||
Me.CveClienteSuc = -1
|
||||
Me.Actualizar = False
|
||||
txtLg.Text = ""
|
||||
txtLt.Text = ""
|
||||
HDMAPOP.Value = "2"
|
||||
|
||||
HDMAPOP.Value = "2"
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
DvAlmacenSucursal.Visible = True
|
||||
ddlAlmacenSucursal.Items.Clear()
|
||||
ddlAlmacenSucursal.ClearSelection()
|
||||
ddlAlmacenSucursal.SelectedValue = Nothing
|
||||
ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
||||
ddlAlmacenSucursal.DataBind()
|
||||
End If
|
||||
|
||||
ddlAlmacenSucursal.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
|
||||
ddlAlmacenSucursal.SelectedValueExist("-1")
|
||||
|
||||
UpModalDivMapa.Update()
|
||||
|
||||
|
||||
@@ -3053,7 +3056,7 @@ Partial Class Clientes
|
||||
Dim ObjCliente As New ClsClientes
|
||||
ObjCliente.IniciaTransacSQL()
|
||||
|
||||
If CveAlmacenAsignadoSucursal <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
If ddlAlmacenSucursal.SelectedValue.ToEntero <= 0 AndAlso DdlTipoCliente.SelectedValue.ToEntero = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(404) = "30" AndAlso UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
CveAlmacenAgregadoSucursal = GeneraGuardaAlmacenAsignadoSucursal(TxtNombreSucursal.Text.Trim, ObjCliente.IniciaTransacSQL())
|
||||
If Not CveAlmacenAgregadoSucursal > 0 Then
|
||||
ProcesoOK = False
|
||||
@@ -3214,7 +3217,7 @@ Partial Class Clientes
|
||||
Me.Actualizar = True
|
||||
'Me.DivRFCSucursal.Visible = False
|
||||
Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
|
||||
CveAlmacenAsignadoSucursal = -1
|
||||
ddlAlmacenSucursal.SelectedValueExist("-1")
|
||||
|
||||
Dim ObjCliente As New ClsClientes
|
||||
|
||||
@@ -3254,7 +3257,20 @@ Partial Class Clientes
|
||||
txtLt.Text = ObjCliente.DtResultados.Rows(0)("LT").ToString()
|
||||
HDMAPOP.Value = "2"
|
||||
|
||||
CveAlmacenAsignadoSucursal = ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString().ToEntero
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
DvAlmacenSucursal.Visible = True
|
||||
ddlAlmacenSucursal.Items.Clear()
|
||||
ddlAlmacenSucursal.ClearSelection()
|
||||
ddlAlmacenSucursal.SelectedValue = Nothing
|
||||
ddlAlmacenSucursal.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
|
||||
ddlAlmacenSucursal.DataBind()
|
||||
ddlAlmacenSucursal.Items.Add(New ListItem("Seleccione uno", "-1"))
|
||||
ddlAlmacenSucursal.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveAlmacenAsignado").ToString())
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
UpAgregarSucursal.Update()
|
||||
@@ -5537,6 +5553,8 @@ Partial Class Clientes
|
||||
RowSucursal("LT") = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
|
||||
RowSucursal("LG") = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
|
||||
|
||||
RowSucursal("CveAlmacenAsignado") = ddlAlmacenSucursal.SelectedValue.ToEntero
|
||||
|
||||
TempDTSucursales.Rows.Add(RowSucursal)
|
||||
|
||||
GVSucursales.DataSource = TempDTSucursales
|
||||
@@ -10526,7 +10544,7 @@ Partial Class Clientes
|
||||
Dim CveAlmacenAgregado As Integer = -1
|
||||
Dim ObjInv As New ClsInventarios(transaccionSQL)
|
||||
Dim nombreAlamacenLibre As Boolean = True
|
||||
Dim ProcesoValidaAlamcenOF = True
|
||||
Dim ProcesoValidaAlamcenOF As Boolean = True
|
||||
|
||||
If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
nombreAlamacenLibre = If(ObjInv.DtResultados.FiltraParametros($" Almacen = '{NombreAlmacen}'").Rows.Count > 0, False, True)
|
||||
|
||||
@@ -380,6 +380,10 @@
|
||||
<%-- <li>
|
||||
<asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
|
||||
</li>--%>
|
||||
|
||||
<li>
|
||||
<asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
<Triggers>
|
||||
<asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
|
||||
|
||||
@@ -3399,6 +3399,11 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
If CveVenta >= 0 AndAlso UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
||||
HLFAgregarOS.Visible = True
|
||||
HLFAgregarOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveVenta={CveVenta}"
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user