This commit is contained in:
2022-05-25 20:47:19 -07:00
11 changed files with 243 additions and 599 deletions

View File

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

View File

@@ -174,6 +174,11 @@ Partial Class Compras_RepComprasAFDetalle
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
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.DataBind()
@@ -325,11 +330,18 @@ Partial Class Compras_RepComprasAFDetalle
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
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
e.Row.BackColor = Drawing.Color.LightGray
e.Row.Font.Bold = True

View File

@@ -202,7 +202,23 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.SelectedValueExist("8")
End Sub
Private Sub CargaTipoCentroCosto()
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()
DivProyecto.Visible = False
LblProyecto.Visible = False
@@ -215,30 +231,18 @@ Partial Class Compras_RepProductosServicios
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()
LblSubProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
LblProyecto.InnerText = "Proyecto<br/>:"
LblSubProyecto.InnerText = "Subproyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then

View File

@@ -310,6 +310,19 @@ Partial Class Compras_RepProductosServiciosDetalle
End Sub
Private Sub CargaTipoCentroCosto()
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()
DivProyecto.Visible = False
LblProyecto.Visible = False
@@ -322,30 +335,18 @@ Partial Class Compras_RepProductosServiciosDetalle
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()
LblSubProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
LblProyecto.InnerText = "Proyecto<br/>:"
LblSubProyecto.InnerText = "Subproyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
@@ -356,6 +357,53 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind()
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
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click

View File

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

View File

@@ -331,12 +331,22 @@
</div>
<div class="row" runat="server" id="TrSubProyectoActivoFijo" visible="false">
<asp:Label runat="server" ID="LblSubProyecto" class="col-md-1 truncate">Proyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass=" form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Style="max-width: 250px"></asp:DropDownList>
<div class="col-md-5">
<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>
<ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RVSubProyecto" Width="350px"></ajax:ValidatorCalloutExtender>
</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">
<label class="col-md-1 truncate" style="width: 110px">Remision:</label>
<div class="col-md-2">

View File

@@ -1508,6 +1508,11 @@ Partial Class Inventarios_EntradasSalidas
ActivoFijo = -2
End If
'Esto es parte de consumo interno
If DdlActivoFijo.SelectedValue.ToEntero > 0 Then
ActivoFijo = DdlActivoFijo.SelectedValue.ToEntero
End If
'ACTUALIZAR
If CveMovimiento > 0 Then
Dim Mensaje As String = ""
@@ -3353,15 +3358,22 @@ Partial Class Inventarios_EntradasSalidas
DVCultivosCuadro.Visible = True
CargaCultivos()
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
Private Sub CargaCultivos()
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.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub

View File

@@ -459,10 +459,10 @@ Partial Class Inventarios_RepAnomalias
params.Add(New ReportParameter("FechaInicio", Inventario.FechaI))
params.Add(New ReportParameter("FechaFin", Inventario.FechaF))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
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)
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If

View File

@@ -8147,7 +8147,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
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);
}
//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)
private void CrearLayoutNominaBanorte(DataTable DTNomina, string Emisora, int Consecutivo )
{
StringBuilder sb = new StringBuilder();
StringBuilder SbErrores = new StringBuilder();
@@ -8779,7 +8311,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
//Accion N 1 88-88
sb.Append("0");
//filler 77 89-165
sb.Append(string.Empty.PadLeft(77, Cero));
sb.Append(string.Empty.PadLeft(77, Espacio));
if (!ErrorProceso)
{
@@ -8857,7 +8389,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
Response.ClearHeaders();
Response.AppendHeader("Content-Length", sb.ToString());
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());
this.RegistraScript("$('#ModalLayoutBancos').modal('hide');");
Response.Flush();

View File

@@ -3440,7 +3440,7 @@ Partial Class PV
Dim ObjAcum As New ClsAcumuladores
Dim ObjVentas As New ClsVentas(ObjAcum.IniciaTransacSQL())
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)
End If

View File

@@ -8808,7 +8808,7 @@ Partial Class Ventas
'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.IniciaTransacSQL()
End If
@@ -19715,46 +19715,53 @@ Partial Class Ventas
End Sub
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
If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
If Not ObjAC.RemovePoliza(IdPoliza) Then
ErrorMovimiento = True
Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa)
ObjAC.IniciaTransacSQL()
Dim ObjConta As New ClsContabilidad
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
'Desasocia la poliza
If Not ErrorMovimiento Then
If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
ErrorMovimiento = True
'Desasocia la poliza
If Not ErrorMovimiento Then
If Not ObjConta.DesasociarPoliza(IdPoliza, UsuarioActual.CveEmpresa) Then
ErrorMovimiento = True
End If
End If
End If
If Not ErrorMovimiento Then
If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorMovimiento = True
If Not ErrorMovimiento Then
If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
ErrorMovimiento = True
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
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
Protected Sub DdlPS_SelectedIndexChanged1(sender As Object, e As EventArgs)
@@ -22654,7 +22661,7 @@ Partial Class Ventas
CreaObjetosVenta()
If UsuarioActual.Empresa.UsaAC Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
End If
@@ -34455,35 +34462,42 @@ Partial Class Ventas
Protected Sub BtnGenerarPoliza_Click(sender As Object, e As EventArgs)
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
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
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
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
ObjAC.Dispose()
Else
Msgok.Append("Movimiento Registrado Correctamente.<br/><br/> ")
End If
ObjAC.dispose
End Sub
End Class