AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-07-15 10:46:52 -07:00
parent 95c5a3a063 b65c1f8e23
commit 9c743ac30d
7 changed files with 119 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
App_Code/ClsCGame.vb
View File

@@ -1,4 +1,5 @@
Imports System.Data
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Extensiones
@@ -3442,6 +3443,40 @@ Public Class ClsCGame
Return Retorno
End Function
Public Function REPInventarioDiarioPallets(fechaCalculo As DateTime, cveEmpresa As Int32, errorMostrarADS As String) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_CGame_REPInventarioDiarioPallets", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@FechaCalculo", SqlDbType.Date).Value = fechaCalculo
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de inventario diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
Public Function REPInventarioDiarioBins(fechaCalculo As DateTime, cveEmpresa As Int32, errorMostrarADS As String) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_CGame_REPInventarioDiarioBins", CommandType.StoredProcedure)
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
.Add("@FechaCalculo", SqlDbType.Date).Value = fechaCalculo
End With
Try
SqlAdapter.Fill(Data)
retorno = True
Catch ex As Exception
OnError("Ocurrió un error al obtener el reporte de inventario diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return retorno
End Function
#End Region

19
App_Code/ClsPaginas.vb
View File

@@ -6719,7 +6719,7 @@ Public Class ClsPaginas
Dim RutaFormato As String = String.Format("{0}Formatos\Nomina.rdlc", RutaEmpresa)
Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\Nomina.rdlc")
Dim CFDIVersion As String = ""
Dim UsoCFDI As String = ""
Dim UsoCFDI As String = "ND"
@@ -6768,7 +6768,22 @@ Public Class ClsPaginas
If receptorNode IsNot Nothing Then
UsoCFDI = ValorNodoXML(receptorNode, "usocfdi")
UsoCFDI = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
Dim UsoCFDIImprimir As String = GlobalDTSATUsosCFDI(-1, "-1").FiltroPrimeroValor("UsoCFDIDescripcion", $" UsoCFDI = '{UsoCFDI}' ")
If UsoCFDIImprimir.Trim.Length > 0 Then
UsoCFDI = UsoCFDIImprimir
End If
End If
If UsoCFDI = "ND" Or UsoCFDI = "" Then
If CFDIVersion = "4.0" Then
UsoCFDI = "CN01 - Nómina"
Else
UsoCFDI = "P01 - Por definir"
End If
End If

47
Compras/PopUpVerFactura.aspx.vb
View File

@@ -229,6 +229,9 @@ Partial Class PopUpVerFactura
If Request("onlyPrint").ToString() = "Recibo" Then
ReciboAgropecuaria()
End If
If Request("onlyPrint").ToString() = "CitrusInventarioDiario" Then
imprimirRepcitrusInventarioDiario("")
End If
End If
End If
@@ -336,6 +339,50 @@ Partial Class PopUpVerFactura
Response.End()
End Sub
Private Sub imprimirRepcitrusInventarioDiario(fecha As String)
Dim totalPallets As String = ""
Dim totalBachas As String = ""
Dim fechas As String = ""
Dim totalcajas As String = ""
Dim TotalBins As String = ""
Dim tablaReportePallets As New DataTable
Dim tablaReporteBins As New DataTable
Using objnom As New ClsCGame
If objnom.REPInventarioDiarioPallets(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
tablaReportePallets = objnom.DtResultados
totalPallets = tablaReportePallets.SUM("Pallets", "GroupId =1").FormatoNumero(0)
totalBachas = tablaReportePallets.SUM("Bachas", "GroupId =1").FormatoNumero(0)
totalcajas = tablaReportePallets.SUM("CajasTotal", "GroupId =1").FormatoNumero(0)
End If
If objnom.REPInventarioDiarioBins(DateTime.Now, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
tablaReporteBins = objnom.DtResultados
TotalBins = tablaReporteBins.SUM("Bins").FormatoNumero(0)
End If
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
End Using
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("totalPallets", totalPallets))
params.Add(New ReportParameter("totalBachas", totalBachas))
params.Add(New ReportParameter("totalcajas", totalcajas))
params.Add(New ReportParameter("TotalBins", TotalBins))
params.Add(New ReportParameter("Fecha", fechas))
Dim lrds As New List(Of ReportDataSource)
Dim rds As New ReportDataSource With {.Name = "DataSetsPallets", .Value = tablaReportePallets}
lrds.Add(rds)
Dim rds2 As New ReportDataSource With {.Name = "DataSetBins", .Value = tablaReporteBins}
lrds.Add(rds2)
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
ImprimirPDF(rutardlc, lrds, params, "Inventario") ', Content_Disposition:="Inline")
End Sub
Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
Dim NoEmbarque As String = ""
Dim Fecha As String = ""

9
UserControl/TareaNueva.ascx.cs
View File

@@ -17,7 +17,8 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
public bool Ismodal { get { return ViewState["Ismodal"] != null ? (bool)ViewState["Ismodal"] : true; } set { ViewState["Ismodal"] = value; } }
public string OnAddedTareaNueva { get { return ViewState["OnAddedTareaNueva"] != null ? ViewState["OnAddedTareaNueva"].ToString() : "OnAddedTareaNueva"; } set { ViewState["OnAddedTareaNueva"] = value; } }
public const string iddivAgregarTema = "divModalAgregartema";
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
@@ -41,15 +42,15 @@ public partial class UserControl_TareaNueva : System.Web.UI.UserControl
txtCveEventoPadre.Text = "-1";
}
string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol", "CveSubProyecto" };
// GVUsuarios_TareaNueva.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
GVUsuarios_TareaNueva.DataSource = ClsPaginas.get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Rol ASC", FiltroAD);
GVUsuarios_TareaNueva.DataSource = ClsPaginas.get_GlobalDTUsuarios(-1,UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Nombre ASC", FiltroAD);
DdlPara.DataSource = GVUsuarios_TareaNueva.DataSource;
DdlPara.DataBind();
DdlPara.Items.Insert(0, new ListItem("Seleccione un usuario", "-1"));
DdlTema.DataSource = ClsPaginas.get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
DdlTema.DataBind();
DdlTema.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlTema.Items.Insert(0, new ListItem("Seleccione ", "-1"));
GVUsuarios_TareaNueva.DataBind();
}
}

