Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -4,9 +4,9 @@
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
|
||||
<asp:UpdatePanel ID="UppAddAcciones" runat="server">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<%-- <li>
|
||||
<asp:LinkButton ID="LnkAcarreo" runat="server" Text="Verificar Acarreos" Visible="False"></asp:LinkButton>
|
||||
</li>
|
||||
</li>--%>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<asp:UpdatePanel ID="UpnTools" runat="server" UpdateMode="Conditional">
|
||||
@@ -62,9 +62,9 @@
|
||||
<asp:PostBackTrigger ControlID="BtnDescontabilizar" />
|
||||
</Triggers>
|
||||
</asp:UpdatePanel>
|
||||
<li>
|
||||
<%--<li>
|
||||
<asp:LinkButton ID="LBContabilizarAC" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea contabilizar la compra?" data-btn-ok-label="si" Text="Contabilizar" runat="server" OnClick="LBContabilizarAC_Click" Visible="false"> <i class="fa fa-check"></i> Contabilizar</asp:LinkButton>
|
||||
</li>
|
||||
</li>--%>
|
||||
<li>
|
||||
<asp:HyperLink ID="HLPagar" CssClass="thickbox" Visible="false" runat="server"><i class='fa fa-money'></i> Pagar</asp:HyperLink>
|
||||
</li>
|
||||
@@ -502,7 +502,7 @@
|
||||
<asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
|
||||
<asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
|
||||
<asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
|
||||
<%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%>
|
||||
<%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%>
|
||||
</asp:DropDownList>
|
||||
|
||||
</div>
|
||||
@@ -2516,13 +2516,13 @@
|
||||
<div class="portlet-body">
|
||||
<asp:UpdatePanel ID="UPObservaciones" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<table border="0" width="250px">
|
||||
<table border="0" width="100%">
|
||||
<tr align="left">
|
||||
<td><b>Observaciones Generales:</b> </td>
|
||||
</tr>
|
||||
<tr align="left">
|
||||
<td>
|
||||
<asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px"></asp:TextBox></td>
|
||||
<asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="100%"></asp:TextBox></td>
|
||||
</tr>
|
||||
</table>
|
||||
</ContentTemplate>
|
||||
@@ -3433,57 +3433,7 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<div id="divAddAcarreo" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
<asp:UpdatePanel ID="UpAddAcarreo" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="modal-header">
|
||||
<button type="button" class="close" data-dismiss="modal" aria-label="Close">
|
||||
<span aria-hidden="true">×</span>
|
||||
</button>
|
||||
<h4 class="modal-title" id="myModalLabel" runat="server">Asociación de Acarreos</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel ID="UpBodyAcarreo" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvAcarreo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Acarreos con los filtros especificados"
|
||||
DataKeyNames="CvePreEstimacion,Importe,CveUnidadMedida,UnidadMedida,CveSubProyectoOrigen,SubProyectoOrigen,CveSubProyectoDestino,SubProyectoDestino" ToolTip="Listado de Acarreos"
|
||||
CssClass="table table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
|
||||
<Columns>
|
||||
<asp:BoundField DataField="NumContrato" HeaderText="Contrato" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
|
||||
<asp:BoundField DataField="NumPreEstimacion" HeaderText="Número de Pre-Estimación" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" />
|
||||
<asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:BoundField DataField="FechaPreEstimacion" HeaderText="Fecha Pre-Estimación" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center">
|
||||
<ItemTemplate>
|
||||
<asp:CheckBox ID="ChkRow" runat="server" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
<div class="modal-footer">
|
||||
<asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:LinkButton ID="BtnAgregarAcarreo" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Aceptar</asp:LinkButton>
|
||||
<button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div id="ModalPesos" class="modal ADS fade" role="dialog">
|
||||
<div class="modal-dialog">
|
||||
|
||||
@@ -5295,6 +5245,21 @@
|
||||
</div>
|
||||
<div class="form-group form-md-line-input input-iconright" id="DivPedimento" runat="server">
|
||||
<asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server"></asp:TextBox>
|
||||
<ajaxToolkit:MaskedEditExtender ID="meeTxtPedimento" runat="server"
|
||||
ClearMaskOnLostFocus="false"
|
||||
TargetControlID="TxtPedimento"
|
||||
Mask="99--99--9999--9999999"
|
||||
MaskType="Number"
|
||||
InputDirection="LeftToRight"
|
||||
AcceptNegative="None"
|
||||
ErrorTooltipEnabled="True" />
|
||||
|
||||
<asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ValidationGroup="VGMCrearFleteImportacion" ErrorMessage="Formato no valido, el formato correcto es 99--99--9999--9999999" ForeColor="Red"
|
||||
ValidationExpression="^[0-9 ]{2}--[0-9 ]{2}--[0-9 ]{4}--[0-9 ]{7}$" ></asp:RegularExpressionValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender11" runat="server" HighlightCssClass="vco" TargetControlID="regexTxtPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
|
||||
<asp:RequiredFieldValidator ID="RFVPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pedimento''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCrearFleteImportacion"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEPedimento" runat="server" HighlightCssClass="vco" TargetControlID="RFVPedimento"></ajax:ValidatorCalloutExtender>
|
||||
<label for="<%= TxtPedimento.ClientID.ToString()%>">Pedimento:</label>
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -42,20 +42,20 @@
|
||||
<div class="row">
|
||||
<div class="col-md-2">Pedimento:</div>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="18" Width="300px" ClientIDMode="Static" ></asp:TextBox>
|
||||
<asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server" MaxLength="21" Width="300px" ClientIDMode="Static" ></asp:TextBox>
|
||||
<ajaxToolkit:MaskedEditExtender ID="meeTxtPedimento" runat="server"
|
||||
ClearMaskOnLostFocus="false"
|
||||
TargetControlID="TxtPedimento"
|
||||
Mask="99-99-9999-9999999"
|
||||
Mask="99--99--9999--9999999"
|
||||
MaskType="Number"
|
||||
InputDirection="LeftToRight"
|
||||
AcceptNegative="None"
|
||||
ErrorTooltipEnabled="True" />
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
<asp:RequiredFieldValidator ID="RFVPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pedimento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ValidationGroup="GrpGuardar" ErrorMessage="Formato no valido, el formato correcto es 99-99-9999-9999999" ForeColor="Red"
|
||||
ValidationExpression="^[0-9 ]{2}-[0-9 ]{2}-[0-9 ]{4}-[0-9 ]{7}$" ></asp:RegularExpressionValidator>
|
||||
<asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ValidationGroup="GrpGuardar" ErrorMessage="Formato no valido, el formato correcto es 99--99--9999--9999999" ForeColor="Red"
|
||||
ValidationExpression="^[0-9 ]{2}--[0-9 ]{2}--[0-9 ]{4}--[0-9 ]{7}$" ></asp:RegularExpressionValidator>
|
||||
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="regexTxtPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
|
||||
@@ -95,17 +95,10 @@ Partial Class Compras_Importaciones
|
||||
DdlProveedores.txtValue.Value = ObjImportaciones.DtResultados.Rows(0)("CveAduanal").ToString
|
||||
DdlProveedores.txtText.Value = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
|
||||
|
||||
'HdnCveCompra.Value = ObjImportaciones.DtResultados.Rows(0)("CveCompra").ToString
|
||||
'LbCompraProveedor.Text = ObjImportaciones.DtResultados.Rows(0)("RazonSocial").ToString
|
||||
'HLCompraSerieFolio.Text = ObjImportaciones.DtResultados.Rows(0)("SerieFolio").ToString
|
||||
'HLCompraSerieFolio.NavigateUrl = $"/Compras/Compras.aspx?CveCompra={HdnCveCompra.Value}"
|
||||
'LbCompraImporte.Text = ObjImportaciones.DtResultados.Rows(0)("Total").ToString
|
||||
|
||||
If ObjImportaciones.DtResultados.Rows(0)("CveEstatus").ToString.ToEntero = 0 Then
|
||||
LnkCerrarImportacion.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
HdnCveAF.Value = ObjImportaciones.DtResultados.Rows(0)("CveActivoFijo").ToString
|
||||
VincularAF()
|
||||
|
||||
@@ -149,7 +142,7 @@ Partial Class Compras_Importaciones
|
||||
|
||||
Dim ObjImp As New ClsCompras
|
||||
ObjImp.IniciaTransacSQL()
|
||||
Dim ErrorImportacion = False
|
||||
Dim ErrorImportacion As Boolean = False
|
||||
|
||||
If CveImportacion < 0 Then
|
||||
CveImportacion = ObjImp.AddImportacion(Pedimento, TxtDescripcion.Text.Trim, DdlProveedores.SelectedValue.ToEntero, HdnCveAF.Value.ToEntero, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
@@ -197,7 +190,7 @@ Partial Class Compras_Importaciones
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjImp As New ClsCompras
|
||||
ObjImp.IniciaTransacSQL()
|
||||
Dim ErrorEliminar = False
|
||||
Dim ErrorEliminar As Boolean = False
|
||||
|
||||
For Each dr As DataRow In DtCompras.Rows
|
||||
If Not ObjImp.RemoveImportacionDetalle(dr("CveImportacionDetalle").ToString.ToEntero) Then
|
||||
@@ -265,7 +258,7 @@ Partial Class Compras_Importaciones
|
||||
|
||||
Protected Sub LnkEliminaCompraVinculada_Click(sender As Object, e As EventArgs)
|
||||
Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
Dim TieneError = False
|
||||
Dim TieneError As Boolean = False
|
||||
If CveImportacion > 0 AndAlso GvComprasVinculadas.Rows(gvRow.RowIndex).DataKey("CveImportacionCompra").ToEntero > 0 Then
|
||||
Dim ObjImportaciones As New ClsCompras
|
||||
|
||||
@@ -295,7 +288,7 @@ Partial Class Compras_Importaciones
|
||||
End If
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
Dim ErrorAgregar = False
|
||||
Dim ErrorAgregar As Boolean = False
|
||||
Dim RowCompra As DataRow = Nothing
|
||||
|
||||
If ObjCompras.GetCompras(HdnCveCompra.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
@@ -414,7 +407,7 @@ Partial Class Compras_Importaciones
|
||||
End If
|
||||
|
||||
Dim ObjCompras As New ClsCompras
|
||||
Dim ErrorAgregar = False
|
||||
Dim ErrorAgregar As Boolean = False
|
||||
Dim RowCompra As DataRow = Nothing
|
||||
|
||||
If ObjCompras.GetCompras(HdnCveCompraGasto.Value.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
@@ -471,7 +464,7 @@ Partial Class Compras_Importaciones
|
||||
|
||||
End Sub
|
||||
Private Sub GvDireccionesEnvio_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim TieneError = False
|
||||
Dim TieneError As Boolean = False
|
||||
If CveImportacion > 0 AndAlso GvDatos.Rows(e.RowIndex).DataKey("CveImportacionDetalle").ToEntero > 0 Then
|
||||
Dim ObjImportaciones As New ClsCompras
|
||||
|
||||
@@ -501,18 +494,12 @@ Partial Class Compras_Importaciones
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub LnkCerrarImportacion_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim ObjInv As New ClsInventarios
|
||||
|
||||
If ObjInv.UpdateImportacionCierre(CveImportacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
||||
Alert("Importación cerrada correctamente.", TipoMensaje.MsgInformacion, $" location.href = ""./Importaciones.aspx?CveImportacion={CveImportacion}"" ")
|
||||
End If
|
||||
|
||||
ObjInv.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -96,7 +96,7 @@ Partial Class PopUpVerFactura
|
||||
Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
|
||||
Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
|
||||
|
||||
Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
|
||||
Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
|
||||
|
||||
If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
|
||||
Context.Session("UsuarioSIG") = UsuarioToken
|
||||
@@ -319,7 +319,7 @@ Partial Class PopUpVerFactura
|
||||
cvePersonal = Request("cvePersonal").ToString.ToEntero()
|
||||
End If
|
||||
Dim RFCs As New StringBuilder
|
||||
Dim contador = 0
|
||||
Dim contador As Integer = 0
|
||||
Using objnom As New ClsNominas
|
||||
If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
|
||||
For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0")
|
||||
@@ -384,7 +384,7 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds2)
|
||||
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
|
||||
Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc"
|
||||
If EnviarCorrreo Then
|
||||
Dim para As String = ""
|
||||
Dim dtCorreos As DataTable = New DataTable()
|
||||
@@ -539,7 +539,7 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
|
||||
Dim rutardlc As String = "Formatos\Agro\EmbarqueManifiesto.rdlc"
|
||||
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
|
||||
rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
|
||||
End If
|
||||
@@ -849,7 +849,7 @@ Partial Class PopUpVerFactura
|
||||
lrds.Add(rds)
|
||||
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
||||
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
||||
Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
|
||||
Dim pdf As Byte() = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
|
||||
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
|
||||
@@ -915,9 +915,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
|
||||
Dim bcode As New BarcodeLib.Barcode()
|
||||
Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
||||
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
||||
Dim barcodebyte As Byte()
|
||||
Using ms = New MemoryStream()
|
||||
Using ms As New MemoryStream()
|
||||
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
||||
barcodebyte = ms.ToArray()
|
||||
End Using
|
||||
@@ -1023,9 +1023,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
|
||||
Dim bcode As New BarcodeLib.Barcode()
|
||||
Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
|
||||
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
|
||||
Dim barcodebyte As Byte()
|
||||
Using ms = New MemoryStream()
|
||||
Using ms As New MemoryStream()
|
||||
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
||||
barcodebyte = ms.ToArray()
|
||||
End Using
|
||||
@@ -1037,14 +1037,12 @@ Partial Class PopUpVerFactura
|
||||
rds2.Value = dtqr
|
||||
lrds.Add(rds2)
|
||||
'endimg
|
||||
|
||||
|
||||
Dim dtqr2 As DataTable = dtqr.Clone()
|
||||
|
||||
Dim bcode2 As New BarcodeLib.Barcode()
|
||||
Dim img2 = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
|
||||
Dim img2 As Drawing.Image = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
|
||||
Dim barcodebyte2 As Byte()
|
||||
Using ms = New MemoryStream()
|
||||
Using ms As New MemoryStream()
|
||||
img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
||||
barcodebyte2 = ms.ToArray()
|
||||
End Using
|
||||
@@ -1054,8 +1052,6 @@ Partial Class PopUpVerFactura
|
||||
Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2}
|
||||
lrds.Add(rds22)
|
||||
|
||||
|
||||
|
||||
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
||||
lrds.Add(rds)
|
||||
|
||||
@@ -1139,9 +1135,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
|
||||
Dim bcode As New BarcodeLib.Barcode()
|
||||
Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
||||
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
||||
Dim barcodebyte As Byte()
|
||||
Using ms = New MemoryStream()
|
||||
Using ms As New MemoryStream()
|
||||
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
||||
barcodebyte = ms.ToArray()
|
||||
End Using
|
||||
@@ -1173,8 +1169,8 @@ Partial Class PopUpVerFactura
|
||||
Dim ObjUsuarios As New ClsSisUsuarios
|
||||
If ObjUsuarios.GetUsuarios(CveUsuario) Then
|
||||
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
|
||||
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
||||
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
||||
Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
||||
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
||||
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
|
||||
UsuarioToken.CveEmpresa = CveEmpresa
|
||||
CreaObjetoEmpresa(UsuarioToken)
|
||||
@@ -1559,10 +1555,9 @@ Partial Class PopUpVerFactura
|
||||
Dim ObjPuntoVenta As New ClsPuntoVenta
|
||||
Dim DtCortesVentasResumen As DataTable = Nothing
|
||||
Dim DtCortesVentas As DataTable = Nothing
|
||||
Dim Fecha = "", Nombre = ""
|
||||
Dim Fecha As String = "", Nombre As String = ""
|
||||
If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
||||
DtCortesVentasResumen = ObjVenta.DtResultados
|
||||
|
||||
End If
|
||||
|
||||
If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
||||
@@ -1969,7 +1964,7 @@ Partial Class PopUpVerFactura
|
||||
XmlDoc.Load(PathXML)
|
||||
|
||||
Dim nodo As XmlNode = XmlDoc.DocumentElement
|
||||
Dim Version = ValorXML(nodo, "version")
|
||||
Dim Version As String = ValorXML(nodo, "version")
|
||||
|
||||
Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
|
||||
Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
|
||||
@@ -2124,7 +2119,7 @@ Partial Class PopUpVerFactura
|
||||
End Function
|
||||
|
||||
Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
|
||||
Dim resp = PreParaImpresionCartaPorte(CveTimbre)
|
||||
Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre)
|
||||
If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then
|
||||
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio)
|
||||
End If
|
||||
@@ -2262,7 +2257,7 @@ Partial Class PopUpVerFactura
|
||||
XMLDoc.Load(Path)
|
||||
Catch ex As Exception
|
||||
Try
|
||||
Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
|
||||
Dim oReader As New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
|
||||
XMLDoc.Load(oReader)
|
||||
oReader.Dispose()
|
||||
Catch ex2 As Exception
|
||||
@@ -2279,7 +2274,7 @@ Partial Class PopUpVerFactura
|
||||
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
|
||||
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
||||
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
||||
Dim Version = ValorXML(XMLDoc.DocumentElement, "version")
|
||||
Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version")
|
||||
If Version = "3.3" Then
|
||||
cfdVer = "http://www.sat.gob.mx/cfd/3"
|
||||
Else ' se considera que es la version 4.0
|
||||
@@ -2306,7 +2301,7 @@ Partial Class PopUpVerFactura
|
||||
If nodeCliente IsNot Nothing Then
|
||||
ClienteRFC = ValorXML(nodeCliente, "RFC")
|
||||
ClienteNombre = ValorXML(nodeCliente, "Nombre")
|
||||
Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
|
||||
Dim UsoCFDI As String = ValorXML(nodeCliente, "UsoCFDI")
|
||||
ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
|
||||
End If
|
||||
|
||||
@@ -2393,9 +2388,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces)
|
||||
If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
|
||||
Dim PesoNetoTotal = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
|
||||
Dim UnidadPeso = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
|
||||
Dim NumTotalMercancias = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "")
|
||||
Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
|
||||
Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
|
||||
Dim NumTotalMercancias As String = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "")
|
||||
|
||||
params.Add(New ReportParameter("PesoNetoTotal", PesoNetoTotal))
|
||||
params.Add(New ReportParameter("UnidadPeso", UnidadPeso))
|
||||
@@ -2425,14 +2420,14 @@ Partial Class PopUpVerFactura
|
||||
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
|
||||
Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
|
||||
|
||||
Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
|
||||
Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
|
||||
If nodeDomicilio IsNot Nothing Then
|
||||
|
||||
Dim Estado As String = ""
|
||||
Dim Municipio As String = ""
|
||||
Dim Colonia As String = ""
|
||||
Dim calle = ValorXML(nodeDomicilio, "Calle", "")
|
||||
Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")
|
||||
Dim calle As String = ValorXML(nodeDomicilio, "Calle", "")
|
||||
Dim CP As String = ValorXML(nodeDomicilio, "CodigoPostal", "")
|
||||
|
||||
Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("")
|
||||
If dr IsNot Nothing Then
|
||||
@@ -2451,7 +2446,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("DistanciaTotal", DistanciaTotal.ToString()))
|
||||
End If
|
||||
|
||||
Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
Dim nodeRelacion As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
|
||||
If nodeRelacion IsNot Nothing Then
|
||||
Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
|
||||
@@ -2476,17 +2471,16 @@ Partial Class PopUpVerFactura
|
||||
Relacion = "08 - Factura generada por pagos en parcialidades"
|
||||
Case "09"
|
||||
Relacion = "09 - Factura generada por pagos diferidos"
|
||||
|
||||
End Select
|
||||
|
||||
Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
For Each node As XmlNode In nodoDocumentosRealcionados
|
||||
Dim nodoDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
||||
For Each node As XmlNode In nodoDocumentosRelacionados
|
||||
|
||||
Dim nRow As DataRow = DTRelacionados.NewRow
|
||||
nRow("Relacion") = Relacion
|
||||
|
||||
Try
|
||||
Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
|
||||
Dim nodoUUID As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
|
||||
nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
|
||||
Catch ex As Exception
|
||||
nRow("UUID") = ""
|
||||
@@ -2726,7 +2720,7 @@ Partial Class PopUpVerFactura
|
||||
End Using
|
||||
|
||||
If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
|
||||
Dim ObjFactura = New Modelos.Factura
|
||||
Dim ObjFactura As New Modelos.Factura
|
||||
ObjFactura.Version = "3.3"
|
||||
ObjFactura.CveUsuario = UsuarioActual.CveUsuario
|
||||
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
|
||||
@@ -2936,12 +2930,12 @@ Partial Class PopUpVerFactura
|
||||
Dim PathArchivo As String = "" 'String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)
|
||||
|
||||
|
||||
Dim TmpDTImpuestos = New DataTable
|
||||
Dim TmpDTImpuestos As New DataTable
|
||||
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
|
||||
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
|
||||
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
|
||||
|
||||
Dim TmpDTImpuestosIVAIEPS = New DataTable
|
||||
Dim TmpDTImpuestosIVAIEPS As New DataTable
|
||||
TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
|
||||
TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
|
||||
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
|
||||
@@ -2964,7 +2958,7 @@ Partial Class PopUpVerFactura
|
||||
'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
|
||||
Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
|
||||
|
||||
Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
|
||||
Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
|
||||
|
||||
Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
||||
'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
||||
@@ -3078,7 +3072,7 @@ Partial Class PopUpVerFactura
|
||||
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
|
||||
If dtImpuesto.Rows.Count > 0 Then
|
||||
For Each Row As DataRow In dtImpuesto.Rows
|
||||
Dim Orden = 80
|
||||
Dim Orden As Integer = 80
|
||||
If Row("Importe").ToString.ToDouble <> 0 Then
|
||||
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
|
||||
DR("Importe") = Row("Importe").ToString.ToDouble
|
||||
@@ -3342,15 +3336,11 @@ Partial Class PopUpVerFactura
|
||||
Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1)
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
|
||||
|
||||
Dim CveConcepto As Integer = ObjInventarios.CveConcepto
|
||||
Dim Folio As String = ObjInventarios.Folio.ToString
|
||||
Dim CveCompra = ObjInventarios.CveCompra
|
||||
Dim CveCompra As Integer = ObjInventarios.CveCompra
|
||||
Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
|
||||
Dim FechaHora As DateTime = ObjInventarios.FechaHora
|
||||
Dim Almacen As String = ObjInventarios.Almacen
|
||||
@@ -3441,8 +3431,6 @@ Partial Class PopUpVerFactura
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Dim CantidadProductos As Decimal = 0
|
||||
Dim CantidadUsados As Decimal = 0
|
||||
|
||||
@@ -3533,12 +3521,7 @@ Partial Class PopUpVerFactura
|
||||
keys(0) = DtMovimientos.Columns("No")
|
||||
DtMovimientos.PrimaryKey = keys
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then
|
||||
@@ -4284,8 +4267,8 @@ Partial Class PopUpVerFactura
|
||||
Dim SBDireccionD As New StringBuilder()
|
||||
Dim CveCliente As Integer = 0
|
||||
Dim CveDireccionEnvio As Integer = 0
|
||||
Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
|
||||
Paqueteria = "", NumContrato = "", Guia = ""
|
||||
Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
|
||||
Paqueteria As String = "", NumContrato As String = "", Guia As String = ""
|
||||
|
||||
Dim CveContrato As Integer = 0
|
||||
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
||||
@@ -5451,7 +5434,7 @@ Partial Class PopUpVerFactura
|
||||
Private Sub GenerarPDFOS(CveOS As Integer)
|
||||
Dim ObjOS As New ClsOS()
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim CveFolio = ""
|
||||
Dim CveFolio As String = ""
|
||||
CreaDT()
|
||||
|
||||
Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
@@ -5718,7 +5701,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
||||
Dim SBDomicilioSucursal As New StringBuilder()
|
||||
Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
||||
Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
||||
|
||||
If DRSucursal IsNot Nothing Then
|
||||
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
|
||||
@@ -5868,21 +5851,21 @@ Partial Class PopUpVerFactura
|
||||
ObjVentas.Dispose()
|
||||
|
||||
If drv IsNot Nothing Then
|
||||
Dim Total = drv("Total").ToString().ToDecimal()
|
||||
Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero()
|
||||
Dim FolioFiscal = drv("FolioFiscal").ToString()
|
||||
Dim RFCReceptor = drv("RFCReceptor").ToString()
|
||||
Dim SelloCancelacion = drv("SelloCancelacion").ToString()
|
||||
Dim SelloSolicitudCancelacion = drv("SelloSolicitudCancelacion").ToString()
|
||||
Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
|
||||
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
|
||||
Dim Total As Decimal = drv("Total").ToString().ToDecimal()
|
||||
Dim CveEstatusFactura As Integer = drv("CveEstatusFactura").ToString().ToEntero()
|
||||
Dim FolioFiscal As String = drv("FolioFiscal").ToString()
|
||||
Dim RFCReceptor As String = drv("RFCReceptor").ToString()
|
||||
Dim SelloCancelacion As String = drv("SelloCancelacion").ToString()
|
||||
Dim SelloSolicitudCancelacion As String = drv("SelloSolicitudCancelacion").ToString()
|
||||
Dim EstadoCancelacion As String = drv("EstadoCancelacion").ToString()
|
||||
Dim FechaCancelacion As DateTime = drv("FechaCancelacion").ToString.ToDateTime
|
||||
|
||||
Dim MotivoCancelacion As String = ""
|
||||
Dim FolioSustitucion As String = ""
|
||||
|
||||
Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
|
||||
|
||||
Dim RFCEmisor = UsuarioActual.Empresa.RFC
|
||||
Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
|
||||
|
||||
Dim Titulo As String = "Acuse de cancelación de CFDI"
|
||||
Dim EstadoCFDI As String = "Cancelado"
|
||||
@@ -5908,9 +5891,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Using ObjV As New ClsVentas
|
||||
If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then
|
||||
Dim RowCancelacion = ObjV.DtResultados.FiltroPrimero("")
|
||||
Dim RowCancelacion As DataRow = ObjV.DtResultados.FiltroPrimero("")
|
||||
If RowCancelacion IsNot Nothing Then
|
||||
Dim CveMotivoCancelacion = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
|
||||
Dim CveMotivoCancelacion As Integer = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
|
||||
FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString()
|
||||
|
||||
If CveMotivoCancelacion > 0 Then
|
||||
@@ -5956,7 +5939,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("MsgError", ""))
|
||||
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
|
||||
|
||||
Dim DtAcuse = New DataTable("DtAcuse")
|
||||
Dim DtAcuse As New DataTable("DtAcuse")
|
||||
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
|
||||
DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
|
||||
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
|
||||
@@ -5964,7 +5947,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
If CveEstatusFactura = 20 Then
|
||||
|
||||
Dim RowCFDI = DtAcuse.NewRow()
|
||||
Dim RowCFDI As DataRow = DtAcuse.NewRow()
|
||||
|
||||
RowCFDI("FolioFiscal") = FolioFiscal
|
||||
RowCFDI("Estatus") = "Solicitud de cancelación recibida"
|
||||
@@ -6020,7 +6003,7 @@ Partial Class PopUpVerFactura
|
||||
#Region "I E C H E Q U E S"
|
||||
|
||||
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
|
||||
Dim CveTipoTransaccion = -1
|
||||
Dim CveTipoTransaccion As Integer = -1
|
||||
Dim ObjIE As New ClsBancos()
|
||||
ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa)
|
||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||
@@ -6029,13 +6012,13 @@ Partial Class PopUpVerFactura
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
If CveTipoTransaccion = 1 Then
|
||||
Dim Folio = ObjIE.Folio
|
||||
Dim Importe = ObjIE.Importe
|
||||
Dim Observacion = ObjIE.Observaciones
|
||||
Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
||||
Dim Beneficiario = ObjIE.PagueseA
|
||||
Dim Fecha = ObjIE.FechaDocumento.ToShortDateString
|
||||
Dim CveCuenta = ObjIE.CveCuenta
|
||||
Dim Folio As String = ObjIE.Folio
|
||||
Dim Importe As Double = ObjIE.Importe
|
||||
Dim Observacion As String = ObjIE.Observaciones
|
||||
Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
||||
Dim Beneficiario As String = ObjIE.PagueseA
|
||||
Dim Fecha As String = ObjIE.FechaDocumento.ToShortDateString
|
||||
Dim CveCuenta As Integer = ObjIE.CveCuenta
|
||||
params.Add(New ReportParameter("Fecha", Fecha))
|
||||
params.Add(New ReportParameter("Folio", Folio))
|
||||
params.Add(New ReportParameter("Beneficiario", Beneficiario))
|
||||
@@ -6044,11 +6027,8 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Observaciones", Observacion))
|
||||
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
|
||||
Dim InicialesUsuarioGenero As String = ""
|
||||
|
||||
Try
|
||||
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
|
||||
If NombreUsuarioRenero.Trim.Length > 0 Then
|
||||
@@ -6057,7 +6037,6 @@ Partial Class PopUpVerFactura
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
|
||||
|
||||
End If
|
||||
@@ -6082,7 +6061,7 @@ Partial Class PopUpVerFactura
|
||||
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
|
||||
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
|
||||
|
||||
Dim Dr = DtMovimientosPoliza.NewRow
|
||||
Dim Dr As DataRow = DtMovimientosPoliza.NewRow
|
||||
Dr("CODIGO") = ""
|
||||
Dr("Cuenta") = ""
|
||||
Dr("Cargo") = 0
|
||||
@@ -6101,7 +6080,7 @@ Partial Class PopUpVerFactura
|
||||
If ObjIE.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
For Each drt As DataRow In ObjIE.DtResultados.Rows
|
||||
Dim Dr = DtMovimientosPoliza.NewRow
|
||||
Dim Dr As DataRow = DtMovimientosPoliza.NewRow
|
||||
Dr("CODIGO") = drt("CuentaCodigo")
|
||||
Dr("Cuenta") = drt("CuentaNombre")
|
||||
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
|
||||
@@ -6389,7 +6368,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
End If
|
||||
|
||||
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
||||
Dim rds As New ReportDataSource("DataSet1", dtMovs)
|
||||
reportDataSetsList.Add(rds)
|
||||
|
||||
Dim dtnc As New DataTable
|
||||
@@ -6398,7 +6377,7 @@ Partial Class PopUpVerFactura
|
||||
dtnc = ObjCompra.DtResultados
|
||||
End If
|
||||
ObjCompra.Dispose()
|
||||
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
||||
Dim rds2 As New ReportDataSource("DataSet2", dtnc)
|
||||
reportDataSetsList.Add(rds2)
|
||||
dtnc.Dispose()
|
||||
|
||||
@@ -6538,7 +6517,7 @@ Partial Class PopUpVerFactura
|
||||
Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
|
||||
PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
|
||||
If Modalidad = "Individual" Then
|
||||
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
|
||||
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
||||
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
||||
@@ -6547,7 +6526,7 @@ Partial Class PopUpVerFactura
|
||||
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
||||
|
||||
For i As Integer = 0 To Cant
|
||||
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
|
||||
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
||||
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
||||
@@ -6586,7 +6565,7 @@ Partial Class PopUpVerFactura
|
||||
Dim Lote As String = DetalleRow.Item("Lote").ToString
|
||||
Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
|
||||
If Modalidad = "Individual" Then
|
||||
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
|
||||
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
||||
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
||||
@@ -6595,7 +6574,7 @@ Partial Class PopUpVerFactura
|
||||
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
||||
|
||||
For i As Integer = 0 To Cant
|
||||
Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
||||
|
||||
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
||||
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
||||
@@ -6716,7 +6695,7 @@ Partial Class PopUpVerFactura
|
||||
ObjPS.Dispose()
|
||||
|
||||
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim DtDatos As New DataTable
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
@@ -6956,7 +6935,7 @@ Partial Class PopUpVerFactura
|
||||
Dim CveMonedaImp As Integer
|
||||
Dim TipoPolImp As String
|
||||
Dim RutaReporte As String
|
||||
Dim params = New List(Of ReportParameter)
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
||||
CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
|
||||
|
||||
@@ -1338,7 +1338,7 @@ Partial Class Compras_Proveedores
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(273) Then
|
||||
If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
|
||||
Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
|
||||
Dim Parametros As String = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
|
||||
e.Row.FCHyperLink("HLDevolverDinero").Visible = True
|
||||
e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
|
||||
End If
|
||||
@@ -1452,8 +1452,8 @@ Partial Class Compras_Proveedores
|
||||
Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
|
||||
|
||||
'CARGA LO YA SELECCIONADO
|
||||
Dim CveSeleccionado = -1
|
||||
Dim Seleccionado = ""
|
||||
Dim CveSeleccionado As Integer = -1
|
||||
Dim Seleccionado As String = ""
|
||||
Seleccionado = Ddl.SelectedItem.Text
|
||||
CveSeleccionado = Ddl.SelectedValue.ToEntero
|
||||
|
||||
@@ -1544,7 +1544,7 @@ Partial Class Compras_Proveedores
|
||||
Dim tIdContaProveedor As Integer
|
||||
Dim CuentaAbono As Integer
|
||||
|
||||
Dim ErrorBancos = False
|
||||
Dim ErrorBancos As Boolean = False
|
||||
Dim ErrorConta As Boolean = False
|
||||
Dim ErrorContactos As Boolean = False
|
||||
Dim ErrorSucursales As Boolean = False
|
||||
@@ -1645,7 +1645,7 @@ Partial Class Compras_Proveedores
|
||||
If IdCuentaContable > 0 Then
|
||||
|
||||
ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
|
||||
Dim dt = ObjContaAC.DtResultados
|
||||
Dim dt As DataTable = ObjContaAC.DtResultados
|
||||
Dim CtaCodigo As String
|
||||
|
||||
If dt.Rows.Count = 1 Then
|
||||
@@ -1836,7 +1836,7 @@ Partial Class Compras_Proveedores
|
||||
Dim CreoCuenta As Boolean = False
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
|
||||
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
|
||||
If drCuenta IsNot Nothing Then
|
||||
CuentaAbono = drCuenta("Id").ToString.ToEntero
|
||||
@@ -2962,8 +2962,8 @@ Partial Class Compras_Proveedores
|
||||
|
||||
If Adjunto.Trim.Length > 0 Then
|
||||
|
||||
Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
|
||||
Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
|
||||
Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
|
||||
Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
|
||||
|
||||
If File.Exists(linkDescargaArchivo) Then
|
||||
ImgDownLoad.Visible = True
|
||||
@@ -3378,7 +3378,7 @@ Partial Class Compras_Proveedores
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If CveProveedor < 0 Then
|
||||
For Index = 1 To TempDTCuentasBancos.Rows.Count
|
||||
For Index As Integer = 1 To TempDTCuentasBancos.Rows.Count
|
||||
TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index
|
||||
Next
|
||||
TempDTCuentasBancos.AcceptChanges()
|
||||
@@ -3455,7 +3455,7 @@ Partial Class Compras_Proveedores
|
||||
Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
|
||||
End If
|
||||
Else
|
||||
Dim index = GvRow.RowIndex
|
||||
Dim index As Integer = GvRow.RowIndex
|
||||
TempDTCuentasBancos.Rows.RemoveAt(index)
|
||||
Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
@@ -3626,7 +3626,7 @@ Partial Class Compras_Proveedores
|
||||
'Dim DtMonedas As New DataTable
|
||||
'DtMonedas.Columns.Add("CveMoneda", GetType(Integer))
|
||||
'DtMonedas.Columns.Add("Abreviatura", GetType(String))
|
||||
Dim OcupaFiltro = False
|
||||
Dim OcupaFiltro As Boolean = False
|
||||
|
||||
If CType(GVHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GVHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
|
||||
OcupaFiltro = True
|
||||
@@ -3717,10 +3717,10 @@ Partial Class Compras_Proveedores
|
||||
Dim DTCxPTempral As DataTable = Nothing
|
||||
|
||||
'OBTENEMOS LOS DATOS
|
||||
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
|
||||
Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
|
||||
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
|
||||
Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
|
||||
|
||||
Dim ObjMovtos As New ClsMovimientos()
|
||||
If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then
|
||||
@@ -3729,7 +3729,7 @@ Partial Class Compras_Proveedores
|
||||
|
||||
If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = DTCxPTempral.Rows(0)
|
||||
Dim lista = New List(Of CrystalParametro)
|
||||
Dim lista As New List(Of CrystalParametro)
|
||||
|
||||
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
|
||||
@@ -4052,10 +4052,10 @@ Partial Class Compras_Proveedores
|
||||
If rblreporte.SelectedValue = "cxp" Then
|
||||
|
||||
'OBTENEMOS LOS DATOS
|
||||
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
|
||||
Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
|
||||
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
|
||||
Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
|
||||
|
||||
Dim FechaIn As String = $" <b>Fecha Inicio:</b> {TxtFechaInicioCXP.Text}"
|
||||
Dim FechaFn As String = $" <b>Fecha Fin:</b> {TxtFechaFinCXP.Text}"
|
||||
@@ -4105,8 +4105,8 @@ Partial Class Compras_Proveedores
|
||||
|
||||
'OBTENEMOS LOS DATOS
|
||||
Dim DtANC As DataTable
|
||||
Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
|
||||
Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
|
||||
Dim CveProveedorSucursal As Integer = RBSucursal.SelectedValue.ToEntero()
|
||||
If ObjMovtos.GetAnticiposProveedor(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), CveMoneda, -1, FI, FF) Then
|
||||
DtANC = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, FechaVencimiento"))
|
||||
|
||||
@@ -787,16 +787,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
Next
|
||||
|
||||
If MsgError = "" And UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
|
||||
If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaPago, UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo simplificar los movimientos"
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then
|
||||
MsgError = "No se pudo simplificar los movimientos"
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1, AutoConta:=AutoConta) Then
|
||||
@@ -888,14 +878,6 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
|
||||
'Simplificacion de PrePolizas
|
||||
If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
|
||||
If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaNueva, UsuarioActual.CveEmpresa) Then
|
||||
Retorno = "No se pudo simplificar los movimientos"
|
||||
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Reference in New Issue
Block a user