This commit is contained in:
HECTOR RODRIGUEZ
2021-02-22 11:17:54 -07:00
19 changed files with 19011 additions and 49 deletions

View File

@@ -954,7 +954,7 @@ Public Class ClsBancos
Dim dttpagos As DataTable = Nothing Dim dttpagos As DataTable = Nothing
Dim dr As Data.DataRow = Nothing Dim dr As Data.DataRow = Nothing
If GetComplementoPagosRep(-1, Now.AddYears(-2), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then If GetComplementoPagosRep(-1, Now.AddYears(-5), Now, If(CvePrePoliza > 0, -1, CveIE), CveVenta, If(EsRegeneracion, 2, 1), UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
dr = DtResultados.FiltroPrimero("CveVenta IS NULL") dr = DtResultados.FiltroPrimero("CveVenta IS NULL")
dttpagos = DtResultados.FiltraParametros("CveVenta > 0") dttpagos = DtResultados.FiltraParametros("CveVenta > 0")
End If End If

View File

@@ -38,7 +38,7 @@
<b> <b>
&nbsp;<asp:Label ID="LblMetodoPAgo" runat="server" data-toggle="tooltip" data-placement="right" title="Metodo de pago"></asp:Label> &nbsp;<asp:Label ID="LblMetodoPAgo" runat="server" data-toggle="tooltip" data-placement="right" title="Método de pago"></asp:Label>
</b> </b>

View File

@@ -694,14 +694,8 @@ Partial Class Bancos_PopIEVentas
If Valida.EsValida > 0 Then If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then If Valida.EsValida = 2 Then
Validada = False Validada = False
'Dim ObjDatos As New ClsCompras
'If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then
'End If
'ObjDatos.Dispose()
BtnGuardar.Enabled = False BtnGuardar.Enabled = False
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
@@ -715,7 +709,9 @@ Partial Class Bancos_PopIEVentas
End If End If
Else Else
'no se pudo validar, pero ya tuvo la primera vuelta de validacion 'no se pudo validar, pero ya tuvo la primera vuelta de validacion
Alert("La factura no se pudo validar.")
Validada = False Validada = False
BtnGuardar.Visible = False
End If End If
Valida.Dispose() Valida.Dispose()
Else Else

View File

@@ -14509,7 +14509,7 @@ Partial Class Compras_Compras
Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click
Dim Opcion As Integer = 1 Dim Opcion As Integer = 1
If UsuarioActual.CveEmpresa.Contiene(119, 72, 1) Then Opcion = 2 If UsuarioActual.CveEmpresa.Contiene(119, 1) Then Opcion = 2
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
@@ -17759,6 +17759,7 @@ Partial Class Compras_Compras
DdlClasificacionChange() DdlClasificacionChange()
End Sub End Sub
Private Sub DdlClasificacionChange() Private Sub DdlClasificacionChange()
CargaPS(DdlClasificacion.SelectedValue.ToEntero) CargaPS(DdlClasificacion.SelectedValue.ToEntero)
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -17811,8 +17812,7 @@ Partial Class Compras_Compras
DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp) DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp)
Else Else
DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DdlPS.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa))
End If End If
@@ -17947,12 +17947,12 @@ Partial Class Compras_Compras
Exit Sub Exit Sub
End If End If
If UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 4 Or UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then 'If UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 4 Or UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
If Not DdlProyecto.SelectedValue.ToEntero > 0 Then ' If Not DdlProyecto.SelectedValue.ToEntero > 0 Then
Alert("Es necesario seleccionar un proyecto.", TipoMensaje.MsgAdvertencia) ' Alert("Es necesario seleccionar un proyecto.", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
If Not DdlSubProyecto.SelectedValue.ToEntero > 0 Then If Not DdlSubProyecto.SelectedValue.ToEntero > 0 Then
Alert("Es necesario seleccionar un subproyecto.", TipoMensaje.MsgAdvertencia) Alert("Es necesario seleccionar un subproyecto.", TipoMensaje.MsgAdvertencia)

View File

@@ -3425,7 +3425,7 @@ Partial Class Compras_eFacturas
'If XMLNodosPagosModalCount = Vinculados Then 'If XMLNodosPagosModalCount = Vinculados Then
If ComprasEnComplemento = Vinculados Then ' If ComprasEnComplemento = Vinculados And ComprasEnComplemento > 0 Then '
TodoVinculado = True TodoVinculado = True
End If End If

View File

