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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-12-03 18:41:35 -07:00
parent a726909684 6b5e058ce0
commit 10e5a84952
21 changed files with 421 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
AC/RepEstadoActividades.aspx.vb
View File

@@ -332,6 +332,9 @@ Partial Class AC_RepEstadoActividades
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
ElseIf (ChkFirma.Checked) Then ElseIf (ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))

3
AC/RepSituacionFinanciera.aspx.vb
View File

@@ -642,6 +642,9 @@ Partial Class AC_SituacionFinanciera
If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then If (UsuarioActual.CveEmpresa = 48 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("Lic. Damian A. Benitez Alcantar{0}Director Administrativo", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("Ing. Soraida Mesinas Reyes{0}Director General", vbCrLf)))
ElseIf (UsuarioActual.CveEmpresa = 120 And ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P.NEFTALI PEÑA MIRANDA{0}Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("Dra. María Antonieta Laso López{0}Director General", vbCrLf)))
ElseIf (ChkFirma.Checked) Then ElseIf (ChkFirma.Checked) Then
params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf))) params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf))) params.Add(New ReportParameter("pFirma2", String.Format("ING. Soraida Mesinas Reyes{0} Director General", vbCrLf)))

46
AC/Reportes/RepEstadoActividades.rdlc
View File

@@ -998,7 +998,7 @@
</Style> </Style>
</PageHeader> </PageHeader>
<PageFooter> <PageFooter>
<Height>4.50688cm</Height> <Height>2.76063cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -1019,8 +1019,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>3.36021cm</Top> <Top>0.49389cm</Top>
<Left>6.16434cm</Left> <Left>10.80759cm</Left>
<Height>0.9616cm</Height> <Height>0.9616cm</Height>
<Width>8.02269cm</Width> <Width>8.02269cm</Width>
<Visibility> <Visibility>
@@ -1097,7 +1097,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.85438cm</Top> <Top>1.92292cm</Top>
<Left>0.62818cm</Left> <Left>0.62818cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>18.2021cm</Width> <Width>18.2021cm</Width>
@@ -1112,44 +1112,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox38">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Director administrativo</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.49389cm</Top>
<Left>9.9076cm</Left>
<Height>0.99688cm</Height>
<Width>8.02269cm</Width>
<ZIndex>3</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Style> <Style>
<Border> <Border>

47
AC/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -2859,7 +2859,7 @@
</Style> </Style>
</PageHeader> </PageHeader>
<PageFooter> <PageFooter>
<Height>3.73062cm</Height> <Height>2.27541cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -2883,7 +2883,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName> <rd:DefaultName>Textbox3</rd:DefaultName>
<Top>3.13062cm</Top> <Top>1.41083cm</Top>
<Left>16.37931cm</Left> <Left>16.37931cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>3.95896cm</Width> <Width>3.95896cm</Width>
@@ -2952,8 +2952,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.73374cm</Top> <Top>0.07056cm</Top>
<Left>6.03938cm</Left> <Left>10.88047cm</Left>
<Height>0.99688cm</Height> <Height>0.99688cm</Height>
<Width>8.02269cm</Width> <Width>8.02269cm</Width>
<ZIndex>2</ZIndex> <ZIndex>2</ZIndex>
@@ -2973,45 +2973,6 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<Textbox Name="Textbox38">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve">
</Value>
<Style />
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.10582cm</Top>
<Left>10.37435cm</Left>
<Height>0.99688cm</Height>
<Width>8.02269cm</Width>
<ZIndex>3</ZIndex>
<Visibility>
<Hidden>=Microsoft.VisualBasic.Interaction.Iif((Globals!PageNumber = Globals!TotalPages) And (Parameters!pFirma1.Value &lt;&gt; ""), False, True)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
</Border>
<TopBorder>
<Style>Solid</Style>
</TopBorder>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems> </ReportItems>
<Style> <Style>
<Border> <Border>

19
Acumuladores/EntradasUsados.aspx Normal file
View File

@@ -0,0 +1,19 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasUsados.aspx.vb" Inherits="Acumuladores_EntradasUsados" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
</asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
</asp:Content>

5
Acumuladores/EntradasUsados.aspx.vb Normal file
View File

@@ -0,0 +1,5 @@

Partial Class Acumuladores_EntradasUsados
Inherits System.Web.UI.Page
End Class

31
App_Code/ClsAcumuladores.vb
View File

