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:
JPerez
2025-07-02 12:53:29 -07:00
parent 6d105e34af 7f629642d4
commit 6e3e055cd1
12 changed files with 503 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
App_Code/ClsExportaciones.vb
View File

@@ -120,12 +120,13 @@ Public Class ClsExportaciones
End Sub
#Region "EXPORTACIONES"
Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean
Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Integer = 1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Exp_ExportacionesRep")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveExportacion", SqlDbType.Int).Value = CveExportacion
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@EsExportacion", SqlDbType.Bit).Value = EsExportacion
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
End With
@@ -142,7 +143,7 @@ Public Class ClsExportaciones
CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer,
CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String,
CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer,
CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Integer
CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Exp_ExportacionesAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -174,6 +175,8 @@ Public Class ClsExportaciones
.Add("@Notas", SqlDbType.VarChar).Value = Notas
.Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento
.Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero
.Add("@ITN", SqlDbType.VarChar).Value = ITN
.Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion
.Add("@CveExportacion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -191,7 +194,7 @@ Public Class ClsExportaciones
CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer,
CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String,
CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer,
CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Boolean
CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Exp_ExportacionesUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -224,6 +227,8 @@ Public Class ClsExportaciones
.Add("@Notas", SqlDbType.VarChar).Value = Notas
.Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento
.Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero
.Add("@ITN", SqlDbType.VarChar).Value = ITN
.Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion
End With
Try
SqlAdapter.Fill(Data)

8
App_Code/ClsPaginas.vb
View File

@@ -10591,7 +10591,7 @@ Public Class ClsPaginas
PaginaDict.Add("/CxC/RepCxCPeriodo.aspx".ToUpper(), 887)
#End Region
#Region "Exportaciones"
PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
'PaginaDict.Add("/Export/RepExportaciones.aspx".ToUpper(), 77)
PaginaDict.Add("/Export/ExpDetalle.aspx".ToUpper(), 77)
#End Region
#Region "Finanzas"
@@ -11362,6 +11362,12 @@ Public Class ClsPaginas
Case Else : Retorno = 9
End Select
End If
If Pagina.ToUpper() = ("/Export/RepExportaciones.aspx").ToUpper() Then
Select Case Request("Opcion")
Case "I" : Retorno = 85
Case Else : Retorno = 77
End Select
End If
Return Retorno
End Function
#End Region

2
Compras/Compras.aspx
View File

@@ -5042,7 +5042,7 @@
<asp:BoundField HeaderText="Producto" DataField="CodigoPS" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
<asp:TemplateField HeaderText="P.U." ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">
<ItemTemplate>
<asp:Textbox ID="TxtPU" Width="60px" Text='<%# Eval("PU", "{0:N2}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
<asp:Textbox ID="TxtPU" Width="60px" Text='<%# Eval("PU", "{0:N5}") %>' CssClass="textaslabel" runat="server"></asp:Textbox>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Total" ItemStyle-HorizontalAlign="Right" FooterStyle-HorizontalAlign="Right" ItemStyle-Width="7.5%">

3
Compras/Compras.aspx.vb
View File

@@ -15524,6 +15524,9 @@ Partial Class Compras_Compras
End If
End If
Dim ivaPorcentaje As Decimal = DTOCGV.MAX("IVAPorcentaje").ToDecimal
Dim IVAPorcentajeTmp As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
If DTOCGV.MAX("IVAPorcentaje").ToDecimal <> TmpDT.MAX("IVAPorcentaje").ToDecimal Then
Alert("La orden de compra(s) tiene diferentes tasa de IVA.", TipoMensaje.MsgAdvertencia)
End If

10
Compras/Proveedores.aspx.vb
View File

@@ -5890,7 +5890,14 @@ Partial Class Compras_Proveedores
Private Sub CargaTipoTransaccion()
If GlobalDTDIOTTipoOperacion IsNot Nothing AndAlso GlobalDTDIOTTipoOperacion.Rows.Count = 0 Then
GlobalDTDIOTTipoOperacion = Nothing
End If
Dim Filtro As String = ""
Select Case DDlDIOTTipoTercero.SelectedValue
Case "1"
Filtro = "AplicaProvNacional = 1"
@@ -5900,8 +5907,11 @@ Partial Class Compras_Proveedores
Filtro = "AplicaProvGlobal = 1"
End Select
GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
DdlDIOTTipoOperacion.DataBind()
End Sub

1
Contabilidad/DiarioPagos.aspx
View File

@@ -695,6 +695,7 @@
<asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
<asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
<asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
<asp:HiddenField ID="HdnCveMonedaCompra" runat="server" Value='<%# Eval("CveMonedaCompra")%>' />
<table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
<tr class="SubTotales">

144
Export/ExpDetalle.aspx
View File

@@ -174,6 +174,13 @@
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlCon" Width="100%" data-metodo="getproveedores" UsaWebService="true" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-4" Text="ITN:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 300px;">
<asp:TextBox ID="TxtITN" runat="server" CssClass="form-control input-sm" MaxLength="15" Width="100%" Text=""></asp:TextBox>
<label for="<%= TxtITN.ClientID.ToString()%>"></label>
</div>
</div>
</div>
</div>
</div>
@@ -210,6 +217,13 @@
<ajax:ValidatorCalloutExtender ID="VCEDirCon" runat="server" HighlightCssClass="vco" TargetControlID="RFVDirCon" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-4" Text="Vinculación:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 300px;">
<asp:CheckBox ID="CkbVinculacion" runat="server"/>
<label for="<%= CkbVinculacion.ClientID.ToString()%>"></label>
</div>
</div>
</div>
</div>
</div>
@@ -436,72 +450,72 @@
<div class="form-group row" style="width: 100%;">
<div class="col-md-6">
<div class="whitoutcol" style="width: 100%;">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Incrementables</span>
</div>
<div class="actions">
<div class="btn-group">
<div class="portlet light xspadding bordered">
<div class="portlet-title">
<div class="caption font-green">
<i class="icon-pin font-green"></i>
<span class="caption-subject bold uppercase">Incrementables</span>
</div>
<div class="actions">
<div class="btn-group">
</div>
</div>
</div>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-left:8px">
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Transp.:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-6" style="width: 100%;">
<asp:TextBox ID="TxtIncFletes" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncFletes" runat="server" TargetControlID="TxtIncFletes" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncFletes.ClientID.ToString()%>"></label>
<div class="tools">
<a href="javascript:;" class="collapse"></a>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Seguros:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:TextBox ID="TxtIncSeguro" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncSeguro" runat="server" TargetControlID="TxtIncSeguro" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncSeguro.ClientID.ToString()%>"></label>
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-left:8px">
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Transp.:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtIncFletes" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncFletes" runat="server" TargetControlID="TxtIncFletes" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncFletes.ClientID.ToString()%>"></label>
</div>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Embalaje:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:TextBox ID="TxtIncEmbalajes" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncEmbalajes" runat="server" TargetControlID="TxtIncEmbalajes" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncEmbalajes.ClientID.ToString()%>"></label>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Seguros:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtIncSeguro" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncSeguro" runat="server" TargetControlID="TxtIncSeguro" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncSeguro.ClientID.ToString()%>"></label>
</div>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Costo Envases:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:TextBox ID="TxtIncEmbalaje" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncEmbalaje" runat="server" TargetControlID="TxtIncEmbalaje" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncEmbalaje.ClientID.ToString()%>"></label>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Embalaje:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtIncEmbalajes" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncEmbalajes" runat="server" TargetControlID="TxtIncEmbalajes" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncEmbalajes.ClientID.ToString()%>"></label>
</div>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Conexos:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:TextBox ID="TxtIncConexos" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncConexos" runat="server" TargetControlID="TxtIncConexos" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncConexos.ClientID.ToString()%>"></label>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Costo Envases:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtIncEmbalaje" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncEmbalaje" runat="server" TargetControlID="TxtIncEmbalaje" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncEmbalaje.ClientID.ToString()%>"></label>
</div>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Total:"></asp:Label>
<div class="whitoutcol whitoutcol" style="width: 100%;">
<asp:TextBox ID="TxtTotalInc" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text="" ReadOnly="true" Enabled="false"></asp:TextBox>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Conexos:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtIncConexos" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEIncConexos" runat="server" TargetControlID="TxtIncConexos" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtIncConexos.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-5" Text="Total:"></asp:Label>
<div class="whitoutcol whitoutcol col-md-6">
<asp:TextBox ID="TxtTotalInc" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text="" ReadOnly="true" Enabled="false"></asp:TextBox>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<div class="col-md-6">
<div class="whitoutcol" style="width: 100%;">
<div class="portlet light xspadding bordered">
@@ -521,48 +535,48 @@
</div>
<div class="portlet-body form-horizontal form-row-sepe formnombottom" style="padding-left:8px">
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Transp.:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Transp.:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtDecFlete" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEDecFlete" runat="server" TargetControlID="TxtDecFlete" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtDecFlete.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Seguros:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Seguros:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtDecSeguro" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEDecSeguro" runat="server" TargetControlID="TxtDecSeguro" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtDecSeguro.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Carga:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Carga:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtDecCarga" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEDecCarga" runat="server" TargetControlID="TxtDecCarga" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtDecCarga.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Gastos Descarga:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Gastos Descarga:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtDecDescarga" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEDecDescarga" runat="server" TargetControlID="TxtDecDescarga" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtDecDescarga.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Otros Gastos:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-6" Text="Otros Gastos:"></asp:Label>
<div class="form-group form-md-line-input linewhitsize col-md-5">
<asp:TextBox ID="TxtDecOtros" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text=""></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="FTEDecOtros" runat="server" TargetControlID="TxtDecOtros" FilterType="Custom, Numbers" ValidChars="." />
<label for="<%= TxtDecOtros.ClientID.ToString()%>"></label>
</div>
</div>
<div class="form-group row" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-3" Text="Total:"></asp:Label>
<div class="whitoutcol whitoutcol" style="width: 100%;">
<asp:Label runat="server" CssClass="col-sm-5" Text="Total:"></asp:Label>
<div class="whitoutcol whitoutcol col-md-6">
<asp:TextBox ID="TxtTotalDec" runat="server" CssClass="form-control input-sm" MaxLength="300" Width="100%" Text="" ReadOnly="true" Enabled="false"></asp:TextBox>
</div>
</div>

227
Export/ExpDetalle.aspx.cs
View File

@@ -1,9 +1,10 @@
using ADSNetLibrary.Helpers;
using CrystalDecisions.ReportAppServer.DataDefModel;
//using DocumentFormat.OpenXml.Wordprocessing;
using Extensiones;
using HigLabo.Core;
using iText.IO.Font.Otf;
using Microsoft.Reporting.WebForms;
using Profact.TimbraCFDI;
using Profact.TimbraCFDI.Complementos.ComercioExterior10;
using StackExchange.Redis;
@@ -13,6 +14,7 @@ using System.Activities.Expressions;
using System.Activities.Statements;
using System.Collections.Generic;
using System.Data;
using System.Globalization;
using System.IO;
using System.Linq;
using System.Web;
@@ -122,12 +124,12 @@ public partial class Export_ExpDetalle : ClsPaginas
{
LblExp.Text = DTExportaciones.FiltroPrimeroValor("CveExportacion");
string CveVenta = Exportaciones.DtResultados.FiltroPrimeroValor("CveVenta");
string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta");
if (CveVenta != "" && CveVenta != "-1")
{
if (DdlVentas.Items.FindByValue(CveVenta) == null)
{
string Folio = Exportaciones.DtResultados.FiltroPrimeroValor("SerieFolio");
string Folio = DTExportaciones.FiltroPrimeroValor("SerieFolio");
DdlVentas.Items.Insert(1, new ListItem(Folio, CveVenta));
}
DdlVentas.SelectedValue = CveVenta;
@@ -148,8 +150,10 @@ public partial class Export_ExpDetalle : ClsPaginas
DdlExp.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteExportador");
DdlImp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveClienteImportador");
DdlImp.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
TxtITN.Text = DTExportaciones.FiltroPrimeroValor("ITN");
DdlCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveClienteConsignatario");
DdlCon.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario");
CkbVinculacion.Checked = ModExtensiones.ToBool(DTExportaciones.FiltroPrimeroValor("Vinculacion"));
DdlAgenteMex.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgente");
DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero");
@@ -172,16 +176,16 @@ public partial class Export_ExpDetalle : ClsPaginas
DataTable DTGastos = Gastos.DtResultados;
if (DTGastos.Rows.Count > 0)
{
TxtIncFletes.Text = DTGastos.FiltroPrimeroValor("IncFletes");
TxtIncSeguro.Text = DTGastos.FiltroPrimeroValor("IncSeguro");
TxtIncEmbalajes.Text = DTGastos.FiltroPrimeroValor("IncEmbalajes");
TxtIncEmbalaje.Text = DTGastos.FiltroPrimeroValor("IncEmbalaje");
TxtIncConexos.Text = DTGastos.FiltroPrimeroValor("IncConexos");
TxtDecFlete.Text = DTGastos.FiltroPrimeroValor("DecFlete");
TxtDecSeguro.Text = DTGastos.FiltroPrimeroValor("DecSeguro");
TxtDecCarga.Text = DTGastos.FiltroPrimeroValor("DecCarga");
TxtDecDescarga.Text = DTGastos.FiltroPrimeroValor("DecDescarga");
TxtDecOtros.Text = DTGastos.FiltroPrimeroValor("DecOtros");
TxtIncFletes.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncFletes")).ToString("#,###.####");
TxtIncSeguro.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncSeguro")).ToString("#,###.####");
TxtIncEmbalajes.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalajes")).ToString("#,###.####");
TxtIncEmbalaje.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalaje")).ToString("#,###.####");
TxtIncConexos.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncConexos")).ToString("#,###.####");
TxtDecFlete.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecFlete")).ToString("#,###.####");
TxtDecSeguro.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecSeguro")).ToString("#,###.####");
TxtDecCarga.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecCarga")).ToString("#,###.####");
TxtDecDescarga.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecDescarga")).ToString("#,###.####");
TxtDecOtros.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecOtros")).ToString("#,###.####");
}
}
Gastos.Dispose();
@@ -327,6 +331,7 @@ public partial class Export_ExpDetalle : ClsPaginas
return;
}
string ITN = TxtITN.Text;
string NumeroPedimento = TxtNumPed.Text;
DateTime FechaPedimento = TxtFechaPedim.Text.ToDate();
int CveVenta = DdlVentas.Text.ToEntero();
@@ -348,6 +353,7 @@ public partial class Export_ExpDetalle : ClsPaginas
int CveUsuario = UsuarioActual.CveUsuario;
int CveDirExportador = DdlDirExp.Text.ToEntero();
int CveDirConsignatario = DdlDirCon.Text.ToEntero();
bool Vinculacion = CkbVinculacion.Checked;
int CveIncoterm = DdlIncoterm.Text.ToEntero();
string Notas = TxtNotas.Text;
int CvePedimento = DdlClavePedimento.Text.ToEntero();
@@ -396,7 +402,9 @@ public partial class Export_ExpDetalle : ClsPaginas
CveIncoterm,
Notas,
CvePedimento,
CveAgenteExtranjero
CveAgenteExtranjero,
ITN,
Vinculacion
);
if (ExportacionGuardada != -1)
{
@@ -470,7 +478,9 @@ public partial class Export_ExpDetalle : ClsPaginas
CveIncoterm,
Notas,
CvePedimento,
CveAgenteExtranjero
CveAgenteExtranjero,
ITN,
Vinculacion
);
if (Continuar)
{
@@ -899,9 +909,192 @@ public partial class Export_ExpDetalle : ClsPaginas
UpPSS.Update();
}
protected void ImprimirReporte(string Formato = "PDF")
protected void ImprimirReporte()
{
FileInfo Archivo = new FileInfo(string.Format("{0}Empresas/Grales/Formatos/FacturaImportacion.mrt", UsuarioActual.Empresa.Ruta));
//FileInfo Archivo = new FileInfo(string.Format("{0}Empresas/Grales/Formatos/FacturaImportacion.mrt", UsuarioActual.Empresa.Ruta));
int CveEmpresa = UsuarioActual.CveEmpresa;
DataTable DTExportaciones = new DataTable();
ClsExportaciones Exportaciones = new ClsExportaciones();
if (Exportaciones.GetExportacion(CveExportacion, CveEmpresa))
{
DTExportaciones = Exportaciones.DtResultados;
if (DTExportaciones.Rows.Count > 0)
{
DataRow RowExp = DTExportaciones.Rows[0];
string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador");
string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador");
string ClienteImortador = DTExportaciones.FiltroPrimeroValor("ClienteImportador");
string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp");
string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio");
string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento");
string ITN = DTExportaciones.FiltroPrimeroValor("ITN");
string Vinculacion = DTExportaciones.FiltroPrimeroValor("Vinculacion") == "True" ? "SI" : "NO";
string FechaFact = "";
string NumSemana = "";
if (RowExp["FechaFact"] != DBNull.Value)
{
DateTime fechaf = Convert.ToDateTime(RowExp["FechaFact"]);
FechaFact = fechaf.ToString("dd/MM/yyyy");
CultureInfo cultura = CultureInfo.CurrentCulture;
System.Globalization.Calendar calendario = cultura.Calendar;
int numeroSemana = calendario.GetWeekOfYear(
fechaf,
cultura.DateTimeFormat.CalendarWeekRule,
cultura.DateTimeFormat.FirstDayOfWeek
);
NumSemana = numeroSemana.ToString();
}
string TipoCambio = ModExtensiones.ToDecimal(DTExportaciones.FiltroPrimeroValor("TipoCambio")).ToString("#,###.####");
string MedioTransporte = DTExportaciones.FiltroPrimeroValor("MedioTransporte");
string TipoContenedor = DTExportaciones.FiltroPrimeroValor("TipoContenedor");
string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario");
string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario");
string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon");
decimal IncFletes = 0.00m;
decimal IncSeguro = 0.00m;
decimal IncEmbalajes = 0.00m;
decimal IncEmbalaje = 0.00m;
decimal IncConexos = 0.00m;
decimal DecFlete = 0.00m;
decimal DecSeguro = 0.00m;
decimal DecCarga = 0.00m;
decimal DecDescarga = 0.00m;
decimal DecOtros = 0.00m;
decimal TotalInc = 0.00m;
decimal TotalDec = 0.00m;
string ContenedorPlaca = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca");
string Proveedor = DTExportaciones.FiltroPrimeroValor("Proveedor");
string SCAC = DTExportaciones.FiltroPrimeroValor("SCAC");
string CAAT = DTExportaciones.FiltroPrimeroValor("CAAT");
string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion");
ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : "";
string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm");
string Patente = DTExportaciones.FiltroPrimeroValor("Patente");
string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt");
string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId");
List <ReportParameter> para = new List<ReportParameter>();
para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString()));
para.Add(new ReportParameter("ClienteExportador", ClienteExportador));
para.Add(new ReportParameter("DirExportador", DirExportador));
para.Add(new ReportParameter("ClienteImportador", ClienteImortador));
para.Add(new ReportParameter("RFCImp", RFCImp));
para.Add(new ReportParameter("NumFactura", NumFactura));
para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento));
para.Add(new ReportParameter("ITN", ITN));
para.Add(new ReportParameter("Vinculacion", Vinculacion));
para.Add(new ReportParameter("FechaFact", FechaFact));
para.Add(new ReportParameter("NumSemana", NumSemana));
para.Add(new ReportParameter("TipoCambio", TipoCambio));
para.Add(new ReportParameter("MedioTransporte", MedioTransporte));
para.Add(new ReportParameter("TipoContenedor", TipoContenedor));
para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario));
para.Add(new ReportParameter("DirConsignatario", DirConsignatario));
para.Add(new ReportParameter("RFCCon", RFCCon));
ClsExportaciones Gastos = new ClsExportaciones();
if (Gastos.GetGastos(CveExportacion))
{
DataTable DTGastos = Gastos.DtResultados;
if (DTGastos.Rows.Count > 0)
{
IncFletes = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncFletes"));
IncSeguro = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncSeguro"));
IncEmbalajes = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalajes"));
IncEmbalaje = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalaje"));
IncConexos = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncConexos"));
DecFlete = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecFlete"));
DecSeguro = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecSeguro"));
DecCarga = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecCarga"));
DecDescarga = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecDescarga"));
DecOtros = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecOtros"));
TotalInc = IncFletes + IncSeguro + IncEmbalajes + IncEmbalaje + IncConexos;
TotalDec = DecFlete + DecSeguro + DecCarga + DecDescarga + DecOtros;
}
}
Gastos.Dispose();
para.Add(new ReportParameter("IncFletes", IncFletes.ToString("#,###.####")));
para.Add(new ReportParameter("IncSeguro", IncSeguro.ToString("#,###.####")));
para.Add(new ReportParameter("IncEmbalajes", IncEmbalajes.ToString("#,###.####")));
para.Add(new ReportParameter("IncEmbalaje", IncEmbalaje.ToString("#,###.####")));
para.Add(new ReportParameter("IncConexos", IncConexos.ToString("#,###.####")));
para.Add(new ReportParameter("TotalInc", TotalInc.ToString("#,###.####")));
para.Add(new ReportParameter("DecFlete", DecFlete.ToString("#,###.####")));
para.Add(new ReportParameter("DecSeguro", DecSeguro.ToString("#,###.####")));
para.Add(new ReportParameter("DecCarga", DecCarga.ToString("#,###.####")));
para.Add(new ReportParameter("DecDescarga", DecDescarga.ToString("#,###.####")));
para.Add(new ReportParameter("DecOtros", DecOtros.ToString("#,###.####")));
para.Add(new ReportParameter("TotalDec", TotalDec.ToString("#,###.####")));
para.Add(new ReportParameter("ContenedorPlaca", ContenedorPlaca));
para.Add(new ReportParameter("Proveedor", Proveedor));
para.Add(new ReportParameter("SCAC", SCAC));
para.Add(new ReportParameter("CAAT", CAAT));
para.Add(new ReportParameter("ClaveAduana", ClaveAduana));
para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm));
para.Add(new ReportParameter("Patente", Patente));
para.Add(new ReportParameter("AgenteExt", AgenteExt));
para.Add(new ReportParameter("TaxId", TaxId));
List <ReportDataSource> lrds = new List<ReportDataSource>();
ReportDataSource RDSExportaciones = new ReportDataSource();
RDSExportaciones.Name = "DsExportaciones";
RDSExportaciones.Value = DTExportaciones;
lrds.Add(RDSExportaciones);
DataTable DTPartidas = new DataTable();
ClsExportaciones Partidas = new ClsExportaciones();
if (Partidas.GetPartidas(UsuarioActual.CveEmpresa, CveExportacion))
{
DTPartidas = Partidas.DtResultados;
if (DTPartidas.Rows.Count > 0)
{
DTPartidas.Columns.Add("ValorUnitarioUSD", typeof(decimal));
DTPartidas.Columns.Add("ValorUnitarioMN", typeof(decimal));
DTPartidas.Columns["ValorUnitarioUSD"].DefaultValue = 0.0m;
DTPartidas.Columns["ValorUnitarioMN"].DefaultValue = 0.0m;
DataRow RowPartida = DTPartidas.Rows[0];
decimal cantidad = Convert.ToDecimal(RowPartida["Cantidad"]);
if (cantidad > 0)
{
RowPartida["ValorUnitarioUSD"] = Convert.ToDecimal(RowPartida["Precio"]) / cantidad;
RowPartida["ValorUnitarioMN"] = Convert.ToDecimal(RowPartida["ValorTotalMXP"]) / cantidad;
}
ReportDataSource RDSPartidas = new ReportDataSource();
RDSPartidas.Name = "DsPartidas";
RDSPartidas.Value = DTPartidas;
lrds.Add(RDSPartidas);
}
}
string NombreArchivo = $"Exportacion_{CveExportacion}";
string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta"); ;
if (CveVenta != "" && CveVenta != "-1")
{
NombreArchivo = NumFactura;
}
string Formato = "FormatoExportacion.mrt";
para.Add(new ReportParameter("Formato", "PDF"));
string Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\{UsuarioActual.CveEmpresa}\Formatos\{Formato}";
var bytes = StreamBytesStimul("Facturas", Ruta, lrds, para, NombreArchivo: NombreArchivo, Formato: "PDF", NombreDataSource: "Datos");
string Extension = "pdf";
ImprimirbytesPDF(bytes, NombreArchivo, Formato, Content_Disposition: "attachment", Extension: Extension);
Ruta.GuardaLogAD();
}
else
{
Alert("No se encontró la exportación", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
}
Exportaciones.Dispose();
}
protected void LBImprimir_Click(object sender, EventArgs e)
{

20
Export/RepExportaciones.aspx.cs
View File

@@ -1,11 +1,13 @@
using DocumentFormat.OpenXml.Wordprocessing;
using Extensiones;
using HigLabo.Core;
using StackExchange.Redis;
using System;
using System.Activities;
using System.Activities.Expressions;
using System.Activities.Statements;
using System.Collections.Generic;
using System.EnterpriseServices.Internal;
using System.Linq;
using System.Web;
using System.Web.UI;
@@ -13,6 +15,7 @@ using System.Web.UI.WebControls;
using static Microsoft.EntityFrameworkCore.DbLoggerCategory;
using static Stimulsoft.Report.Export.DeflaterHuffman;
public partial class Export_RepExportaciones : ClsPaginas
{
#region Propiedades
@@ -21,18 +24,33 @@ public partial class Export_RepExportaciones : ClsPaginas
get { return (ViewState["CveExportacion"] == null) ? -1 : Convert.ToInt32(ViewState["CveExportacion"]); }
set { ViewState["CveExportacion"] = value; }
}
private bool EsImportacion
{
get{ return (ViewState["EsImportacion"] == null) ? false : Boolean.Parse(ViewState["EsImportacion"].ToString()); }
set { ViewState["EsImportacion"] = value; }
}
#endregion
protected void Page_Load(object sender, EventArgs e)
{
if (!IsPostBack)
{
EsImportacion = false;
if (Request["Opcion"] != null)
{
if (Request["Opcion"] == "I")
EsImportacion = true;
}
LtlPeriodoseleccionado.Text = EsImportacion ? "Importaciones" : "Exportaciones";
CargaExportaciones();
}
}
protected void CargaExportaciones()
{
ClsExportaciones Exportaciones = new ClsExportaciones();
if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa))
int EsExportacion = EsImportacion ? 0 : 1; // 0 = importación, 1 = exportación
if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa, EsExportacion))
{
GVExportaciones.DataSource = Exportaciones.DtResultados;
GVExportaciones.DataBind();

4
General/SaldosIniciales.aspx.vb
View File

@@ -794,7 +794,7 @@ Partial Class General_SaldosIniciales
Dim DTCuentasContables As New DataTable
If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then
If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174, 184) Then
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -1445,7 +1445,7 @@ Partial Class General_SaldosIniciales
If CobranzaTelefono.Trim.Length > 10 Then CobranzaTelefono = ""
Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
Dim FormaPago As String = If(dt.Columns.Contains("FormaPago"), Row("FormaPago").ToString(), "")
Dim CveFormaPago33 As Integer = 99
Select Case FormaPago