@@ -381,7 +381,7 @@ CveCuenta:=DdlCuentas.SelectedValue.ToEntero) Then
If UsuarioActual.Empresa.TipoContabilizacion = 0 Then If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
'busco en la cuenta contable, lo que tenga asignado 'busco en la cuenta contable, lo que tenga asignado
Dim Con As New ClsContabilidad Dim Con As New ClsContabilidad
Dim dtt As DataTable Dim dtt As DataTable = Nothing
If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then If Con.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
dtt = Con.DtResultados dtt = Con.DtResultados
End If End If

View File

@@ -0,0 +1,665 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Body>
<ReportItems>
<Textbox Name="Textbox2">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value> Paguese A:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Beneficiario.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>10.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>4.74296cm</Top>
<Left>3.20146cm</Left>
<Height>0.6cm</Height>
<Width>12.70388cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox3">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>Concepto del pago:</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Observaciones.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>10.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>7.94971cm</Top>
<Left>1.11125cm</Left>
<Height>1.65834cm</Height>
<Width>14.23847cm</Width>
<ZIndex>1</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<VerticalAlign>Middle</VerticalAlign>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox4">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>16pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Folio.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>16pt</FontSize>
<FontWeight>Bold</FontWeight>
<Color>Red</Color>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>2.78024cm</Top>
<Left>18.21363cm</Left>
<Height>0.6cm</Height>
<Width>2.32714cm</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox6">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!Importe.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>4.76639cm</Top>
<Left>17.62802cm</Left>
<Height>0.49896cm</Height>
<Width>2.49471cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox7">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=CDATE(Parameters!Fecha.Value).ToString("dd/MM/yyyy")</Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Right</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>4.20999cm</Top>
<Left>17.72327cm</Left>
<Height>0.51963cm</Height>
<Width>2.36771cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox8">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Parameters!ImporteLetra.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>10.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>6.11879cm</Top>
<Left>1.11125cm</Left>
<Height>0.6cm</Height>
<Width>14.79409cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox9">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>ELECTRICA SERVEC S DE RL DE CV</Value>
<Style>
<FontFamily>Calibri</FontFamily>
<FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value>R.F.C. </Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Calibri</FontFamily>
<FontSize>9.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!RFC.Value</Value>
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Calibri</FontFamily>
<FontSize>9.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
</Style>
</TextRun>
</TextRuns>
<LeftIndent>0cm</LeftIndent>
<RightIndent>0cm</RightIndent>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Calibri</FontFamily>
<FontSize>9.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
</Style>
</TextRun>
</TextRuns>
<LeftIndent>0cm</LeftIndent>
<RightIndent>0cm</RightIndent>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style>
<FontStyle>Normal</FontStyle>
<FontFamily>Calibri</FontFamily>
<FontSize>9.5pt</FontSize>
<FontWeight>Normal</FontWeight>
<TextDecoration>None</TextDecoration>
</Style>
</TextRun>
</TextRuns>
<LeftIndent>0cm</LeftIndent>
<RightIndent>0cm</RightIndent>
<Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>2.52624cm</Top>
<Left>3.35393cm</Left>
<Height>2.12019cm</Height>
<Width>13.5092cm</Width>
<ZIndex>6</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Line Name="Line1">
<Top>4.72758cm</Top>
<Left>15.14686cm</Left>
<Height>0cm</Height>
<Width>4.97587cm</Width>
<ZIndex>7</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line2">
<Top>5.2336cm</Top>
<Left>1.11125cm</Left>
<Height>0cm</Height>
<Width>14.23847cm</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Line Name="Line3">
<Top>6.64105cm</Top>
<Left>1.11125cm</Left>
<Height>0cm</Height>
<Width>14.23847cm</Width>
<ZIndex>9</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox10">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Importe:</Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>4.80646cm</Top>
<Left>16.26341cm</Left>
<Height>0.51053cm</Height>
<Width>1.50043cm</Width>
<ZIndex>10</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox11">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha:</Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox10</rd:DefaultName>
<Top>4.19941cm</Top>
<Left>16.48037cm</Left>
<Height>0.51053cm</Height>
<Width>1.28876cm</Width>
<ZIndex>11</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox12">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>No.</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>16.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox12</rd:DefaultName>
<Top>2.73791cm</Top>
<Left>16.98308cm</Left>
<Height>0.64233cm</Height>
<Width>1.16706cm</Width>
<ZIndex>12</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox1">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value> $</Value>
<Style>
<FontFamily>calibri</FontFamily>
</Style>
</TextRun>
</TextRuns>
<Style>
<TextAlign>Left</TextAlign>
</Style>
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName>
<Top>4.73315cm</Top>
<Left>17.59627cm</Left>
<Height>0.56395cm</Height>
<Width>0.49037cm</Width>
<ZIndex>13</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Height>4.60417in</Height>
<Style />
</Body>
<Width>8.08692in</Width>
<Page>
<PageFooter>
<Height>2.54cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
<Textbox Name="Textbox61">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha Impresión: </Value>
<Style>
<FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Today</Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.08364cm</Top>
<Left>0.14148cm</Left>
<Height>0.46771cm</Height>
<Width>6.92282cm</Width>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</ReportItems>
<Style>
<Border>
<Style>None</Style>
</Border>
</Style>
</PageFooter>
<PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth>
<LeftMargin>0cm</LeftMargin>
<RightMargin>0cm</RightMargin>
<BottomMargin>0cm</BottomMargin>
<ColumnSpacing>0.13cm</ColumnSpacing>
<Style />
</Page>
<AutoRefresh>0</AutoRefresh>
<ReportParameters>
<ReportParameter Name="Folio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Fecha">
<DataType>DateTime</DataType>
<Nullable>true</Nullable>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Beneficiario">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="ImporteLetra">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Importe">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Observaciones">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Tipo">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Empresa">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="RFC">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>9e79012a-f197-4df4-8577-390bbdb5c026</rd:ReportID>
</Report>

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -14,14 +14,9 @@
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink> <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
</li> </li>
<li>
<asp:LinkButton ID="LbDescargarExcel" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton>
</li>
</ContentTemplate> </ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LbDescargarExcel" />
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
@@ -61,17 +56,17 @@
</div> </div>
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
<div class="row" > <div class="row" >
<label class="col-sm-1 truncate" style="text-align: right">Mostrar Lote:</label> <label class="col-sm-1 truncate" style="text-align: right"> Lote:</label>
<div class="col-md-1 form-group form-md-line-input input-iconright"> <div class="col-md-1 form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkMostrarLote" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" runat="server" Text=" " OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" /> <asp:CheckBox ID="ChkMostrarLote" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" runat="server" Text=" " OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" />
</div> </div>
<label class="col-sm-1" style="text-align: right">Mostrar Fecha:</label> <label class="col-sm-1 truncate" style="text-align: right"> Fecha:</label>
<div class="col-md-1 form-group form-md-line-input input-iconright" > <div class="col-md-1 form-group form-md-line-input input-iconright" >
<asp:CheckBox ID="ChkMostrarFecha" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" runat="server" Text=" " OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" /> <asp:CheckBox ID="ChkMostrarFecha" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" runat="server" Text=" " OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" />
</div> </div>
<label class="col-sm-1" style="text-align: right">Mostrar Sección:</label> <label class="col-sm-1 truncate" style="text-align: right"> Sección:</label>
<div class="col-md-1 form-group form-md-line-input input-iconright"> <div class="col-md-1 form-group form-md-line-input input-iconright">
<asp:CheckBox ID="ChkMostrarSeccion" Checked="true" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" Text=" " runat="server" OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" /> <asp:CheckBox ID="ChkMostrarSeccion" Checked="false" CssClass="chksino" Style="margin-top: -2px; background-color: #fff; line-height: 15px" data-size="small" Text=" " runat="server" OnCheckedChanged="ChkMostrarColumnas" AutoPostBack="true" />
</div> </div>
</div> </div>
</div> </div>
@@ -133,10 +128,9 @@
<asp:CheckBox ID="Chk" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox> <asp:CheckBox ID="Chk" Checked="false" runat="server" OnCheckedChanged="Chk_Click" AutoPostBack="true"></asp:CheckBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Nueva Seccion" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList ID="DDlS" runat="server" Width="150px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList> <asp:DropDownList ID="DDlS" runat="server" Width="125px" DataValueField="CveSeccionAlmacen" DataTextField="SeccionAlmacen" class="select2me"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
@@ -165,17 +159,17 @@
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 200px;"> <div class="col-md-11" style="margin-left: 30px; margin-right: 30px; margin-bottom: 10px;">
<asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox> <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
</div> </div>
</div> </div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<div class="row"> <div class="row">
<div class="col-md-2" style="text-align: left"> <div class="col-md-3" style="text-align: left">
<asp:Button ID="BtnDescargar" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" /> <asp:Button ID="BtnDescargar" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
</div> </div>
<div class="col-md-10" style="text-align: right"> <div class="col-md-9" style="text-align: right">
<asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button> <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar"></asp:Button>
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
</div> </div>