@@ -838,12 +838,39 @@ Public Class ClsAcumuladores
OnError("Ocurrió un error al consultar el reporte de usados. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al consultar el reporte de usados. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try End Try
Return Retorno Return Retorno
End Function End Function
Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
'Data = New DataTable
SqlDataAdapter("PA_Acum_EntradasUsadosGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
.Add("@FechaInicio", SqlDbType.Date).Value = FechaI
.Add("@FechaFin", SqlDbType.Date).Value = FechaF
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As SqlException
OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
#Region " IDisposable Support " #Region " IDisposable Support "
' IDisposable ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean) Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then If Not disposedValue Then
If disposing Then If disposing Then

4
App_Code/ClsPaginas.vb
View File

@@ -4093,6 +4093,7 @@ Public Class ClsPaginas
PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891) PaginaDict.Add("/Inventarios/RepTraspasoEmitido.aspx".ToUpper(), 891)
PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892) PaginaDict.Add("/Inventarios/KardexSeccionAlmacen.aspx".ToUpper(), 892)
PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688) PaginaDict.Add("/Inventarios/RepTraspasoAlmacen.aspx".ToUpper(), 688)
#End Region #End Region
#Region "MF" #Region "MF"
PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801) PaginaDict.Add("/MF/BitacoraDiaria.aspx".ToUpper(), 801)
@@ -4578,7 +4579,8 @@ Public Class ClsPaginas
PaginaDict.Add("/Acumuladores/CatTiposDefecto.aspx".ToUpper(), 1033) PaginaDict.Add("/Acumuladores/CatTiposDefecto.aspx".ToUpper(), 1033)
PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034) PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034)
PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035) PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035)
PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036) PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036)
PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543)
'Antes de aquí. 'Antes de aquí.

2
Compras/Compras.aspx
View File

@@ -197,7 +197,7 @@
<div class="form-group whitoutcol" style="width: 280px;"> <div class="form-group whitoutcol" style="width: 280px;">
<span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span> <span class="whitoutcol linewhitsize comprasdfleft">Tipo:</span>
<div class="whitoutcol whitoutcol comprasdfleftvar"> <div class="whitoutcol whitoutcol comprasdfleftvar">
<asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small"> <asp:DropDownList ID="DdlTipoComprobante" runat="server" AutoPostBack="true" CssClass="form-control input-sm input-small" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem> <asp:ListItem Selected="True" Text="Factura" Value="Fac"></asp:ListItem>
<asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem> <asp:ListItem Text="Nota de Crédito" Value="NC"></asp:ListItem>
<asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem> <asp:ListItem Text="Anticipo" Value="Ant"></asp:ListItem>

10
Compras/Compras.aspx.vb
View File

@@ -15644,6 +15644,16 @@ Partial Class Compras_Compras
RBLPago.Items(2).Enabled = True RBLPago.Items(2).Enabled = True
End If End If
ImgAnticiposPendientes.Visible = False ImgAnticiposPendientes.Visible = False
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
paneldevolucion.Visible = True
Pnlalmaceninventarios.Visible = False
cargaddldevoluciones(CveProveedor, TxtSubTotal.Text.ToDouble)
InicializaAplicaNCFact()
DivReembolso.Visible = False
RBLPago.Items(2).Enabled = False
UpPS.Update()
End If
End If End If
UPCondicionesPago.Update() UPCondicionesPago.Update()
End Sub End Sub

2
Compras/ReembolsosComprobaciones.aspx.vb
View File

@@ -703,7 +703,7 @@ Partial Class Compras_ReembolsosComprobaciones
'Agrego el IVA 'Agrego el IVA
If gvr.DataKey("IVADeducible").ToDecimal > 0 Then If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago
If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then If ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
MsgError = "Detalle" MsgError = "Detalle"
End If End If
End If End If

68
Nomina/Nomina2.aspx
View File

@@ -513,6 +513,74 @@
<ItemStyle Width="80px" HorizontalAlign="Right" /> <ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField> </asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:BoundField Visible="false" DataFormatString="{0:N2}">
<ItemStyle Width="80px" HorizontalAlign="Right" />
</asp:BoundField>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
<div style="width: 70px; text-align: right;"> <div style="width: 70px; text-align: right;">

29
Nomina/Nomina2.aspx.cs
View File

