Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
@@ -1646,7 +1646,7 @@ Public Class ClsInventarios
|
||||
End Function
|
||||
|
||||
Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer,
|
||||
FiltroFecha As Integer, CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
|
||||
CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_ProductosCaducidadGet")
|
||||
@@ -1658,7 +1658,6 @@ Public Class ClsInventarios
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
|
||||
.Add("@CvePS", SqlDbType.Int).Value = CvePS
|
||||
.Add("@FiltroFecha", SqlDbType.SmallInt).Value = FiltroFecha
|
||||
.Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
|
||||
@@ -1963,7 +1963,7 @@ Public Class Timbrado
|
||||
|
||||
If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
|
||||
For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
|
||||
cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("#.######"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("#.######"), concep.Importe, concep.Descuento)
|
||||
cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento)
|
||||
For Each imp As CFDIConceptosImpuestos In concep.Impuestos
|
||||
If imp.TrasladooRetencion = "T" Then
|
||||
cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
|
||||
|
||||
@@ -76,7 +76,8 @@
|
||||
<asp:BoundField DataField="Referencia" HeaderText="Referencia" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:BoundField DataField="CuentaCodigo" ItemStyle-Width="100px" HeaderText="Código Cuenta" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:BoundField DataField="CuentaNombre" HeaderText="Nombre Cuenta" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-HorizontalAlign="Left"/>
|
||||
<asp:BoundField DataField="PorcentajeIVA" HeaderText="PorcentajeIVA" ItemStyle-HorizontalAlign="Left"/>
|
||||
|
||||
<asp:TemplateField ItemStyle-Width="49px">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -39,16 +39,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
|
||||
GvDatos.DataSource = ObjConta.DtResultados
|
||||
End If
|
||||
End If
|
||||
GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0
|
||||
GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0
|
||||
|
||||
If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then
|
||||
GvGlobal.DataSource = ObjConta.DtResultados
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
ObjConta.Dispose()
|
||||
GvDatos.DataBind()
|
||||
GvGlobal.DataBind()
|
||||
UpDatos.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -1697,7 +1697,7 @@ Partial Class General_SaldosIniciales
|
||||
Dim SubProTemp As DataTable = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
For Each Row As DataRow In dt.Rows
|
||||
For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
|
||||
NombreCuenta = Row("NombreCuenta").ToString
|
||||
Cuenta = Row("Cuenta").ToString
|
||||
|
||||
@@ -1709,11 +1709,8 @@ Partial Class General_SaldosIniciales
|
||||
Dim YaExiste As Boolean = False
|
||||
Dim DataTemp As DataTable
|
||||
|
||||
Dim SubP As String = Row("SubProyecto").ToString
|
||||
If SubP <> "" Then
|
||||
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
|
||||
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
|
||||
End If
|
||||
|
||||
|
||||
Cuenta = Cuenta.Replace(" ", "")
|
||||
If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
@@ -1729,6 +1726,17 @@ Partial Class General_SaldosIniciales
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Dim SubP As String = Row("SubProyecto").ToString
|
||||
If SubP <> "" OrElse SubP <> "-" Then
|
||||
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
|
||||
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
|
||||
If CveSubProyecto <= 0 Then
|
||||
Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos </br>")
|
||||
TieneError = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
'If TipoCuenta.Contiene("A", "C", "E") Then
|
||||
' CargoAbono = False
|
||||
@@ -1738,6 +1746,8 @@ Partial Class General_SaldosIniciales
|
||||
If IdCuenta > 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
|
||||
TieneError = True
|
||||
Reporte.Append(NombreCuenta)
|
||||
NombreCuenta.GuardaLog
|
||||
Exit For
|
||||
End If
|
||||
Else
|
||||
|
||||
@@ -40,7 +40,7 @@
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="max-width: 80px">Proveedor</div>
|
||||
<div class="col-md-2">
|
||||
<ADS:Dropdownlost ID="DdlProveedor" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
|
||||
<ADS:Dropdownlost ID="DdlProveedor" runat="server" EsWebService="true" data-metodo="getproveedores" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
|
||||
</div>
|
||||
<%-- <div class="col-md-1 truncate" style="max-width: 80px">Folio</div>
|
||||
<div class="col-md-1">
|
||||
|
||||
@@ -96,7 +96,16 @@
|
||||
<ADS:Dropdownlost ID="DdlProveedor" runat="server" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"></ADS:Dropdownlost>
|
||||
</div>
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>Fecha Inicio:</label>
|
||||
<label>Op. Fecha:</label>
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList runat="server" ID="DdlOpcion" CssClass="select2me" Width="100px" >
|
||||
<asp:ListItem Value="2" Selected="True">Caducidad</asp:ListItem>
|
||||
<asp:ListItem Value="1">Elaboración</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>F. Inicio:</label>
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;display:flex">
|
||||
@@ -108,8 +117,8 @@
|
||||
<ajax:MaskedEditExtender ID="MEEFechaIEjec" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="CalFechaIEjec" runat="server" TargetControlID="TxtFechaInicio" PopupButtonID="ImgCalFechaIEjec" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
</div>
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>Fecha Fin:</label>
|
||||
<div class="col-md-1" style="text-align:right">
|
||||
<label>. Fin:</label>
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100% !important; padding: 0px;display:flex">
|
||||
@@ -120,27 +129,24 @@
|
||||
</div>
|
||||
<ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
|
||||
<ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaFin" PopupButtonID="ImgCalFechaF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
|
||||
</div>
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body" style="display: none;">
|
||||
<div class="row">
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>Sucursal:</label>
|
||||
</div>
|
||||
<div class="col-sm-1">
|
||||
<asp:DropDownList runat="server" ID="DdlSucursal" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AutoPostBack="true" OnSelectedIndexChanged="DdlSucursal_SelectedIndexChanged" Width="100%"></asp:DropDownList>
|
||||
</div>
|
||||
<label class="col-md-1 truncate" >Almacén:</label>
|
||||
<label class="col-md-1 truncate" >Almacén:</label>
|
||||
<div class="col-md-1">
|
||||
<asp:ListBox ID="ddlAlmacen" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:ListBox>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="portlet-body" style="display: none;">
|
||||
<div class="row">
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>Clasificación:</label>
|
||||
</div>
|
||||
@@ -151,21 +157,9 @@
|
||||
<div class="col-md-2">
|
||||
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%;" CssClass="DdlPS" CssClassDdl="select2me " DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
|
||||
</div>
|
||||
<div class="col-sm-1" style="text-align:right">
|
||||
<label>Opcion:</label>
|
||||
</div>
|
||||
<div class="col-md-1">
|
||||
<asp:DropDownList runat="server" ID="DdlOpcion" CssClass="select2me" Width="100%" CssStyle="width: 100%;">
|
||||
<asp:ListItem Value="1">Elaboración</asp:ListItem>
|
||||
<asp:ListItem Value="2" Selected="True">Caducidad</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -2742,7 +2742,7 @@ Partial Class OC
|
||||
'ES NUEVO
|
||||
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
|
||||
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
|
||||
Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
|
||||
|
||||
|
||||
@@ -3116,7 +3116,7 @@ Partial Class OC
|
||||
'Edicion
|
||||
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
|
||||
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
|
||||
Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
Alert(String.Format("La {0} se guardó correctamente", TipoLargo), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
|
||||
Else
|
||||
Dim ImprimirOC = ""
|
||||
@@ -3143,7 +3143,7 @@ Partial Class OC
|
||||
'Edicion
|
||||
Dim Liga1 As String = $"document.location.href=""/OC/OC.aspx?Tipo={TipoOC}"""
|
||||
Dim Liga2 As String = $"document.location.href=""/OC/RepOC.aspx"""
|
||||
Alert(Msg.ToString(), TipoMensaje.MsgVentasDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
Alert(Msg.ToString(), TipoMensaje.MsgDosBotones, Liga1, TextoConfirmacion:="Seguir Registrando", TextoSegundoBoton:="Ir al Reporte", JSBtn2:=Liga2)
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -46,12 +46,7 @@ Partial Class CatMetasVendedores
|
||||
DdlVendedor.DataBind()
|
||||
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
Dim ObjPS As New ClsProductosServicios
|
||||
If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
|
||||
DdlMarca.DataSource = ObjPS.DtResultados
|
||||
End If
|
||||
ObjPS.Dispose()
|
||||
|
||||
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
|
||||
DdlMarca.DataBind()
|
||||
DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
|
||||
|
||||
|
||||
@@ -124,7 +124,7 @@
|
||||
</div>
|
||||
<label class="col-md-1 text-right">Cliente: </label>
|
||||
<div class="col-md-3">
|
||||
<asp:DropDownList ID="DdlCliente" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCliente" DataTextField="NombreComercial"></asp:DropDownList>
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" UsaWebService="true" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
|
||||
</div>
|
||||
<label class="col-md-1 text-right">Marca: </label>
|
||||
<div class="col-md-3">
|
||||
|
||||
@@ -51,16 +51,21 @@ Partial Class MetasVendedores
|
||||
DdlClasificacion2.DataBind()
|
||||
DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
DdlCliente.DataBind()
|
||||
DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
'DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
|
||||
'DdlCliente.DataBind()
|
||||
'DdlCliente.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Sub CargarDatosReporte()
|
||||
Dim CveCliente As Integer = -1
|
||||
If DdlClientes.SelectedValue.ToEntero > 0 Then
|
||||
CveCliente = DdlClientes.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
Dim ObjVentas As New ClsVentas
|
||||
If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
|
||||
DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
|
||||
DdlSubProyectoFiltro.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
|
||||
DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlGrupo.SelectedValue.ToEntero) Then
|
||||
GV.DataSource = ObjVentas.DtResultados
|
||||
DtDatos = ObjVentas.DtResultados
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user