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
2022-05-25 20:47:19 -07:00
parent 76d972e63a 7d62be91ab
commit 52ad6094b8
11 changed files with 243 additions and 599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Compras/RepComprasAF.aspx.vb
View File

@@ -111,18 +111,22 @@ Partial Class Compras_RepComprasAF
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False DdlProyecto.Visible = False
LblSubProyecto.Text = "Sucursal" 'LblSubProyecto.Text = "Sucursal"
LblProyecto.Visible = False LblProyecto.Visible = False
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) ' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto" 'LblSubProyecto.Text = "Proyecto"
LblProyecto.Visible = False LblProyecto.Visible = False
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) 'DdlSubProyecto.DataBind()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 0 Then
LblProyecto.Text = "Proyecto" LblProyecto.Text = "Proyecto"
@@ -149,10 +153,14 @@ Partial Class Compras_RepComprasAF
End Sub End Sub
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()

16
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -174,6 +174,11 @@ Partial Class Compras_RepComprasAFDetalle
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind() DdlProveedores.DataBind()
If Request.QueryString("CveProveedor") IsNot Nothing AndAlso Request.QueryString("CveProveedor").ToEntero = -3 Then
DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
End If
DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind() DdlMonedas.DataBind()
@@ -325,11 +330,18 @@ Partial Class Compras_RepComprasAFDetalle
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1") FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}" Dim Liga As String = ""
If e.Row.DBCampo("CveCompra").ToEntero > 0 Then
Liga = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}"
Else
Liga = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={e.Row.DBCampo("CveMovimiento")}"
End If
If e.Row.DBCampo("Orden") = "1" Then If e.Row.DBCampo("Orden") = "1" Then
e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString) e.Row.Cells(0).Text = String.Format("<a Class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString)
Else Else
e.Row.BackColor = Drawing.Color.LightGray e.Row.BackColor = Drawing.Color.LightGray
e.Row.Font.Bold = True e.Row.Font.Bold = True

38
Compras/RepProductosServicios.aspx.vb
View File

@@ -202,7 +202,23 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Centro de costo"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False DivProyecto.Visible = False
LblProyecto.Visible = False LblProyecto.Visible = False
@@ -215,30 +231,18 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2")) DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1")) DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2")) DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
LblSubProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:" LblProyecto.InnerText = "Proyecto<br/>:"
LblSubProyecto.InnerText = "Proyecto:" LblSubProyecto.InnerText = "Subproyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1")) DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2")) DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then

82
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -310,6 +310,19 @@ Partial Class Compras_RepProductosServiciosDetalle
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Centro de costo"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False DivProyecto.Visible = False
LblProyecto.Visible = False LblProyecto.Visible = False
@@ -322,30 +335,18 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2")) DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1")) DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2")) DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
LblSubProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:" LblProyecto.InnerText = "Proyecto<br/>:"
LblSubProyecto.InnerText = "Proyecto:" LblSubProyecto.InnerText = "Subproyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1")) DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2")) DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
@@ -356,6 +357,53 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2")) DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind() DdlGrupo.DataBind()
End If End If
'If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
' DdlSubProyecto.Items.Clear()
' DivProyecto.Visible = False
' LblProyecto.Visible = False
' LblSubProyecto.InnerText = "Sucursal:"
' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
' DdlSubProyecto.DataBind()
' DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
' DdlGrupo.DataBind()
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
' DdlSubProyecto.Items.Clear()
' DivProyecto.Visible = False
' LblProyecto.Visible = False
' LblSubProyecto.InnerText = "Proyecto:"
' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
' DdlSubProyecto.DataBind()
' DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
' DdlGrupo.DataBind()
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
' DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
' DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
' DdlGrupo.DataBind()
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LblProyecto.InnerText = "Sucursal:"
' LblSubProyecto.InnerText = "Proyecto:"
' DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
' DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
' DdlGrupo.DataBind()
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LblProyecto.InnerText = "Proyecto:"
' LblSubProyecto.InnerText = "Sucursal:"
' DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
' DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
' DdlGrupo.DataBind()
'End If
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click

