Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
AbrahamCastilloV
@@ -321,7 +321,8 @@ Public Class ClsContratos
|
||||
Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1,
|
||||
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 = -1, Optional CveChofer As Integer = -1) As Integer
|
||||
Optional FacturacionCicilica As Boolean = False, Optional FacturacionCiclicaAutomatico As Boolean = False, Optional DiaMesFacturacion As Integer = 1, Optional ObservacionesGenerales As String = "",
|
||||
Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveAF As Integer = -1) As Integer
|
||||
|
||||
Dim Retorno As Integer = -1
|
||||
DataAdapter("PA_Con_ContratosAdd")
|
||||
@@ -379,6 +380,7 @@ Public Class ClsContratos
|
||||
.Add("@ObservacionesGenerales", SqlDbType.VarChar).Value = ObservacionesGenerales
|
||||
.Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
|
||||
.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
|
||||
.Add("@CveAF", SqlDbType.Int).Value = CveAF
|
||||
|
||||
End With
|
||||
|
||||
|
||||
@@ -1795,6 +1795,7 @@ Public Class ClsVentas
|
||||
Optional ServicioDomicilio As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_GetRepPS")
|
||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
@@ -1850,6 +1851,7 @@ Public Class ClsVentas
|
||||
Optional CveClasificacion2 As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional ServicioDomicilio As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Vta_GetRepPSDetalle")
|
||||
SqlAdapter.SelectCommand.CommandTimeout = 0
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
|
||||
|
||||
@@ -427,8 +427,14 @@ Public Class E119 : Implements IHttpHandler
|
||||
If Not String.IsNullOrEmpty(UsoCFDI) Then
|
||||
CveUsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", $"UsoCFDI = '{UsoCFDI.Trim}'").ToEntero()
|
||||
End If
|
||||
Else
|
||||
TieneError = True
|
||||
Resp.Mensajes.Add("no existe cliente definido")
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
|
||||
|
||||
'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE
|
||||
If ObjClientes.GetClientes(-1, "-1", "-1", "-1", RFC, "-1", "-1", -1, CveEmpresa, 1, TipoCliente:=-1, TopSelect:=1) Then
|
||||
If ObjClientes.DtResultados.Rows.Count > 0 Then
|
||||
@@ -437,7 +443,7 @@ Public Class E119 : Implements IHttpHandler
|
||||
'Resp.Mensajes.Add("El RFC ya existe en el sistema")
|
||||
End If
|
||||
End If
|
||||
MsgLog.AppendLine("1.4 verificar cliente")
|
||||
MsgLog.AppendLine("1.4 verificar cliente.")
|
||||
|
||||
|
||||
If CveCliente = 0 Then
|
||||
@@ -478,7 +484,7 @@ Public Class E119 : Implements IHttpHandler
|
||||
Else
|
||||
MsgLog.AppendLine("1.5.9 sin datos cliente")
|
||||
TieneError = True
|
||||
Resp.Mensajes.Add("no existen datos del cliente")
|
||||
Resp.Mensajes.Add("no existen datos del cliente.")
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -562,7 +568,6 @@ Public Class E119 : Implements IHttpHandler
|
||||
Resp.Mensajes.Add("no existen productos definidos")
|
||||
End If
|
||||
|
||||
|
||||
If ObjFactura IsNot Nothing AndAlso Not TieneError Then
|
||||
MsgLog.AppendLine("1.7 agregar la remision")
|
||||
Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL())
|
||||
@@ -578,7 +583,7 @@ Public Class E119 : Implements IHttpHandler
|
||||
Respuesta.status = "success"
|
||||
Respuesta.data = data
|
||||
Else
|
||||
MsgLog.AppendLine("1.8 error al agregar la remision")
|
||||
MsgLog.AppendLine("1.8 error al agregar la remision.")
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
@@ -597,6 +602,7 @@ Public Class E119 : Implements IHttpHandler
|
||||
Next
|
||||
RespuestaError.message = sb.ToString()
|
||||
End If
|
||||
End If
|
||||
|
||||
If TieneError Then
|
||||
ObjClientes.RollBack()
|
||||
|
||||
@@ -1536,7 +1536,8 @@ Partial Class Inventarios_EntradasSalidas
|
||||
|
||||
Dim Valido As Boolean = True
|
||||
|
||||
Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).Rows(0)
|
||||
Dim RowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("")
|
||||
If RowPS Is Nothing Then Exit Sub
|
||||
|
||||
Dim CveMetodoInventario As Integer = RowPS("Inv_CveMetodoInventario").ToString().ToEntero()
|
||||
|
||||
@@ -3948,7 +3949,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
ErrorMovInv = True
|
||||
End If
|
||||
Else
|
||||
If ObjInventario.Modulo.Contiene("TA/G1", "Recons") Then
|
||||
If ObjInventario.Modulo.Contiene("TA/G1", "Recons", "API-PT/C1") Then
|
||||
Contabilizable = False
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, DtCostos.SUMD("Total").RoundSQL, DtCostos.SUMD("Total").RoundSQL, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoRelacionado, Contabilizable:=Contabilizable) Then
|
||||
ErrorMovInv = True
|
||||
|
||||
@@ -842,10 +842,13 @@ Partial Class Inventarios_TraspasoAlmacen
|
||||
|
||||
''validaciones de carta porte en productos
|
||||
If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then
|
||||
' Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
|
||||
'If Not ValidaPSSAT(DrPS) Then
|
||||
' Exit Sub
|
||||
'End If
|
||||
For Each gvr As GridViewRow In GvDatos.Rows
|
||||
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToEntero).FiltroPrimero("")
|
||||
If Not ValidaPSSAT(DrPS) Then
|
||||
Exit Sub
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -2950,7 +2950,7 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
ObjOS.Dispose()
|
||||
|
||||
DdlUsuarioAtendio.DataSource = TecnicosResultado
|
||||
DdlUsuarioAtendio.DataSource = TecnicosResultado.FiltraParametros("", "Nombre")
|
||||
DdlUsuarioAtendio.DataBind()
|
||||
DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1"))
|
||||
End Sub
|
||||
|
||||
@@ -211,14 +211,14 @@
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4">
|
||||
<asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
|
||||
<asp:Label runat="server" Text="Tipo Unidad:"></asp:Label></label><div
|
||||
class="col-md-8">
|
||||
|
||||
<asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataValueField="CveActivoFijo"
|
||||
DataTextField="Descripcion" Class="table-group-action-input form-control input-inline select2me"
|
||||
<asp:DropDownList ID="DdlTipoAF" AppendDataBoundItems="true" DataTextField="TipoActivoFijo"
|
||||
DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte"
|
||||
<asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTipoAF"
|
||||
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
|
||||
@@ -228,6 +228,19 @@
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false">
|
||||
<label class="col-md-4">
|
||||
<asp:Label runat="server" Text="Unidad:"></asp:Label></label><div
|
||||
class="col-md-8">
|
||||
|
||||
<asp:DropDownList ID="DdlAF" AppendDataBoundItems="true" DataTextField="Descripcion"
|
||||
DataValueField="CveAF" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row margin-bottom-5">
|
||||
<label class="col-md-4">
|
||||
<asp:Label runat="server" Text="Chofer:"></asp:Label></label><div
|
||||
|
||||
@@ -23,15 +23,17 @@ Partial Class ListadoContratos
|
||||
End Sub
|
||||
Private Sub InicializaCombos()
|
||||
'Lista Activos Fijos'
|
||||
Dim ObjAF As New ClsAF()
|
||||
If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
|
||||
If ObjAF.DtResultados.Rows.Count > 0 Then
|
||||
DdlTransporte.DataSource = ObjAF.DtResultados
|
||||
DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))
|
||||
End If
|
||||
End If
|
||||
DdlTransporte.DataBind()
|
||||
ObjAF.Dispose()
|
||||
'Dim ObjAF As New ClsAF()
|
||||
'If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
|
||||
' If ObjAF.DtResultados.Rows.Count > 0 Then
|
||||
' DdlAF.DataSource = ObjAF.DtResultados
|
||||
' DdlAF.Items.Insert(0, New ListItem("Seleccione", ""))
|
||||
' End If
|
||||
'End If
|
||||
'ObjAF.Dispose()
|
||||
DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
|
||||
DdlTipoAF.DataBind()
|
||||
|
||||
|
||||
'Lista Chofer'
|
||||
DdlChofer.DataSource = GlobalDTRHPersonal(185)
|
||||
@@ -58,7 +60,7 @@ Partial Class ListadoContratos
|
||||
TxtFechaRegreso.Text = FechaRegreso
|
||||
TxtObservaciones.Text = Observaciones
|
||||
TxtUbicacion.Text = Ubicacion
|
||||
DdlTransporte.SelectedValue = Transporte
|
||||
DdlAF.SelectedValue = Transporte
|
||||
DdlClientes.SelectedText = Cliente
|
||||
DdlChofer.SelectedValue = Chofer
|
||||
TxtDolares.Text = Dolares
|
||||
|
||||
Reference in New Issue
Block a user