2
Ventas/RepVentas.aspx.vb
View File

@@ -284,7 +284,7 @@ Partial Class Ventas_RepVentas
Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlEstatus.Items.Clear()
If DdlTipoComprobante.GetSelectedValuesM <> "" Then
DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0}) OR ('Cot' IN ({0}) AND CveEstatusFactura = 2)", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing")))
DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto IN ({0}) OR ('Cot' IN ({0}) AND CveEstatusFactura = 2)", DdlTipoComprobante.GetSelectedValuesM(True).Replace("Ant", "Ing").Replace("Egs", "Ing")))
Else
DdlEstatus.DataSource = GlobalDTEstatusFactura
End If

2
Ventas/Ventas.aspx
View File

@@ -1551,7 +1551,7 @@
<tr align="right">
<td style="border: 1px none white"><b>SubTotal 2:</b></td>
<td>
<asp:TextBox ID="TxtSubTotal2" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px"></asp:TextBox></td>
<asp:TextBox ID="TxtSubTotal2" ClientIDMode="Static" runat="server" BorderStyle="None" Style="text-align: right;" Text="0.00" Width="78px" Enabled="false"></asp:TextBox></td>
<td>
<%-- <asp:LinkButton ID="LkbAgregarComplementos" runat="server" CssClass="btn btn-circle btn-xs gray" Text="<i class='fa fa-bell '></i>"></asp:LinkButton>--%>
</td>

31
Ventas/Ventas.aspx.vb
View File

@@ -2939,6 +2939,7 @@ Partial Class Ventas
End If
ObjInv.Dispose()
End If
'regenrea el tipo de cambio
CargaNuevaFactura(Nothing)
@@ -3199,15 +3200,6 @@ Partial Class Ventas
TxtRetIVA.Attributes.Add("onKeyUp", "FnSuma()")
TxtRetISR.Attributes.Add("onKeyUp", "FnSuma()")
'Permitir Edicion de Iva
If UsuarioActual.Empresa.Funcionalidad(509) = "1" Then
TxtIVA.Enabled = True
'TxtTotal.Enabled = True
RegistraScript("SetDisabledTxtTotal(false);")
TxtSubTotal.Enabled = True
TxtSubTotal2.Enabled = True
End If
'Cortes de Caja
If UsuarioActual.TienePermisoProceso(160) Then
CargaCorteCaja()
@@ -6031,7 +6023,12 @@ Partial Class Ventas
GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
GvImpuestosLocales2.DataBind()
GvImpuestosLocales2.Enabled = False
If (NuevaFactura = 1) Then
GvImpuestosLocales2.Enabled = True
Else
GvImpuestosLocales2.Enabled = False
End If
GvImpuestosLocales2.Visible = True
End If
End If
@@ -24261,14 +24258,6 @@ Partial Class Ventas
RegistraScript("SetDisabledTxtTotal(true);")
If TxtFolio.Text.Trim = "" Then TxtFolio.Enabled = True
If UsuarioActual.TienePermisoProceso(112) Then
TxtSubTotal.Enabled = True
TxtSubTotal2.Enabled = True
TxtIVA.Enabled = True
'TxtTotal.Enabled = True
RegistraScript("SetDisabledTxtTotal(false);")
End If
TxtIVA.Text = IVA.FormatoNumero
TxtRetIVA.Text = RetencionIVA.FormatoNumero
LblDescuentos.Text = Descuentos.FormatoNumero
@@ -29101,7 +29090,11 @@ Partial Class Ventas
GvImpuestosLocales2.DataSource = ObjVentas.DtResultados
GvImpuestosLocales2.DataBind()
GvImpuestosLocales2.Enabled = False
If (NuevaFactura = 1) Then
GvImpuestosLocales2.Enabled = True
Else
GvImpuestosLocales2.Enabled = False
End If
GvImpuestosLocales2.Visible = True
End If
End If