50
Empresas/Grales/Formatos/RepAnomalias.rdlc
View File

@@ -49,7 +49,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Productos que faltan</Value> <Value> Productos que sobran </Value>
<Style> <Style>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
@@ -291,7 +291,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>SerieLote</Value> <Value>Serie</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -678,7 +678,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!SerieLote.Value</Value> <Value>=Fields!Serie.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>dd/MM/yyyy</Format> <Format>dd/MM/yyyy</Format>
@@ -1349,7 +1349,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value> Productos que sobran</Value> <Value> Productos que faltan</Value>
<Style> <Style>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
@@ -1622,7 +1622,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>SerieLote</Value> <Value>Serie</Value>
<Style> <Style>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -2008,7 +2008,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Fields!SerieLote.Value</Value> <Value>=Fields!Serie.Value</Value>
<Style> <Style>
<FontSize>7.5pt</FontSize> <FontSize>7.5pt</FontSize>
<Format>dd/MM/yyyy</Format> <Format>dd/MM/yyyy</Format>
@@ -2032,6 +2032,7 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -3033,8 +3034,8 @@
<Value>=Parameters!LogoPath.Value</Value> <Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing> <Sizing>FitProportional</Sizing>
<Left>0.12943cm</Left> <Left>0.12943cm</Left>
<Height>2.25453cm</Height> <Height>2.25804cm</Height>
<Width>4.18606cm</Width> <Width>3.29186cm</Width>
<ZIndex>4</ZIndex> <ZIndex>4</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3048,28 +3049,23 @@
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontSize>14pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun> <TextRun>
<Value>=Parameters!NombreEmpresa.Value</Value> <Value>=Parameters!NombreEmpresa.Value</Value>
<Style> <Style>
<FontSize>14pt</FontSize> <FontSize>12pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style>
<TextAlign>Center</TextAlign>
</Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Left>4.49188cm</Left> <Left>3.53938cm</Left>
<Height>0.6cm</Height> <Height>0.6cm</Height>
<Width>13.51378cm</Width> <Width>17.07793cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3090,7 +3086,7 @@
<TextRun> <TextRun>
<Value>REPORTE DE INVENTARIO FISICO</Value> <Value>REPORTE DE INVENTARIO FISICO</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -3104,7 +3100,7 @@
<TextRun> <TextRun>
<Value /> <Value />
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -3116,9 +3112,9 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName> <rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.90456cm</Top> <Top>0.90456cm</Top>
<Left>4.55144cm</Left> <Left>3.59894cm</Left>
<Height>0.66174cm</Height> <Height>0.66174cm</Height>
<Width>11.39711cm</Width> <Width>17.01837cm</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3392,6 +3388,10 @@
<Field Name="SerieLote"> <Field Name="SerieLote">
<DataField>SerieLote</DataField> <DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Serie">
<DataField>Serie</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="CantidadAlmacen"> <Field Name="CantidadAlmacen">
<DataField>CantidadAlmacen</DataField> <DataField>CantidadAlmacen</DataField>
@@ -3441,6 +3441,10 @@
<DataField>SerieLote</DataField> <DataField>SerieLote</DataField>
<rd:TypeName>System.String</rd:TypeName> <rd:TypeName>System.String</rd:TypeName>
</Field> </Field>
<Field Name="Serie">
<DataField>Serie</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CantidadAlmacen"> <Field Name="CantidadAlmacen">
<DataField>CantidadAlmacen</DataField> <DataField>CantidadAlmacen</DataField>
<rd:TypeName>System.Double</rd:TypeName> <rd:TypeName>System.Double</rd:TypeName>

14
Inventarios/EntradasSalidas.aspx
View File