141
Ventas/Clientes.aspx
View File

@@ -2569,7 +2569,8 @@
<div class="portlet-body ">
<asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus,EstatusTexto" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
<asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server"
DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus,EstatusTexto,CveSATBanco" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
<Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
<ItemTemplate>
@@ -6028,53 +6029,103 @@
<h4 class="modal-title" id="H2" runat="server">Cuenta Bancaria</h4>
</div>
<div class="modal-body">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumeroCuenta2" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta2" FilterType="Numbers" />
<label for="<%= TxtNumeroCuenta2.ClientID.ToString()%>">Numero de Cuenta:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
<label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtConvenioCIE2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtConvenioCIE2.ClientID.ToString()%>">CIE:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtReferencia2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros33" runat="server" TargetControlID="TxtReferencia2" FilterType="Numbers" />
<label for="<%= TxtReferencia2.ClientID.ToString()%>">Referencia:</label>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DVDdlSatBanco" visible="true">
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlSatBanco" runat="server" DataTextField="Banco" DataValueField="CveSATBanco">
<asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVDdlSatBanco" runat="server" InitialValue="-1" ControlToValidate="DdlSatBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCRFVDdlSatBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlSatBanco" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlSatBanco.ClientID.ToString()%>">Banco:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNombreBanco" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVNombreBanco" runat="server" ControlToValidate="TxtNombreBanco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Banco''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCENombreBanco" runat="server" HighlightCssClass="vco" TargetControlID="RFVNombreBanco" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtNombreBanco.ClientID.ToString()%>">Nombre del Banco:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumeroSucursal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtNumeroSucursal.ClientID.ToString()%>">Numero de la Sucursal:</label>
</div>
</div>
</div>
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
<asp:CheckBox ID="ChkEstatus2" runat="server"></asp:CheckBox>
<label for="<%= ChkEstatus2.ClientID.ToString()%>">Estatus:</label>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtNumeroCuenta2" runat="server" CssClass="form-control" CausesValidation="true" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros" runat="server" TargetControlID="TxtNumeroCuenta2" FilterType="Numbers" />
<label for="<%= TxtNumeroCuenta2.ClientID.ToString()%>">Numero de Cuenta:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCLABE" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="18" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCLABE" FilterType="Numbers" />
<label for="<%= TxtCLABE.ClientID.ToString()%>">CLABE:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtSWIFT" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtSWIFT.ClientID.ToString()%>">SWIFT:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtPlaza" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="100" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtPlaza.ClientID.ToString()%>">Plaza:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtConvenioCIE2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="8" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<label for="<%= TxtConvenioCIE2.ClientID.ToString()%>">CIE:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtReferencia2" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20" ValidationGroup="GrpAgregarBanco"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros33" runat="server" TargetControlID="TxtReferencia2" FilterType="Numbers" />
<label for="<%= TxtReferencia2.ClientID.ToString()%>">Referencia:</label>
</div>
</div>
</div>
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList CssClass="form-control select2me" Width="50%" ID="DdlMoneda" runat="server" DataTextField="Moneda" DataValueField="CveMoneda"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" InitialValue="-1" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarBanco"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlMoneda.ClientID.ToString()%>">Moneda:</label>
</div>
</div>
<div class="col-md-6">
<div class="form-group form-md-line-input input-iconright" id="divestatus" runat="server">
<asp:CheckBox ID="ChkEstatus2" runat="server"></asp:CheckBox>
<label for="<%= ChkEstatus2.ClientID.ToString()%>">Estatus:</label>
</div>
</div>
</div>
</div>