@@ -226,10 +226,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador) && objnom.DTSetResultados.Tables.Count > 1) if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador) && objnom.DTSetResultados.Tables.Count > 1)
{ {
dtempleados = objnom.DTSetResultados.Tables[0]; dtempleados = objnom.DTSetResultados.Tables[3];
dtConceptos = objnom.DTSetResultados.Tables[1]; dtConceptos = objnom.DTSetResultados.Tables[0];
dtPeriodo = objnom.DTSetResultados.Tables[2]; dtPeriodo = objnom.DTSetResultados.Tables[1];
dtasistencia = objnom.DTSetResultados.Tables[3]; dtasistencia = objnom.DTSetResultados.Tables[2];
CvePeriodoSeleccionado = CvePeriodo; CvePeriodoSeleccionado = CvePeriodo;
continuar = true; continuar = true;
} }
@@ -258,7 +258,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto; bf.HeaderText = Concepto;
CurrentColumn++; if (GvNominas.Columns[CurrentColumn].Visible)
{
CurrentColumn++;
}
} }
if (true) if (true)
{ {
@@ -279,8 +282,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto; bf.HeaderText = Concepto;
CurrentColumn++; if (GvNominas.Columns[CurrentColumn].Visible)
{
CurrentColumn++;
}
} }
if (true) if (true)
@@ -308,7 +314,12 @@ public partial class Nomina_Nomina2 : ClsPaginas
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn]; bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
CurrentColumn++; bf.HeaderText = Concepto;
if (GvNominas.Columns[CurrentColumn].Visible)
{
CurrentColumn++;
}
} }
if (true) if (true)
{ {
@@ -1349,7 +1360,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
using (ClsNominas objnom = new ClsNominas()) using (ClsNominas objnom = new ClsNominas())
{ {
if (objnom.GetTablasNomina (UsuarioActual.CveEmpresa) && objnom.DTSetResultados.Tables.Count > 1) if (objnom.GetTablasNomina(UsuarioActual.CveEmpresa) && objnom.DTSetResultados.Tables.Count > 1)
{ {
GVFactorDesctInfonavit.DataSource = objnom.DTSetResultados.Tables[0]; GVFactorDesctInfonavit.DataSource = objnom.DTSetResultados.Tables[0];
GVSalariosMinimos.DataSource = objnom.DTSetResultados.Tables[1]; GVSalariosMinimos.DataSource = objnom.DTSetResultados.Tables[1];

12
RH/Reclutamiento.aspx
View File

@@ -2171,11 +2171,19 @@
<div class="form-group "> <div class="form-group ">
<label class="col-md-2" for="<%= DDLUsuarioNomina.ClientID.ToString()%>">Nominista:</label> <label class="col-md-2" for="<%= DDLUsuarioNomina.ClientID.ToString()%>">Nominista:</label>
<asp:DropDownList ID="DDLUsuarioNomina" runat="server" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario"> <asp:DropDownList ID="DDLUsuarioNomina" runat="server" CssClass="select2me" Width="200px" DataTextField="Nombre" DataValueField="CveUsuario">
<asp:ListItem Selected="True" Value="-1">Seleccione uno</asp:ListItem> <asp:ListItem Selected="True" Value="-1">Seleccione uno</asp:ListItem>
<asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>
<asp:ListItem Value="79">Pamela Cabrera</asp:ListItem> <asp:ListItem Value="79">Pamela Cabrera</asp:ListItem>
<asp:ListItem Value="2625">Paola Guerrereo</asp:ListItem>
<asp:ListItem Value="2626">Lucero Millanes</asp:ListItem>
<%--<asp:ListItem Value="1446">Alicia Cordova</asp:ListItem>
<asp:ListItem Value="16">Matilde Gonzalez</asp:ListItem> <asp:ListItem Value="16">Matilde Gonzalez</asp:ListItem>
<asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem> <asp:ListItem Value="1670">Claudia Hernandez</asp:ListItem>--%>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLUsuarioNomina" Enabled="true" CssClass="help-block errorimput" Display="none" ControlToValidate="DDLUsuarioNomina" ValidationGroup="FirmaDocumentos" runat="server" Text="*" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator InitialValue="-1" ID="rfvDDLUsuarioNomina" Enabled="true" CssClass="help-block errorimput" Display="none" ControlToValidate="DDLUsuarioNomina" ValidationGroup="FirmaDocumentos" runat="server" Text="*" ErrorMessage="Seleccione una de las opciones"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="rfvcDDLUsuarioNomina" runat="server" HighlightCssClass="vco" TargetControlID="rfvDDLUsuarioNomina" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="rfvcDDLUsuarioNomina" runat="server" HighlightCssClass="vco" TargetControlID="rfvDDLUsuarioNomina" Width="300px"></ajax:ValidatorCalloutExtender>

8
RH/Reclutamiento.aspx.vb
View File

@@ -5352,7 +5352,8 @@ Partial Class RH_Reclutamiento
End If End If
Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero) Dim CveCaptacion As Integer = If(DdlCaptacion.SelectedValue.ToEntero = 0, -1, DdlCaptacion.SelectedValue.ToEntero)
Edad = Now.Year - TxtFechaN4.Text.ToDate.Year Edad = Now.Year - TxtFechaN4.Text.ToDate.Year
If ValidaGuardaFirmaContratoEvento() Then If ValidaGuardaFirmaContratoEvento() Then
If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal, If objRh.PersonalReclutamientoUpdate(CvePersonal, TxtNombres4.Text, TxtAPaterno4.Text, TxtAmaterno4.Text, TxtEstatura4.Text.ToDecimal, TxtPeso4.Text.ToDecimal,
TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero, TxtLugarnacimiento4.Text, TxtContactoEmergencia4.Text, TxtTipoSangre4.Text, TxtViveCon4.Text, txtCasaDondevive4.Text, DDLEstadoCivil4.Text.ToEntero,
@@ -5447,7 +5448,10 @@ Partial Class RH_Reclutamiento
DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1")) DdlRuta.Items.Insert(0, New ListItem("Seleccione una ruta", "-1"))
DDLUsuarioNomina.DataBind() DDLUsuarioNomina.DataBind()
DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
DDLUsuarioNomina.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End If
DdlUniforme.DataBind() DdlUniforme.DataBind()
DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlUniforme.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

5
Scripts/custom.js
View File

@@ -1211,11 +1211,12 @@ function AdsTabWizard() {
}); });
}, 10) }, 10)
} }
function MoveFixedDiv() { function MoveFixedDiv() {
var downMove = null; var downMove = null;
var x; var x;
var y; var y;
$(".modal-content .modal-header").mousedown(function (e) { $("body").on('mousedown', '.modal-content >.modal-header', function (e) {
e.preventDefault(); e.preventDefault();
downMove = $(this).parent().parent(); downMove = $(this).parent().parent();
x = e.pageX; x = e.pageX;
@@ -1768,6 +1769,7 @@ jQuery(document).ready(function () {
loadsortadscroll(); loadsortadscroll();
QuickSidebar.init(); QuickSidebar.init();
MoveFixedDiv();
setswitch(); setswitch();
function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } } function ocultarbtnmaster() { if ($('#btnmaster_actionssidebar + ul').text().trim() == "") { $('#btnmaster_actionssidebar').css('display', 'none'); } else { $('#btnmaster_actionssidebar').css('display', 'block'); } }
@@ -1778,7 +1780,6 @@ jQuery(document).ready(function () {
loadwebservice(); loadwebservice();
ocultarbtnmaster(); ocultarbtnmaster();
movepanel(); movepanel();
MoveFixedDiv();
loadADSortable(); loadADSortable();
loadadscroll(); loadadscroll();
CargaPickers(); CargaPickers();

418
Ventas/Clientes.aspx.vb
View File

@@ -8743,14 +8743,14 @@ Partial Class Clientes
CreaObjetosVenta(1) CreaObjetosVenta(1)
If ObjFactura.CveCliente > 0 Then 'If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then ' If TmpDT.Rows.Count > 0 Then
Dim Retorno = ObjFactura.EmitirFactura() ' Dim Retorno = ObjFactura.EmitirFactura(false)
For Each Mensaje In Retorno.Mensajes ' For Each Mensaje In Retorno.Mensajes
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) ' Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
Next ' Next
End If ' End If
End If 'End If
CargaUsados() CargaUsados()
@@ -8790,17 +8790,19 @@ Partial Class Clientes
' Alert("No esta asignada la funcionalidad CvePS Distruibuidor Bonificación Nota") ' Alert("No esta asignada la funcionalidad CvePS Distruibuidor Bonificación Nota")
'End If 'End If
CreaObjetosVenta(1) CreaObjetosVenta(2)
If ObjFactura.CveCliente > 0 Then If ObjFactura.CveCliente > 0 Then
If TmpDT.Rows.Count > 0 Then If TmpDT.Rows.Count > 0 Then
Dim Retorno = ObjFactura.EmitirFactura() Dim Retorno = ObjFactura.EmitirFactura(False)
For Each Mensaje In Retorno.Mensajes For Each Mensaje In Retorno.Mensajes
Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion)) Alert(Mensaje, If(Retorno.TieneError, TipoMensaje.MsgError, TipoMensaje.MsgInformacion))
Next Next
End If End If
End If End If
Alert("Listo")
CargaUsados() CargaUsados()
@@ -8819,11 +8821,11 @@ Partial Class Clientes
If DTSucursales.Rows.Count > 0 Then If DTSucursales.Rows.Count > 0 Then
If ObjFolios.GetFolios(If(Tipo = 1, "RNC", "Egs"), UsuarioActual.CveEmpresa) Then If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
Dim CveSubProyecto As Integer = DTSucursales.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
Dim DT As DataTable Dim DT As DataTable
If UsuarioActual.CveSubProyecto > 0 Then If CveSubProyecto > 0 Then
DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 ") DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 AND CveSubProyecto = " & CveSubProyecto)
Else Else
DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 ") DT = ObjFolios.DtResultados.FiltraParametros(" Estado = 'Activo' AND LEN(Serie) > 0 ")
End If End If
@@ -8857,7 +8859,7 @@ Partial Class Clientes
e.Row.FCCheckBox("ChkCargo").Visible = False e.Row.FCCheckBox("ChkCargo").Visible = False
Else Else
e.Row.FCCheckBox("ChkCargo").Checked = False e.Row.FCCheckBox("ChkCargo").Checked = False
e.Row.FCCheckBox("ChkCargo").Visible = True e.Row.FCCheckBox("ChkCargo").Visible = False 'True
End If End If
If FacturadoBonificacion Then If FacturadoBonificacion Then
@@ -9213,7 +9215,7 @@ Partial Class Clientes
ObjFactura.CveMoneda = 1 ObjFactura.CveMoneda = 1
ObjFactura.Moneda = "Pesos" ObjFactura.Moneda = "Pesos"
ObjFactura.MonedaSAT = "MXN" ObjFactura.MonedaSAT = "MXN"
ObjFactura.TipoDocto = If(Tipo = 1, "RNC", "Egs") ObjFactura.TipoDocto = "RNC"
ObjFactura.Folio = Folio ObjFactura.Folio = Folio
@@ -9366,183 +9368,183 @@ Partial Class Clientes
Dim TmpDT7Eleven As New DataTable Dim TmpDT7Eleven As New DataTable
Dim TmpDTComplementosTimbrado As New DataTable Dim TmpDTComplementosTimbrado As New DataTable
PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado) 'PrepararTimbrado(FM, TmpDT7Eleven, TmpDTComplementosTimbrado)
ObjFactura.FemsaFactura = FM ObjFactura.FemsaFactura = FM
ObjFactura.Timbre = PreParaTimbre(ObjFactura) ' ObjFactura.Timbre = PreParaTimbre(ObjFactura)
End Sub End Sub
Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable) 'Private Sub PrepararTimbrado(ByRef FM As Modelos.FemsaFactura, ByRef TmpDT7Eleven As DataTable, ByRef TmpDTComplementosTimbrado As DataTable)
FM.AplicaFEMSA = ChkAplicaFEMSA.Checked ' FM.AplicaFEMSA = ChkAplicaFEMSA.Checked
FM.FEMSA_NumSociedad = "" ' FM.FEMSA_NumSociedad = ""
FM.FEMSA_NumProveedor = "" ' FM.FEMSA_NumProveedor = ""
FM.FEMSA_Mail = "" ' FM.FEMSA_Mail = ""
FM.FEMSA_Version = "".ToEntero ' FM.FEMSA_Version = "".ToEntero
FM.FEMSA_NumPedido = "".ToEntero ' FM.FEMSA_NumPedido = "".ToEntero
FM.FEMSA_NumEntrada = "" ' FM.FEMSA_NumEntrada = ""
FM.FEMSA_NumRemision = "" ' FM.FEMSA_NumRemision = ""
FM.FEMSA_NumSocio = "" ' FM.FEMSA_NumSocio = ""
FM.FEMSA_CentroCosto = "" ' FM.FEMSA_CentroCosto = ""
FM.FEMSA_IPeriodoLiquidacion = "" ' FM.FEMSA_IPeriodoLiquidacion = ""
FM.FEMSA_FPeriodoLiquidacion = "" ' FM.FEMSA_FPeriodoLiquidacion = ""
FM.FEMSA_CodRetencion1 = "" ' FM.FEMSA_CodRetencion1 = ""
FM.FEMSA_CodRetencion2 = "" ' FM.FEMSA_CodRetencion2 = ""
TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor") ' TmpDT7Eleven.Columns.Add("sevenElevenNumProveedor")
TmpDT7Eleven.Columns.Add("sevenElevenFolio") ' TmpDT7Eleven.Columns.Add("sevenElevenFolio")
TmpDT7Eleven.Columns.Add("sevenElevenTienda") ' TmpDT7Eleven.Columns.Add("sevenElevenTienda")
TmpDT7Eleven.Columns.Add("sevenElevenFecha") ' TmpDT7Eleven.Columns.Add("sevenElevenFecha")
Dim Row As DataRow = TmpDT7Eleven.NewRow ' Dim Row As DataRow = TmpDT7Eleven.NewRow
Row("sevenElevenNumProveedor") = "" ' Row("sevenElevenNumProveedor") = ""
Row("sevenElevenFolio") = "" ' Row("sevenElevenFolio") = ""
Row("sevenElevenTienda") = "" ' Row("sevenElevenTienda") = ""
Row("sevenElevenFecha") = "" ' Row("sevenElevenFecha") = ""
TmpDT7Eleven.Rows.Add(Row) ' TmpDT7Eleven.Rows.Add(Row)
TmpDTComplementosTimbrado.Columns.Add("CveComplemento") ' TmpDTComplementosTimbrado.Columns.Add("CveComplemento")
TmpDTComplementosTimbrado.Columns.Add("IdContabilidad") ' TmpDTComplementosTimbrado.Columns.Add("IdContabilidad")
TmpDTComplementosTimbrado.Columns.Add("TipoProceso") ' TmpDTComplementosTimbrado.Columns.Add("TipoProceso")
TmpDTComplementosTimbrado.Columns.Add("TipoAmbito") ' TmpDTComplementosTimbrado.Columns.Add("TipoAmbito")
TmpDTComplementosTimbrado.Columns.Add("Entidad") ' TmpDTComplementosTimbrado.Columns.Add("Entidad")
Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow ' Dim Row2 As DataRow = TmpDTComplementosTimbrado.NewRow
Row2("CveComplemento") = -1 ' Row2("CveComplemento") = -1
Row2("IdContabilidad") = -1 ' Row2("IdContabilidad") = -1
Row2("TipoProceso") = -1 ' Row2("TipoProceso") = -1
Row2("TipoAmbito") = -1 ' Row2("TipoAmbito") = -1
Row2("Entidad") = -1 ' Row2("Entidad") = -1
TmpDTComplementosTimbrado.Rows.Add(Row2) ' TmpDTComplementosTimbrado.Rows.Add(Row2)
End Sub 'End Sub
Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre 'Private Function PreParaTimbre(Obj As Modelos.Factura) As CFDITimbre
Dim Timbre As New CFDITimbre ' Dim Timbre As New CFDITimbre
Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", "")) ' Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
Timbre.Comprobante.Folio = Obj.Folio.ToString ' Timbre.Comprobante.Folio = Obj.Folio.ToString
Timbre.Comprobante.Serie = Obj.Serie ' Timbre.Comprobante.Serie = Obj.Serie
Timbre.Comprobante.Fecha = Obj.FechaCP ' Timbre.Comprobante.Fecha = Obj.FechaCP
Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33 ' Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33 ' Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT ' Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
Timbre.Comprobante.Subtotal = Obj.SubTotal ' Timbre.Comprobante.Subtotal = Obj.SubTotal
Timbre.Comprobante.Descuentos = Obj.Descuento ' Timbre.Comprobante.Descuentos = Obj.Descuento
Timbre.Comprobante.Moneda = Obj.MonedaSAT ' Timbre.Comprobante.Moneda = Obj.MonedaSAT
Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString) ' Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
Timbre.Comprobante.Total = Obj.Total ' Timbre.Comprobante.Total = Obj.Total
Try ' Try
Obj.SetSubProyecto(Me) ' Obj.SetSubProyecto(Me)
Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP ' Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
Catch ex As Exception ' Catch ex As Exception
End Try ' End Try
Timbre.Comprobante.Confirmacion = "" ' Timbre.Comprobante.Confirmacion = ""
Timbre.Receptor.RFC = Obj.Cliente.RFC ' Timbre.Receptor.RFC = Obj.Cliente.RFC
Timbre.Receptor.Nombre = Obj.Cliente.Nombre ' Timbre.Receptor.Nombre = Obj.Cliente.Nombre
Timbre.Receptor.ResidenciaFiscal = "" ' Timbre.Receptor.ResidenciaFiscal = ""
Timbre.Receptor.NumeroRegistroTributario = "" ' Timbre.Receptor.NumeroRegistroTributario = ""
Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI ' Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
If Obj.CveTipoRelacion > 0 Then ' If Obj.CveTipoRelacion > 0 Then
Select Case Obj.CveTipoRelacion ' Select Case Obj.CveTipoRelacion
Case 1 ' Case 1
Timbre.CFDIRelacionados.TipoRelacion = "01" ' Timbre.CFDIRelacionados.TipoRelacion = "01"
Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
Case 2 ' Case 2
Timbre.CFDIRelacionados.TipoRelacion = "02" ' Timbre.CFDIRelacionados.TipoRelacion = "02"
Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
Case 3 ' Case 3
Timbre.CFDIRelacionados.TipoRelacion = "03" ' Timbre.CFDIRelacionados.TipoRelacion = "03"
Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
Case 4 ' Case 4
Timbre.CFDIRelacionados.TipoRelacion = "04" ' Timbre.CFDIRelacionados.TipoRelacion = "04"
Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
Case 7 ' Case 7
Timbre.CFDIRelacionados.TipoRelacion = "07" ' Timbre.CFDIRelacionados.TipoRelacion = "07"
Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
Case 8 ' Case 8
Timbre.CFDIRelacionados.TipoRelacion = "08" ' Timbre.CFDIRelacionados.TipoRelacion = "08"
Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades " ' Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades "
Case 9 ' Case 9
Timbre.CFDIRelacionados.TipoRelacion = "09" ' Timbre.CFDIRelacionados.TipoRelacion = "09"
Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos" ' Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"
End Select ' End Select
End If ' End If
Dim totSubTotal As Decimal = Obj.SubTotal ' Dim totSubTotal As Decimal = Obj.SubTotal
Dim totIVA As Decimal = Obj.IVA ' Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA ' Dim totRetIVA As Decimal = Obj.RetIVA
Dim totRetISR As Decimal = Obj.RetISR ' Dim totRetISR As Decimal = Obj.RetISR
Dim TasaRetIVA As Decimal = 0 ' Dim TasaRetIVA As Decimal = 0
Dim TasaRetISR As Decimal = 0 ' Dim TasaRetISR As Decimal = 0
Dim i As Integer = 1 ' Dim i As Integer = 1
'detalles ' 'detalles
Dim tPS As String = "" ' Dim tPS As String = ""
For Each drr As DataRow In Obj.DtDetalle.Rows ' For Each drr As DataRow In Obj.DtDetalle.Rows
If drr("PS").ToString.Length = 1 Then ' If drr("PS").ToString.Length = 1 Then
tPS = drr("Obs").ToString ' tPS = drr("Obs").ToString
Else ' Else
If drr("PS").ToString.Length = 0 Then ' If drr("PS").ToString.Length = 0 Then
tPS = "" ' tPS = ""
Else ' Else
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs")) ' tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
End If ' End If
End If ' End If
'condicionante, especial ' 'condicionante, especial
If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto ' If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto
Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal, ' Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
.Descripcion = tPS, ' .Descripcion = tPS,
.ValorUnitario = drr("PU").ToString.ToDecimal, ' .ValorUnitario = drr("PU").ToString.ToDecimal,
.Importe = drr("TotalImporte").ToString.ToDecimal, ' .Importe = drr("TotalImporte").ToString.ToDecimal,
.Descuento = drr("Descuento").ToString.ToDecimal, ' .Descuento = drr("Descuento").ToString.ToDecimal,
.Unidad = drr("UM").ToString, ' .Unidad = drr("UM").ToString,
.ClaveUnidad = drr("SATClaveUM").ToString, ' .ClaveUnidad = drr("SATClaveUM").ToString,
.ClaveProdServ = drr("SATClaveProdServ").ToString, ' .ClaveProdServ = drr("SATClaveProdServ").ToString,
.Noidentificacion = drr("Noidentificacion").ToString, ' .Noidentificacion = drr("Noidentificacion").ToString,
.CuentaPredial = drr("CuentaPredial").ToString} ' .CuentaPredial = drr("CuentaPredial").ToString}
'verifica suma subtotales ' 'verifica suma subtotales
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales ' If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
concepto.Importe = totSubTotal ' concepto.Importe = totSubTotal
End If ' End If
totSubTotal = totSubTotal - concepto.Importe ' totSubTotal = totSubTotal - concepto.Importe
'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura ' 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
' If drr("ImporteIVA").ToString.ToDouble > 0 Then ' ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos ' 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos
If Timbre.Comprobante.Total > 0 Then ' If Timbre.Comprobante.Total > 0 Then
concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
End If ' End If
If drr("ImporteIEPS").ToString.ToDouble > 0 Then ' If drr("ImporteIEPS").ToString.ToDouble > 0 Then
concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal}) ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
End If ' End If
If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones ' If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal}) ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetIVA, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
End If ' End If
If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR ' If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal}) ' concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = TasaRetISR, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
End If ' End If
Timbre.Conceptos.Add(concepto) ' Timbre.Conceptos.Add(concepto)
i += 1 ' i += 1
Next ' Next
Return Timbre ' Return Timbre
End Function 'End Function
'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean 'Private Function GenerarNotaCredito(CvePS As Integer, Tipo As Integer, CveUnidadMedida As Integer, Importe As Decimal, Iva As Decimal, Descripcion As String, CveClasificacion As Integer) As Boolean
@@ -9647,29 +9649,29 @@ Partial Class Clientes
' ObjVentas.Commit() ' ObjVentas.Commit()
' CargaUsados() ' CargaUsados()
' Dim DtDetallesVenta As New DataTable ' 'Dim DtDetallesVenta As New DataTable
' If ObjVentas.GetVentaDetalle(CveVenta) Then ' 'If ObjVentas.GetVentaDetalle(CveVenta) Then
' DtDetallesVenta = ObjVentas.DtResultados ' ' DtDetallesVenta = ObjVentas.DtResultados
' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta) ' ' 'CreaObjetosVenta(CveVenta, Serie, Folio, SubTotal, Iva, DtDetallesVenta)
' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto) ' ' ObjFactura.Timbre = PreParaTimbre(ObjFactura, ObjFactura.CveSubProyecto)
' Dim ObjTimbrado As New Timbrado ' ' Dim ObjTimbrado As New Timbrado
' Dim SeTimbro As Boolean = False ' ' Dim SeTimbro As Boolean = False
' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura) ' ' SeTimbro = ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura)
' If SeTimbro Then ' ' If SeTimbro Then
' Alert("Se timbro correctamente") ' ' Alert("Se timbro correctamente")
' Else ' ' Else
' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError) ' ' Alert("No se pudo timbrar, intente mas tarde.", TipoMensaje.MsgError)
' End If ' ' End If
' Else ' 'Else
' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError) ' ' Alert("No se pudo timbrar, no se pudieron obtener los detalles de la venta.", TipoMensaje.MsgError)
' End If ' 'End If
' End If ' End If