@@ -331,12 +331,22 @@
</div> </div>
<div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false"> <div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false">
<asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label> <asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
<div class="col-md-2"> <div class="col-md-5">
<asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 250px"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 100%"></asp:DropDownList>
<asp:RangeValidator ID="RVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" MinimumValue="0" MaximumValue="9999999" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RangeValidator> <asp:RangeValidator ID="RVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" MinimumValue="0" MaximumValue="9999999" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RangeValidator>
<ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row" runat="server" id="TrActivoFijo" visible="false">
<asp:Label runat="server" ID="Label1" class="col-md-1 truncate">Activo Fijo:</asp:Label>
<div class="col-md-5">
<asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="Descripcion" DataValueField="CveActivoFijo" Width="95%">
<asp:ListItem Selected="True" Text="Seleccione Uno" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="row" runat="server" id="DivRemision" visible="false"> <div class="row" runat="server" id="DivRemision" visible="false">
<label class="col-md-1 truncate" style="width: 110px">Remision:</label> <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
<div class="col-md-2"> <div class="col-md-2">

16
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1508,6 +1508,11 @@ Partial Class Inventarios_EntradasSalidas
ActivoFijo = -2 ActivoFijo = -2
End If End If
'Esto es parte de consumo interno
If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
End If
'ACTUALIZAR 'ACTUALIZAR
If CveMovimiento > 0 Then If CveMovimiento > 0 Then
Dim Mensaje As String = "" Dim Mensaje As String = ""
@@ -3353,15 +3358,22 @@ Partial Class Inventarios_EntradasSalidas
DVCultivosCuadro.Visible = True DVCultivosCuadro.Visible = True
CargaCultivos() CargaCultivos()
End If End If
TrActivoFijo.Visible = True
DdlActivoFijo.Items.Clear()
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEstadoActivoFijo IN(1,3,4,9) ")
DdlActivoFijo.DataBind()
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
DdlActivoFijo.SelectedValueExist(-1)
End Sub End Sub
Private Sub CargaCultivos() Private Sub CargaCultivos()
DdlModalCultivosCuadro.Items.Clear() DdlModalCultivosCuadro.Items.Clear()
DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") DdlModalCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue} AND Estatus = 1 ")
DdlModalCultivosCuadro.DataBind() DdlModalCultivosCuadro.DataBind()
DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub End Sub

6
Inventarios/RepAnomalias.aspx.vb
View File

@@ -459,10 +459,10 @@ Partial Class Inventarios_RepAnomalias
params.Add(New ReportParameter("FechaInicio", Inventario.FechaI)) params.Add(New ReportParameter("FechaInicio", Inventario.FechaI))
params.Add(New ReportParameter("FechaFin", Inventario.FechaF)) params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri)) params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else Else
params.Add(New ReportParameter("LogoPath", "")) params.Add(New ReportParameter("LogoPath", ""))
End If End If

476
Nomina/Nomina.aspx.cs
View File