73
Ventas/Clientes.aspx.vb
View File

@@ -1268,8 +1268,6 @@ Partial Class Clientes
CargaMetodosPago()
CargaPrecioLista()
CargaVendedores()
'CargaCorporativo()
CargaMetodosPago33()
@@ -1278,12 +1276,30 @@ Partial Class Clientes
CargaClasificaciones()
DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
DdlRegimenFiscal.DataBind()
CargaCombosComercioExterior()
CargaBancosSAT()
CargaMonedas()
End Sub
Private Sub CargaBancosSAT()
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosSAT Then
DdlSatBanco.DataSource = ObjBancos.DtResultados
End If
ObjBancos.Dispose()
DdlSatBanco.DataBind()
DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
Private Sub CargaSubProyectos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing, AplicaTodos:="Seleccione")
@@ -6792,12 +6808,14 @@ Partial Class Clientes
ObjCuentasBancos.Dispose()
CargaPSGridCuentasBancos()
CargaMonedas()
End Sub
Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs)
Dim EsBancomer As Boolean = False
If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
If TxtNombreBanco.Text.ToUpper.Contains("BBVA") Or TxtNombreBanco.Text.ToUpper.Contains("BANCOMER") Or
DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BBVA") Or
DdlSatBanco.SelectedItem.Text.ToUpper.Contains("BANCOMER") Or (TxtCLABE.Text.Length = 18 AndAlso TxtCLABE.Text.Substring(0, 3) = "012") Then
EsBancomer = True
End If
@@ -6852,15 +6870,19 @@ Partial Class Clientes
Dim Estatus As Boolean
If ChkEstatus2.Checked = True Then Estatus = True Else Estatus = False
AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "", DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus)
AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta2.Text.Trim, TxtConvenioCIE2.Text.Trim, TxtReferencia2.Text.Trim, "",
DdlMoneda.SelectedValue.ToEntero(), DdlMoneda.SelectedItem.Text, Estatus, DdlSatBanco.SelectedValue.ToEntero)
End Sub
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean)
Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String,
CveMoneda As Integer, Moneda As String, Estatus As Boolean, CveSATBanco As Integer)
Dim ObjCuentasBancos As New ClsGenerales
If Modalidad = "A" Then
If CveCliente > 0 Then
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear()
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6871,6 +6893,31 @@ Partial Class Clientes
Else
Dim Row As DataRow
If TempDTCuentasBancos Is Nothing Then
TempDTCuentasBancos = New DataTable
TempDTCuentasBancos.Columns.Add("CveCuentaDeposito", GetType(Integer))
TempDTCuentasBancos.Columns.Add("BancoNombre", GetType(String))
TempDTCuentasBancos.Columns.Add("Sucursal", GetType(String))
TempDTCuentasBancos.Columns.Add("CLABE", GetType(String))
TempDTCuentasBancos.Columns.Add("SWIFT", GetType(String))
TempDTCuentasBancos.Columns.Add("Plaza", GetType(String))
TempDTCuentasBancos.Columns.Add("Cuenta", GetType(String))
TempDTCuentasBancos.Columns.Add("CIE", GetType(String))
TempDTCuentasBancos.Columns.Add("Referencia", GetType(String))
TempDTCuentasBancos.Columns.Add("RefCrediProveedor", GetType(String))
TempDTCuentasBancos.Columns.Add("CveMoneda", GetType(Integer))
TempDTCuentasBancos.Columns.Add("Moneda", GetType(String))
TempDTCuentasBancos.Columns.Add("EstatusPagoElectronico", GetType(Integer))
TempDTCuentasBancos.Columns.Add("Estatus", GetType(String))
TempDTCuentasBancos.Columns.Add("CveSATBanco", GetType(Integer))
TempDTCuentasBancos.Columns.Add("EstatusTexto", GetType(String))
End If
Row = TempDTCuentasBancos.NewRow
Row("BancoNombre") = NombreBanco
@@ -6886,6 +6933,7 @@ Partial Class Clientes
Row("Moneda") = Moneda
Row("EstatusPagoElectronico") = 0
Row("Estatus") = "True"
Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.Rows.Add(Row)
Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6896,7 +6944,8 @@ Partial Class Clientes
If CveCliente > 0 Then
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa) Then
If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString().ToEntero(), NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, "", False, Estatus, CveMoneda, UsuarioActual.CveEmpresa,
CveSATBanco:=CveSATBanco) Then
DTCuentasBancos.Clear()
CargaCuentasBancarias()
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
@@ -6920,6 +6969,7 @@ Partial Class Clientes
Row("CveMoneda") = CveMoneda
Row("Moneda") = Moneda
Row("Estatus") = Estatus
Row("CveSATBanco") = CveSATBanco
TempDTCuentasBancos.AcceptChanges()
Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion)
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias"))
@@ -6932,6 +6982,7 @@ Partial Class Clientes
RecargaGlobalCuentasBancarias()
End Sub
Private Sub LimpiaCuentasBancarias()
DdlSatBanco.SelectedValueExist(-1)
TxtNombreBanco.Text = ""
TxtNumeroSucursal.Text = ""
TxtCLABE.Text = ""
@@ -7015,6 +7066,7 @@ Partial Class Clientes
Private Sub LnkCuentasBancarias_Click(sender As Object, e As EventArgs) Handles LnkCuentasBancarias.Click
Modalidad = "A"
DdlSatBanco.SelectedValueExist(-1)
TxtNombreBanco.Text = ""
LbAgregarCuentaBanco.Text = "Agregar"
TxtNumeroSucursal.Text = ""
@@ -7033,6 +7085,9 @@ Partial Class Clientes
Public Sub Edit_Click2(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco"))
TxtNombreBanco.Text = GvRow.DataKey("BancoNombre")
Modalidad = "U"
LbAgregarCuentaBanco.Text = "Actualizar"