Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git
This commit is contained in:
@@ -335,7 +335,7 @@ Public Class ClsContratos
|
||||
Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
|
||||
Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "",
|
||||
Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1, Optional ObservacionesGenerales As String = "",
|
||||
Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CveRuta As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Integer
|
||||
Optional CveTipoAF As Integer = Nothing, Optional CveChofer As Integer = Nothing, Optional CveChofer2 As Integer = Nothing, Optional CveAF As Integer = Nothing, Optional CantidadPasajeros As Integer = Nothing, Optional CvePartida As Integer = Nothing, Optional CveDestino As Integer = Nothing, Optional CveMasivo As Integer = Nothing) As Integer
|
||||
|
||||
Dim Retorno As Integer = -1
|
||||
DataAdapter("PA_Con_ContratosAdd")
|
||||
@@ -397,7 +397,6 @@ Public Class ClsContratos
|
||||
.Add("@CveChofer2", SqlDbType.Int).Value = CveChofer2
|
||||
.Add("@CveAF", SqlDbType.Int).Value = CveAF
|
||||
.Add("@CantidadPasajeros", SqlDbType.Int).Value = CantidadPasajeros
|
||||
.Add("@CveRuta", SqlDbType.Int).Value = CveRuta
|
||||
.Add("@CvePartida", SqlDbType.Int).Value = CvePartida
|
||||
.Add("@CveDestino", SqlDbType.Int).Value = CveDestino
|
||||
.Add("@CveMasivo", SqlDbType.Int).Value = CveMasivo
|
||||
|
||||
@@ -626,13 +626,13 @@ Public Class Timbres
|
||||
Return Retorno
|
||||
|
||||
End Function
|
||||
Public Function Timbrar() As Boolean
|
||||
Public Function Timbrar(Optional CvePACEspecifico As Integer = -1) As Boolean
|
||||
|
||||
Dim Respuesta As Boolean = False
|
||||
|
||||
Dim ObjTimbrado As New Timbrado
|
||||
|
||||
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) Then
|
||||
If ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePACEspecial:=CvePACEspecifico) Then
|
||||
Respuesta = True
|
||||
Else
|
||||
Respuesta = False
|
||||
|
||||
Binary file not shown.
BIN
Bin/Bin.rar
BIN
Bin/Bin.rar
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -3293,7 +3293,7 @@ Partial Class Compras_Compras
|
||||
If RetIVAOriginal > 0 Then
|
||||
Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal
|
||||
|
||||
If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
|
||||
If (CalRetIVAPor).RoundSQL(5) = 0.10666 OrElse (CalRetIVAPor).RoundSQL(5) = 0.05333 Then
|
||||
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
|
||||
End If
|
||||
If RetIVAFlete Then '4 Fletes
|
||||
@@ -3314,6 +3314,7 @@ Partial Class Compras_Compras
|
||||
'permitido en un margen de 1% a 2%
|
||||
If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
|
||||
DdlRetISRConcepto.SelectedValueExist("3")
|
||||
RetISRResico = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1481,7 +1481,7 @@ Sello digital del SAT:
|
||||
<ClientRectangle>0,2.68,14.6,0.8</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
<Guid>179a957f89d04921b856805a4c2e9d49</Guid>
|
||||
<Margins>0,0,0,0</Margins>
|
||||
<Name>Text9</Name>
|
||||
@@ -1542,7 +1542,7 @@ DESPUES DE 72 HORAS POSTERIORES A LA FECHA DE ELABORACIÓN"</Text>
|
||||
<ReportAlias>Factura</ReportAlias>
|
||||
<ReportChanged>1/18/2024 9:39:09 AM</ReportChanged>
|
||||
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
|
||||
<ReportFile>Factura.mrt</ReportFile>
|
||||
<ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Factura.mrt</ReportFile>
|
||||
<ReportGuid>4a902ea660c34d0baeae36e92ea35edd</ReportGuid>
|
||||
<ReportName>Factura</ReportName>
|
||||
<ReportUnit>Centimeters</ReportUnit>
|
||||
|
||||
@@ -1056,7 +1056,7 @@ Fecha Cirugia: {FechaCirugia}</Text>
|
||||
<ClientRectangle>0,2.48,13.2,0.8</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
<Guid>1891a87e013d48868bd75b5710529e30</Guid>
|
||||
<Margins>0,0,0,0</Margins>
|
||||
<Name>Text13</Name>
|
||||
|
||||
@@ -1080,7 +1080,7 @@ Vendedor: {VendedorNombre}</Text>
|
||||
<ClientRectangle>0,2.48,10.6,1</ClientRectangle>
|
||||
<Conditions isList="true" count="0" />
|
||||
<Expressions isList="true" count="0" />
|
||||
<Font>Myriad Pro,9,Regular,Point,False,0</Font>
|
||||
<Font>Myriad Pro,8,Regular,Point,False,0</Font>
|
||||
<Guid>fca703f575e74a9f8bc6628424c9a960</Guid>
|
||||
<Margins>0,0,0,0</Margins>
|
||||
<Name>Text13</Name>
|
||||
@@ -1138,7 +1138,7 @@ Episodio: {Episodio}</Text>
|
||||
<ReportAlias>Report</ReportAlias>
|
||||
<ReportChanged>10/11/2022 8:18:55 PM</ReportChanged>
|
||||
<ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
|
||||
<ReportFile>Remision.mrt</ReportFile>
|
||||
<ReportFile>C:\inetpub\WWWSigGit\Empresas\186\Formatos\Remision.mrt</ReportFile>
|
||||
<ReportGuid>49b2dec77fe542ea952b501bf54fafb1</ReportGuid>
|
||||
<ReportName>Report</ReportName>
|
||||
<ReportUnit>Centimeters</ReportUnit>
|
||||
|
||||
@@ -1016,7 +1016,8 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
|
||||
CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
|
||||
Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
|
||||
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal, ResponsableCarga:="", ResponsableRecibio:="",
|
||||
CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDecimal > 0, TxtGastoIndirecto.Text, "-1").ToDecimal,
|
||||
ResponsableCarga:="", ResponsableRecibio:="",
|
||||
Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
|
||||
FolioSalida = ObjInventario.Folio
|
||||
Folio = ObjInventario.Folio
|
||||
@@ -2754,7 +2755,7 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
MensajeAlert.Append("<br/><br/>")
|
||||
|
||||
If ObjTimbres.Timbrar() Then
|
||||
If ObjTimbres.Timbrar(CvePACEspecifico:=4) Then
|
||||
|
||||
Try
|
||||
PdfFactura(ObjTimbres.ObjFactura)
|
||||
|
||||
@@ -10,7 +10,7 @@
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
<style>
|
||||
.my-1 {
|
||||
margin-block: 1rem;
|
||||
|
||||
}
|
||||
</style>
|
||||
</asp:Content>
|
||||
@@ -26,6 +26,8 @@
|
||||
<%-- Información General --%>
|
||||
<ajax:TabPanel runat="server" HeaderText="Información General" CssClass="tabBodyOverride">
|
||||
<ContentTemplate>
|
||||
<div class="row">
|
||||
<div class="col-md-7">
|
||||
<%-- Datos del Contrato --%>
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet-title">
|
||||
@@ -41,13 +43,13 @@
|
||||
|
||||
<div class="portlet-body rowpadding">
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4 bold text-primary">Folio</label>
|
||||
<asp:Label class="col-md-8" runat="server" ID="LbFolio" Text="Folio"></asp:Label>
|
||||
<label class="col-md-2 text-primary">Folio</label>
|
||||
<asp:Label class="col-md-10" runat="server" ID="LbFolio" Text=""></asp:Label>
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Cliente</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Cliente</label>
|
||||
<div class="col-md-10">
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="86%" data-metodo="getcliente"
|
||||
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 86%;"
|
||||
UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
|
||||
@@ -57,8 +59,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">Servicio</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Servicio</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
|
||||
TextMode="MultiLine"
|
||||
Rows="2"></asp:TextBox>
|
||||
@@ -72,8 +74,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Observaciones</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Observaciones</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
|
||||
TextMode="MultiLine"
|
||||
Rows="2"></asp:TextBox>
|
||||
@@ -81,15 +83,15 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">Lugar de Salida</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Lugar de Salida</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Fecha Salida</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Fecha Salida</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
|
||||
Width="100%"
|
||||
type="datetime"></asp:TextBox>
|
||||
@@ -103,8 +105,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">Fecha Regreso</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Fecha Regreso</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
|
||||
Width="100%"
|
||||
type="datetime"></asp:TextBox>
|
||||
@@ -118,9 +120,9 @@
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Cantidad de pasajeros</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtCantidadPasajeros" CssStyle="col-md-8 form-control" runat="server"
|
||||
<label class="col-md-2">Cant. pasajeros</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtCantidadPasajeros" CssStyle="col-md-10 form-control" runat="server"
|
||||
type="number"
|
||||
Width="100%"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros"
|
||||
@@ -133,8 +135,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">Tipo Unidad</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Tipo Unidad</label>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList ID="DdlTipoAF" AppendDataBoundItems="true" DataTextField="TipoActivoFijo"
|
||||
DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
@@ -149,8 +151,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Costo dólares</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Costo dólares</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtDolares" CssStyle=" form-control" runat="server" type="number"
|
||||
Width="95%"></asp:TextBox>
|
||||
<span class="fa fa-dollar"></span>
|
||||
@@ -158,8 +160,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">Costo pesos</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Costo pesos</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtPesos" CssStyle=" form-control" runat="server" type="number"
|
||||
Width="95%"></asp:TextBox>
|
||||
<span class="fa fa-dollar"></span>
|
||||
@@ -167,8 +169,8 @@
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Anticipo</label>
|
||||
<div class="col-md-8">
|
||||
<label class="col-md-2">Anticipo</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtAnticipo" CssStyle=" form-control" Width="95%" runat="server"
|
||||
type="decimal"></asp:TextBox>
|
||||
<span class="fa fa-percent"></span>
|
||||
@@ -176,13 +178,11 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
<%-- Pre init --%>
|
||||
<ajax:TabPanel runat="server" HeaderText="PreInit" CssClass="row">
|
||||
<ContentTemplate>
|
||||
</ContentTemplate>
|
||||
</ajax:TabPanel>
|
||||
|
||||
<%-- Boletos --%>
|
||||
<ajax:TabPanel runat="server" HeaderText="Boletos" CssClass="row" Visible="false"
|
||||
ID="TabBoletos">
|
||||
|
||||
@@ -19,8 +19,8 @@ Partial Class ListadoContratos
|
||||
End Property
|
||||
#End Region
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
|
||||
txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T")
|
||||
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
|
||||
txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
|
||||
|
||||
If Not IsPostBack Then
|
||||
InicializaCombos()
|
||||
@@ -56,6 +56,7 @@ Partial Class ListadoContratos
|
||||
GvContratos.DataSource = ObjContratos.DtResultados
|
||||
GvContratos.DataBind()
|
||||
End If
|
||||
ObjContratos.Dispose()
|
||||
|
||||
'Generamos Folio - NumeroContrato
|
||||
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
|
||||
|
||||
@@ -107,6 +107,7 @@ Partial Class ListadoViajes
|
||||
|
||||
Protected Sub AddViaje(sender As Object, e As EventArgs)
|
||||
'Generador de Viajes Masivos
|
||||
Dim CveSubProyecto As Integer = DdlRutas.SelectedValue.ToEntero 'GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
|
||||
If IsMasivo.Checked = True Then
|
||||
If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
|
||||
Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)
|
||||
@@ -127,7 +128,6 @@ Partial Class ListadoViajes
|
||||
Dim ObjContratos As New ClsContratos
|
||||
|
||||
'Generamos folio
|
||||
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
|
||||
If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
|
||||
If ObjFolio.DtResultados.Rows.Count > 0 Then
|
||||
Dim drr As DataRow = ObjFolio.DtResultados.FiltroPrimero("")
|
||||
@@ -136,7 +136,7 @@ Partial Class ListadoViajes
|
||||
End If
|
||||
'Agregamos contrato
|
||||
ObjContratos.IniciaTransacSQL()
|
||||
If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CveRuta:=DdlRutas.Text.ToEntero, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
|
||||
If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
|
||||
ObjContratos.Commit()
|
||||
End If
|
||||
'Actualizamos Folio
|
||||
@@ -164,13 +164,13 @@ Partial Class ListadoViajes
|
||||
Try
|
||||
'Agregamos Viaje
|
||||
If BtnGuardar.Text = "Agregar" Then
|
||||
If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", -1, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
|
||||
If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
|
||||
ObjContratos.Commit()
|
||||
Alert("Viaje agregado correctamente.")
|
||||
End If
|
||||
Else
|
||||
'Actualizamos Viaje
|
||||
If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
|
||||
If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
|
||||
ObjContratos.Commit()
|
||||
Alert("El viaje se actualizó correctamente.")
|
||||
End If
|
||||
@@ -180,12 +180,8 @@ Partial Class ListadoViajes
|
||||
ObjContratos.RollBack()
|
||||
Finally
|
||||
'Reiniciamos modal
|
||||
DdlRutas.Text = ""
|
||||
TxtFechaViaje.Text = ""
|
||||
DdlPartida.Text = ""
|
||||
DdlDestino.SelectedValue = ""
|
||||
'Actualizamos Folio
|
||||
Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
|
||||
Dim ObjFolios As New ClsGralFolios
|
||||
If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
|
||||
ObjFolios.Dispose()
|
||||
|
||||
@@ -545,7 +545,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
|
||||
CveEstatusFactura = -1;
|
||||
}
|
||||
|
||||
retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstatusFacturaAsignado: CveEstatusFactura);
|
||||
retorno = factura.CancelarPorRefacturacion(factura.CveMotivoCancelacion, factura.MotivoCancelacion, FolioSustitucion: FolioSustitucion, CveEstadoCancelacion: CveEstatusFactura);
|
||||
}
|
||||
else
|
||||
{
|
||||
|
||||
@@ -13319,14 +13319,26 @@ Partial Class Ventas
|
||||
End If
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
|
||||
|
||||
If CveAlmacenAsignado <= 0 Then
|
||||
ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
|
||||
Else
|
||||
CveAlmacenTraspasoDestino = CveAlmacenAsignado
|
||||
|
||||
If RBLTipoVenta.SelectedValue.ToEntero = 2 Then
|
||||
If Not ChkRequiereTecnico.Checked Then
|
||||
CveAlmacenTraspasoDestino = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 10 AND CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString().ToEntero()
|
||||
End If
|
||||
|
||||
If CveAlmacenTraspasoDestino <= 0 Then
|
||||
ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado.")
|
||||
End If
|
||||
|
||||
Else
|
||||
If CveAlmacenTraspasoDestino <= 0 Then
|
||||
ErrorList.Add("Ocurrió un error al seleccionar el almacen de resguardo del cliente.")
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim TotalImpuestoLocal As Double = 0
|
||||
@@ -13398,6 +13410,7 @@ Partial Class Ventas
|
||||
CveMedico = DdlMedico.SelectedValue.ToEntero
|
||||
CveProcedimiento = DdlProcedimiento.SelectedValue.ToEntero
|
||||
CveTipoVentaGuardar = If(SeEstaFActurandoVentaMedica, CveTipoVenta, RBLTipoVenta.SelectedValue.ToEntero)
|
||||
'CveAlmacenTraspasoDestino
|
||||
End If
|
||||
|
||||
|
||||
@@ -36415,7 +36428,7 @@ Partial Class Ventas
|
||||
DvModalRequiereOSFecha.Visible = True
|
||||
Case "2" ' Pago Directo
|
||||
ChkRequiereTecnicoModal.Checked = True
|
||||
ChkRequiereTecnicoModal.Enabled = False
|
||||
ChkRequiereTecnicoModal.Enabled = True
|
||||
DvModalRequiereOSFecha.Visible = True
|
||||
DvModalTipoVentaCliente.Visible = True
|
||||
Case "3" 'A-Vista
|
||||
@@ -36617,15 +36630,21 @@ Partial Class Ventas
|
||||
|
||||
If RBLTipoVenta.SelectedValue.Contiene("2") Then 'si es pago directo es factura
|
||||
'DdlTipoComprobante.SelectedValueExist("Ing")
|
||||
DdlTipoComprobante.SelectedValueExist("Ped")
|
||||
|
||||
TrVentasMedicas1.Visible = True
|
||||
TrVentasMedicas2.Visible = True
|
||||
|
||||
TdFechaOS1.Visible = True
|
||||
TdFechaOS2.Visible = True
|
||||
ChkRequiereTecnico.Checked = True
|
||||
ChkRequiereTecnico.Enabled = False
|
||||
ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked
|
||||
ChkRequiereTecnico.Enabled = True
|
||||
|
||||
If ChkRequiereTecnico.Checked Then
|
||||
DdlTipoComprobante.SelectedValueExist("Ped")
|
||||
Else
|
||||
DdlTipoComprobante.SelectedValueExist("Rem")
|
||||
End If
|
||||
|
||||
|
||||
ElseIf RBLTipoVenta.SelectedValue.Contiene("3") Then ' A vista
|
||||
DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped"))
|
||||
|
||||
Reference in New Issue
Block a user