View File

@@ -39,6 +39,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1") Dim FolioAux As String = If(TxtFolioFiltro.Text.Length > 0, TxtFolioFiltro.Text, "-1")
If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux, CvePS.ToEntero) Then If ObjInv.GetMovimientosDetalleSeccionesAlmacen(DdlAlmacen.SelectedValue.ToEntero, DdlClasificaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FolioAux, CvePS.ToEntero) Then
GvD.DataSource = ObjInv.DtResultados GvD.DataSource = ObjInv.DtResultados
If ObjInv.DtResultados.FiltraParametros("Serie <> '' ").Rows.Count = 0 Then GvD.columns(2).visible = False
If ObjInv.DtResultados.FiltraParametros("Lote <> ''").Rows.Count = 0 Then GvD.columns(3).visible = False
If ObjInv.DtResultados.FiltraParametros("FechaCaducidad <> ''").Rows.Count = 0 Then GvD.columns(4).visible = False
If ObjInv.DtResultados.FiltraParametros("CveSeccionAlmacen > 0").Rows.Count = 0 Then GvD.columns(5).visible = False
End If End If
ObjInv.Dispose() ObjInv.Dispose()
@@ -232,7 +238,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
ObjPS.Dispose() ObjPS.Dispose()
End Sub End Sub
Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
If GvD.Rows.Count > 0 Then If GvD.Rows.Count > 0 Then
DescargarExcel() DescargarExcel()
Else Else
@@ -266,7 +272,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
.FechaCaducidad = row.DataKey("FechaCaducidad") .FechaCaducidad = row.DataKey("FechaCaducidad")
}).QueryToDataTable(True) }).QueryToDataTable(True)
If DtExcel.Rows.Count < 1 Then If DtExcel.Rows.Count < 1 Then
Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia) Alert("No hay resultados en la busqueda.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If

View File

@@ -121,17 +121,21 @@
<asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="SubProyecto" HeaderText="SubProyecto" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Nombre" HeaderText="Usuario Solicitó" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="Nombre" HeaderText="Usuario Solicitó" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right" />
<asp:BoundField DataField="ImporteSol" HeaderText="Importe Solicitud" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Right" Visible ="true" />
<asp:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false"> <asp:TemplateField HeaderText="Folio Mov. Banc." ItemStyle-Width="10%" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink> <asp:HyperLink ID="HplNum" runat="server" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}") %>' Text='<%# Eval("FolioMov") %>'></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe" ItemStyle-Width="10%" Visible="false" ItemStyle-HorizontalAlign="Right"> <asp:TemplateField HeaderText="Importe" ItemStyle-Width="10%" Visible="false" ItemStyle-HorizontalAlign="Right">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label> <asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Importe", "${0:N2}") %>'></asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Moneda" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Abreviatura") %>'></asp:Label> <asp:Label runat="server" CssClass="Texto" Text='<%# Eval("Abreviatura") %>'></asp:Label>