@@ -8147,7 +8147,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
if (objnom.GetDispersionNominaBanorte(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa)) if (objnom.GetDispersionNominaBanorte(CvePeriodoSeleccionado, UsuarioActual.CveEmpresa))
{ {
CrearLayoutNominaBanorte(objnom.DtResultados, "66564"); CrearLayoutNominaBanorte(objnom.DtResultados, "66564",1);
} }
} }
@@ -8270,475 +8270,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
Alert(SbErrores.ToString(), TipoMensaje.MsgAdvertencia); Alert(SbErrores.ToString(), TipoMensaje.MsgAdvertencia);
} }
private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora, int Consecutivo )
//private void CrearLayoutAltaBanorte(DataTable DTNomina, string Promotor, string NIE, string RazonSocial)
//{
// StringBuilder sb = new StringBuilder();
// StringBuilder SbErrores = new StringBuilder();
// char Cero = '0';
// char Espacio = ' ';
// bool ErrorProceso = false;
// Promotor = Promotor.Trim();
// NIE = NIE.Trim();
// RazonSocial = RazonSocial.Trim();
// //SbErrores.AppendLine("Se detectaron los siguientes errores en la generación del layout");
// if (DTNomina.Rows.Count > 0)
// {
// //Tip oRegistro 1 1-1
// //Clave servicio 2 2-3
// sb.Append($"HNE");
// //Promotor 8 4-11
// if (Promotor.Length > 0 && Promotor.Length <= 8)
// {
// sb.Append(Promotor.PadLeft(8, Cero));
// }
// else
// {
// SbErrores.AppendLine($"Promotor {Promotor} debe de tener una logitud de entre 1 y 8<br/>");
// ErrorProceso = true;
// }
// //NIE 5 12-26
// if (ErrorProceso == false && NIE.Length > 0 && NIE.Length <= 5)
// {
// sb.Append(NIE.PadLeft(5, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"NIE {NIE} debe de tener una logitud de entre 1 y 8<br/>");
// ErrorProceso = true;
// }
// //Nombre de Empresa ó Razón Social 40 17-56
// if (ErrorProceso == false && RazonSocial.Length > 0 && RazonSocial.Length <= 40)
// {
// sb.Append(RazonSocial.PadLeft(40, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"RazonSocial {RazonSocial} debe de tener una logitud de entre 1 y 40<br/>");
// ErrorProceso = true;
// }
// //57-58consecutivo 1
// sb.Append("1");
// //Número de registros N 6 59-64
// sb.Append(DTNomina.Rows.ToString().PadRight(6, Espacio));
// //Filler A 283 65-347
// sb.Append(DTNomina.Rows.ToString().PadLeft(283, Espacio));
// if (!ErrorProceso)
// {
// foreach (DataRow dRow in DTNomina.Rows)
// {
// string CodigoEmpleado = dRow["Codigo"].ToString().Trim();
// string Nombres = dRow["Nombres"].ToString().Trim();
// string APaterno = dRow["APaterno"].ToString().Trim();
// string Amaterno = dRow["AMaterno"].ToString().Trim();
// string CodigoNacionalOperacion = dRow["CodigoNacionalOperacion"].ToString().Trim();
// string NombreCorto = dRow["NombreCorto"].ToString().Trim();
// string TipoDeVia = dRow["TipoDeVia"].ToString().Trim();
// string Direccion = dRow["Direccion"].ToString().Trim();
// string NumExt = dRow["NumExt"].ToString().Trim();
// string TipoDeVivienda = dRow["TipoDeVivienda"].ToString().Trim();
// string Colonia = dRow["Colonia"].ToString().Trim();
// string DelegacionMunicipio = dRow["DelegacionMunicipio"].ToString().Trim();
// string ClaveEstado = dRow["ClaveEstado"].ToString().Trim();
// string CP = dRow["CP"].ToString().Trim();
// string Sexo = dRow["Sexo"].ToString().Trim();
// DateTime FechaNacimiento = dRow["FechaNacimiento"].ToString().ToDate();
// string Nacionalidad = dRow["Nacionalidad"].ToString().Trim();
// string EstadoCivil = dRow["EstadoCivil"].ToString().Trim();
// string Escolaridad = dRow["Escolaridad"].ToString().Trim();
// string TipoEmpleado = dRow["TipoEmpleado"].ToString().Trim();
// string RFC = dRow["RFC"].ToString().Trim();
// string TipoAlta = dRow["TipoAlta"].ToString().Trim();
// string TipoDeTarjeta = dRow["TipoDeTarjeta"].ToString().Trim();
// string CodigoDeBanco = dRow["CodigoDeBanco"].ToString().Trim();
// string TipoCuenta = dRow["TipoCuenta"].ToString().Trim();
// string Cuenta = dRow["Cuenta"].ToString().Trim();
// string ImpresionContrato = dRow["ImpresionContrato"].ToString().Trim();
// //Tipo de registro A 1 1-1
// sb.AppendLine("D");
// //CodigoEmpleado A 10 2-11
// if (ErrorProceso == false && CodigoEmpleado.Length > 0 && CodigoEmpleado.Trim().Length <= 10)
// {
// sb.Append(CodigoEmpleado.PadLeft(10, Cero));
// }
// else
// {
// SbErrores.AppendLine($"Codigo {CodigoEmpleado} debe de tener una logitud de entre 1 y 10<br/>");
// ErrorProceso = true;
// }
// //Nombres A 20 12-31
// if (ErrorProceso == false && Nombres.Length > 0 && Nombres.Trim().Length <= 20)
// {
// sb.Append(Nombres.PadRight(20, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Nombre {Nombres} debe de tener una logitud de entre 1 y 20<br/>");
// ErrorProceso = true;
// }
// //Apellido Paterno A 20 32-51
// if (ErrorProceso == false && APaterno.Length > 0 && APaterno.Trim().Length <= 20)
// {
// sb.Append(APaterno.PadRight(20, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Apellido Paterno {APaterno} debe de tener una logitud de entre 1 y 20<br/>");
// ErrorProceso = true;
// }
// //Aperllido Materno A 20 52-71
// if (ErrorProceso == false && Amaterno.Length > 0 && Amaterno.Trim().Length <= 20)
// {
// sb.Append(Amaterno.PadRight(20, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Apellido Materno {Amaterno} debe de tener una logitud de entre 1 y 20<br/>");
// ErrorProceso = true;
// }
// // Dependencia A 5 72-76
// sb.Append(string.Empty.PadRight(5, Espacio)); // No requerido
// //CodigoNacionalOperacion N 2 77-78 Anexo 1
// if (ErrorProceso == false && CodigoNacionalOperacion.Length > 0 && CodigoNacionalOperacion.Trim().Length <= 2)
// {
// sb.Append(CodigoNacionalOperacion.PadLeft(2, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Codigo Nacional de Operación {CodigoNacionalOperacion} debe de tener una logitud de entre 1 y 20<br/>");
// ErrorProceso = true;
// }
// //NombreCorto A 19 79-97
// if (ErrorProceso == false && NombreCorto.Length > 0 && NombreCorto.Trim().Length <= 19)
// {
// sb.Append(NombreCorto.PadRight(19, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Nombre Corto{NombreCorto} debe de tener una logitud de entre 1 y 19<br/>");
// ErrorProceso = true;
// }
// //TipoDeVia A 2 98-99 Anexo 2
// if (ErrorProceso == false && TipoDeVia.Length > 0 && TipoDeVia.Trim().Length <= 2)
// {
// sb.Append(TipoDeVia.PadRight(2, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via {TipoDeVia} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //Calle A 24 100-123
// if (ErrorProceso == false && Direccion.Length > 0 && Direccion.Trim().Length <= 24)
// {
// sb.Append(Direccion.PadRight(24, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Calle {Direccion} debe de tener una logitud de entre 1 y 24<br/>");
// ErrorProceso = true;
// }
// //Numero A 7 124-130
// if (ErrorProceso == false && NumExt.Length > 0 && NumExt.Trim().Length <= 7)
// {
// sb.Append(NumExt.PadRight(7, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Tipo De Via {NumExt} debe de tener una logitud de entre 1 y 7<br/>");
// ErrorProceso = true;
// }
// //TipoDeVivienda N 2 131-132
// if (ErrorProceso == false && TipoDeVivienda.Length > 0 && TipoDeVivienda.Trim().Length <= 2)
// {
// sb.Append(TipoDeVivienda.PadLeft(2, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Vivienda {TipoDeVivienda} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //Entrada A 2 133-134
// sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido
// //Piso A 5 135-136
// sb.Append(string.Empty.PadRight(2, Espacio)); // No requerido
// //Deparatmento A 4 137-140
// sb.Append(string.Empty.PadRight(4, Espacio)); // No requerido
// //Colonia A 40 141-180
// if (ErrorProceso == false && Colonia.Length > 0 && Colonia.Trim().Length <= 40)
// {
// sb.Append(Colonia.PadRight(40, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Colonia Municipio {Colonia} debe de tener una logitud de entre 1 y 40<br/>");
// ErrorProceso = true;
// }
// //DelegacionMunicipio N 3 181-183
// if (ErrorProceso == false && DelegacionMunicipio.Length > 0 && DelegacionMunicipio.Trim().Length <= 3)
// {
// sb.Append(DelegacionMunicipio.PadLeft(3, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Delegacion Municipio {DelegacionMunicipio} debe de tener una logitud de entre 1 y 3<br/>");
// ErrorProceso = true;
// }
// //ClaveEstado N 2 184-185
// if (ErrorProceso == false && ClaveEstado.Length > 0 && ClaveEstado.Trim().Length <= 2)
// {
// sb.Append(ClaveEstado.PadLeft(2, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Clave Estado {ClaveEstado} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //Codigo Postal N 5 186-190
// if (ErrorProceso == false && CP.Length > 0 && CP.Trim().Length <= 5)
// {
// sb.Append(CP.PadLeft(5, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Codigo Postal {CP} debe de tener una logitud de entre 1 y 5<br/>");
// ErrorProceso = true;
// }
// //Telefono A 12 191-202
// sb.Append(string.Empty.PadRight(12, Espacio)); // No requerido
// //Sexo A 1 203-203
// sb.Append(Sexo); // No requerido
// //Fecha Nacimiento A N 204-211
// sb.Append(FechaNacimiento.ToString("yyyyMMdd"));
// //Nacionalidad N 3 212-214 Anexo 6
// if (ErrorProceso == false && Nacionalidad.Length > 0 && Nacionalidad.Trim().Length <= 3)
// {
// sb.Append(Nacionalidad.PadLeft(3, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Nacionalidad {Nacionalidad} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //Estado Civil N 3 215-215 Anexo 7
// if (ErrorProceso == false && EstadoCivil.Length > 0 && EstadoCivil.Trim().Length <= 1)
// {
// sb.Append(EstadoCivil);
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Estado Civil {EstadoCivil} debe de tener una logitud de 1<br/>");
// ErrorProceso = true;
// }
// //Regimen Matrimonial A 1 216-216
// sb.Append(string.Empty.PadRight(1, Espacio)); // No requerido Anexo 8
// //Escolaridad N 3 217-219 Anexo 9
// if (ErrorProceso == false && Escolaridad.Length > 0 && Escolaridad.Trim().Length <= 3)
// {
// sb.Append(Escolaridad.PadLeft(3, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Escolaridad {Escolaridad} debe de tener una logitud de entre 1 y 3<br/>");
// ErrorProceso = true;
// }
// //Titulo Profecional N 5 220-223
// sb.Append(string.Empty.PadLeft(3, Cero)); // No requerido Anexo 10
// //RFC N 13 225-237
// if (ErrorProceso == false && RFC.Length > 0 && RFC.Trim().Length <= 13)
// {
// sb.Append(RFC.PadRight(13, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} RFC {RFC} debe de tener una logitud de entre 1 y 13<br/>");
// ErrorProceso = true;
// }
// //Curp A 18 238-255
// sb.Append(string.Empty.PadLeft(18, Espacio)); // No requerido
// //Tipo de Alta N 2 256-257
// if (ErrorProceso == false && TipoAlta.Length > 0 && TipoAlta.Trim().Length <= 2)
// {
// sb.Append(TipoAlta.PadLeft(3, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Tipo de Alta {TipoAlta} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //TipoDeTarjeta N 1 258-258
// sb.Append(TipoDeTarjeta);
// //Número de Tarjeta de Débito N 16 259-274
// sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido
// //Clave del Producto de la Cuenta N 4 275-278
// sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido
// //Código de Banco de la Cuenta N 3 279-281
// if (ErrorProceso == false && CodigoDeBanco.Length > 0 && CodigoDeBanco.Trim().Length <= 3)
// {
// sb.Append(CodigoDeBanco.PadLeft(3, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Codigo De Banco {CodigoDeBanco} debe de tener una logitud de entre 1 y 3<br/>");
// ErrorProceso = true;
// }
// //Tipo Cuenta N 2 282-283
// if (ErrorProceso == false && TipoCuenta.Length > 0 && TipoCuenta.Trim().Length <= 2)
// {
// sb.Append(TipoCuenta.PadLeft(2, Cero));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Tipo Cuenta {TipoCuenta} debe de tener una logitud de entre 1 y 2<br/>");
// ErrorProceso = true;
// }
// //Numero cuenta 18 284-301
// if (ErrorProceso == false && Cuenta.Length > 0 && Cuenta.Trim().Length <= 18)
// {
// sb.Append(Cuenta.PadRight(18, Espacio));
// }
// else
// {
// SbErrores.AppendLine($"{CodigoEmpleado} Numero cuenta {Cuenta} debe de tener una logitud de entre 1 y 18<br/>");
// ErrorProceso = true;
// }
// //CR Chequera N 4 302-305
// sb.Append(string.Empty.PadLeft(4, Cero)); // No requerido
// //Impresion Contrato A 1 306-306
// sb.Append("S");
// //Sueldo N 15 307-321
// sb.Append(string.Empty.PadLeft(15, Cero)); // No requerido
// //Numero targeta N 16 307-321
// sb.Append(string.Empty.PadLeft(16, Cero)); // No requerido
// //Filler A 10 338-347
// sb.Append(string.Empty.PadLeft(10, Cero)); // Relleno
// }
// if (!ErrorProceso)
// {
// Response.Clear();
// Response.ClearHeaders();
// Response.AppendHeader("Content-Length", sb.ToString());
// Response.ContentType = "text/plain";
// //Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina{DateTime.Now.ToString("yyyyMMddhhmmss").ToString()}.txt\"");
// Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Alta_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\"");
// Response.Write(sb.ToString());
// this.RegistraScript("$('#ModalLayoutBancos').modal('hide');");
// Response.Flush();
// Response.End();
// }
// else
// {
// this.Alert($"Errores {SbErrores.ToString()}", TipoMensaje.ToastAdventencia);
// }
// }
// }
// #endregion
//}
private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora)
{ {
StringBuilder sb = new StringBuilder(); StringBuilder sb = new StringBuilder();
StringBuilder SbErrores = new StringBuilder(); StringBuilder SbErrores = new StringBuilder();
@@ -8779,7 +8311,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
//Accion N 1 88-88 //Accion N 1 88-88
sb.Append("0"); sb.Append("0");
//filler 77 89-165 //filler 77 89-165
sb.Append(string.Empty.PadLeft(77, Cero)); sb.Append(string.Empty.PadLeft(77, Espacio));
if (!ErrorProceso) if (!ErrorProceso)
{ {
@@ -8857,7 +8389,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
Response.ClearHeaders(); Response.ClearHeaders();
Response.AppendHeader("Content-Length", sb.ToString()); Response.AppendHeader("Content-Length", sb.ToString());
Response.ContentType = "text/plain"; Response.ContentType = "text/plain";
Response.AppendHeader("Content-Disposition", $"attachment;filename=\"Nomina_Banorte_{DdlPeriodo.SelectedItem.Text }.txt\""); Response.AppendHeader("Content-Disposition", $"attachment;filename=\"NI{Emisora.PadLeft(5, Cero)}{Consecutivo.ToString("00")}.PAG\"");
Response.Write(sb.ToString()); Response.Write(sb.ToString());
this.RegistraScript("$('#ModalLayoutBancos').modal('hide');"); this.RegistraScript("$('#ModalLayoutBancos').modal('hide');");
Response.Flush(); Response.Flush();

2
Ventas/PV.aspx.vb
View File

@@ -3440,7 +3440,7 @@ Partial Class PV
Dim ObjAcum As New ClsAcumuladores Dim ObjAcum As New ClsAcumuladores
Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL()) Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL())
Dim ObjContPaq As ClsContPAQi = Nothing Dim ObjContPaq As ClsContPAQi = Nothing
If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
End If End If

110
Ventas/Ventas.aspx.vb
View File

@@ -8808,7 +8808,7 @@ Partial Class Ventas
'CONTABILIDAD AUTOMATICA Y AC 'CONTABILIDAD AUTOMATICA Y AC
If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa) ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL() ObjContPaq.IniciaTransacSQL()
End If End If
@@ -19715,46 +19715,53 @@ Partial Class Ventas
End Sub End Sub
Private Sub EliminaPoliza() Private Sub EliminaPoliza()
Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL()
Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL()
Dim ErrorMovimiento = False If UsuarioActual.Empresa.TipoContabilidad = 2 Then
'Elimina la poliza Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then ObjAC.IniciaTransacSQL()
If Not ObjAC.RemovePoliza(IdPoliza) Then Dim ObjConta As New ClsContabilidad
ErrorMovimiento = True ObjConta.IniciaTransacSQL()
Dim ErrorMovimiento = False
'Elimina la poliza
If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
If Not ObjAC.RemovePoliza(IdPoliza) Then
ErrorMovimiento = True
End If
End If End If
End If
'Desasocia la poliza 'Desasocia la poliza
If Not ErrorMovimiento Then If Not ErrorMovimiento Then
If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
ErrorMovimiento = True ErrorMovimiento = True
End If
End If End If
End If
If Not ErrorMovimiento Then If Not ErrorMovimiento Then
If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorMovimiento = True ErrorMovimiento = True
End If
End If End If
If Not ErrorMovimiento Then
Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
ObjAC.Commit()
ObjConta.Commit()
BtnDescontabilizar.Visible = False
Else
Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
ObjAC.RollBack()
ObjConta.RollBack()
End If
ObjAC.Dispose()
ObjConta.Dispose()
End If End If
If Not ErrorMovimiento Then
Alert("La póliza ha sido desvinculada y eliminada con éxito.", TipoMensaje.MsgInformacion)
ObjAC.Commit()
ObjConta.Commit()
BtnDescontabilizar.Visible = False
Else
Alert("Ocurrió un error al desvincular y/o eliminar la póliza. Por favor intente de nuevo ", TipoMensaje.MsgError)
ObjAC.RollBack()
ObjConta.RollBack()
End If
ObjAC.Dispose()
ObjConta.Dispose()
End Sub End Sub
Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs) Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -22654,7 +22661,7 @@ Partial Class Ventas
CreaObjetosVenta() CreaObjetosVenta()
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL() ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
End If End If
@@ -34455,35 +34462,42 @@ Partial Class Ventas
Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs) Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
CreaObjetosVenta() CreaObjetosVenta()
Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
Dim Msgok As New StringBuilder
If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura) If UsuarioActual.Empresa.TipoContabilidad = 2 Then
If IDPoliza.IdPoliza > 0 Then Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
Dim Msgok As New StringBuilder
If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
Dim ObjVentas As New ClsVentas Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFactura)
If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then If IDPoliza.IdPoliza > 0 Then
Dim ObjVentas As New ClsVentas
If ObjVentas.UpdateVentaPrePoliza(IDPoliza.IdPoliza, IDPoliza.FolioPoliza, CvePrePoliza, CveVenta, UsuarioActual.CveEmpresa) Then
'Si se facturó la cotización hay que vincular la venta
Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
End If
ObjVentas.Dispose()
'Si se facturó la cotización hay que vincular la venta 'Si se facturó la cotización hay que vincular la venta
Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza) Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
Else
ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
End If End If
ObjVentas.Dispose()
'Si se facturó la cotización hay que vincular la venta
Msgok.AppendFormat("Abono Registrado Correctamente.<br/><br/> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>Ver Poliza</a>", IDPoliza)
Else Else
ErrorList.Add("Ocurrió un error al generar A.C. en la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
End If End If
ObjAC.Dispose()
Else
Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
End If End If
ObjAC.dispose
End Sub End Sub
End Class End Class