9
Ventas/PV.aspx
View File

@@ -2803,11 +2803,10 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-5">
<div class="form-group form-md-line-input input-iconright"> <div >
<asp:DropDownList ID="DdlClientes" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="100%" AutoPostBack="true"> <label for="<%= DdlClientes.ClientID.ToString()%>">Distribuidor:</label><br />
</asp:DropDownList> <ADS:Dropdownlost ID="DdlClientes" data-metodo="getcliente" CssStyle="width:100%" CssClassDdl="select2me" runat="server" DataTextField="CodigoNombre" DataValueField="CveCliente" Width="300px"></ADS:Dropdownlost>
<label for="<%= DdlClientes.ClientID.ToString()%>">Cliente:</label>
</div> </div>
</div> </div>
</div> </div>

27
Ventas/PV.aspx.vb
View File

@@ -4973,16 +4973,6 @@ Partial Class PV
UpAjuste.Update() UpAjuste.Update()
End Sub End Sub
Private Sub CargaClienteAjuste()
DdlClientes.Items.Clear()
DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClientes.DataBind()
UpAjuste.Update()
End Sub
Private Sub CargaBCIAjuste() Private Sub CargaBCIAjuste()
Dim ObjGral As New ClsGenerales Dim ObjGral As New ClsGenerales
If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
@@ -5026,8 +5016,8 @@ Partial Class PV
CreaDTmpDTAjustes() CreaDTmpDTAjustes()
CreaDTmpDTRecepcionUsados() CreaDTmpDTRecepcionUsados()
CargaClienteAjuste()
CargaBCIAjuste() CargaBCIAjuste()
DdlClientes.setEsWebService(True)
DivChkAjuste.Visible = True DivChkAjuste.Visible = True
End Sub End Sub
@@ -5393,6 +5383,7 @@ Partial Class PV
DivDatosVenta.Attributes.Add("class", "col-md-6") DivDatosVenta.Attributes.Add("class", "col-md-6")
TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});") TxtPrecio.Attributes.Add("onKeyUp", $"CambiaAjuste(this,{TxtPrecio.ClientID});")
TxtPrecio.Text = TxtPrecio.Text TxtPrecio.Text = TxtPrecio.Text
TxtObsPS.Text = "Descuento por garantía"
Else Else
For Each Gvr As GridViewRow In GvRecepcionUsados.Rows For Each Gvr As GridViewRow In GvRecepcionUsados.Rows
If Gvr.RowType = DataControlRowType.DataRow Then If Gvr.RowType = DataControlRowType.DataRow Then
@@ -5757,12 +5748,14 @@ Partial Class PV
params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text)) params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
params.Add(New ReportParameter("TelCliente", LblTelefono.Text)) params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
Else Else
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)) If (DdlClientes.SelectedValue.ToEntero > 0) Then
Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)) Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Ciudad", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero)).Trim
params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedItem.Text)) Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estado", String.Format("CveCliente = {0}", DdlClientes.SelectedValue.ToEntero))
params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado))) params.Add(New ReportParameter("NombreCliente", DdlClientes.SelectedText))
params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString)) params.Add(New ReportParameter("CiudadEstado", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
params.Add(New ReportParameter("TelCliente", DatosClienteSeleccionado.Item("Telefono").ToString))
End If
End If End If
'Informacion Distribuidor 'Informacion Distribuidor

5
Ventas/Ventas.aspx
View File

@@ -5873,9 +5873,8 @@
<div class="col-md-2"> <div class="col-md-2">
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<button type="button" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC"> <asp:Button ID = "BtnModalAplicarRemisionesNC" runat="server" OnClick="BtnModalAplicarRemisionesNC_Click" class="btn btn-primary" data-toggle="modal" data-target="#ModalAplicarRemisionesNC"/>
Aplicar Remisiones
</button>
</div> </div>
<div class="col-md-6"> <div class="col-md-6">
</div> </div>

7
Ventas/Ventas.aspx.vb
View File

@@ -20872,6 +20872,7 @@ Partial Class Ventas
End If End If
ObjMovtos.Dispose() ObjMovtos.Dispose()
GvRemisionesNC.DataBind() GvRemisionesNC.DataBind()
UpModalRemisionesNC.Update()
End Sub End Sub
Private Sub CargaDescRNC() Private Sub CargaDescRNC()
@@ -21471,7 +21472,7 @@ Partial Class Ventas
If ObjIE.DtResultados.Rows.Count > 0 Then If ObjIE.DtResultados.Rows.Count > 0 Then
Dim tFecha As Date = TxtFecha.Text.ToDate Dim tFecha As Date = TxtFecha.Text.ToDate
Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day) Dim Fecha As String = String.Format("{0}/{1}/{2}", tFecha.Year, tFecha.Month, tFecha.Day)
Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha < #" & Fecha & "#", "Fecha DESC") Dim drr As DataRow = ObjIE.DtResultados.FiltroPrimero("Fecha > #" & Fecha & "#", "Fecha DESC")
If drr IsNot Nothing Then If drr IsNot Nothing Then
TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal TipoCambioFactura = drr("TipoCambio").ToString.ToDecimal
@@ -23799,4 +23800,8 @@ Partial Class Ventas
End Sub End Sub
#End Region #End Region
Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs)
CargaRNC()
RegistraScript("$('#ModalAplicarRemisionesNC').modal()")
End Sub
End Class End Class