View File

@@ -121,15 +121,21 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
{ {
if (DdlEstatus.SelectedValue.ToEntero() == 3) if (DdlEstatus.SelectedValue.ToEntero() == 3)
{ {
GvSolicitudes.Columns[4].Visible = true; GvSolicitudes.Columns[5].Visible = false;
GvSolicitudes.Columns[5].Visible = true; GvSolicitudes.Columns[9].Visible = false;
GvSolicitudes.Columns[7].Visible = false;
GvSolicitudes.Columns[6].Visible = true;
GvSolicitudes.Columns[7].Visible = true;
} }
else else
{ {
GvSolicitudes.Columns[4].Visible = false; GvSolicitudes.Columns[5].Visible = true;
GvSolicitudes.Columns[5].Visible = false; GvSolicitudes.Columns[9].Visible = true;
GvSolicitudes.Columns[7].Visible = true;
GvSolicitudes.Columns[6].Visible = false;
GvSolicitudes.Columns[7].Visible = false;
} }
CargaDatos(); CargaDatos();
} }

View File

@@ -6536,7 +6536,7 @@ Partial Class PV
If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then If ObjAcumuladores.FoliosGarantiaGet(DdlFolioGarantia.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero Dim Limite As Integer = If(ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite") IsNot Nothing, ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero, 0) 'ObjAcumuladores.DtResultados.FiltroPrimeroValor("Limite").ToEntero
If resultado < Limite Or Limite = 0 Then If resultado < Limite Or Limite = 0 Then
TxtConsecutivoAjuste.Text = resultado.ToString TxtConsecutivoAjuste.Text = (resultado + 1).ToString
Else Else
Alert("limite de folios alcanzado") Alert("limite de folios alcanzado")
End If End If

View File

@@ -33,7 +33,7 @@ public partial class Ventas_RepPedidos2 : ClsPaginas
DdlClientes.SelectedValue = "-1"; DdlClientes.SelectedValue = "-1";
DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1); DdlSubProyectos.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyectos.DataBind(); DdlSubProyectos.DataBind();
DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa); DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
DdlVendedor.DataBind(); DdlVendedor.DataBind();