AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-06-29 15:45:30 -07:00
parent f65ff0d7e3 60516e0a0e
commit 5d4d5082f8
26 changed files with 110 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
App_Code/ClsPaginas.vb
View File

@@ -9995,7 +9995,6 @@ Public Class ClsPaginas
PaginaDict.Add("/Contabilidad/RepIVADiferencias.aspx".ToUpper(), 127)
PaginaDict.Add("/Contabilidad/PolizasImpresion.aspx".ToUpper(), 380)
PaginaDict.Add("/Contabilidad/RegPrePolizaS.aspx".ToUpper(), 398)
PaginaDict.Add("/Contabilidad/RegPrePoliza.aspx".ToUpper(), 398)
PaginaDict.Add("/Contabilidad/DescargaRespaldos.aspx".ToUpper(), 400)
PaginaDict.Add("/Contabilidad/CatEjercicios.aspx".ToUpper(), 570)
PaginaDict.Add("/Contabilidad/AnalisisVertical.aspx".ToUpper(), 416)

28
App_Code/ClsVentas.vb
View File

@@ -717,6 +717,34 @@ Public Class ClsVentas
Return Retorno
End Function
Public Function UpdateDatosMedicosVenta(CveVenta As Integer, CveEmpresa As Integer,
CveMedico As Integer,
CveProcedimiento As Integer,
Paciente As String,
Optional Episodio As String = "-1",
Optional FolioAdicional As String = "-1",
Optional FechaParaSurtir As DateTime = MinFecha) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_VentasDatosMedicosUpdate")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveVenta", SqlDbType.Int).Value = CveVenta
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMedico", SqlDbType.Int).Value = CveMedico
.Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
.Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir
.Add("@Paciente", SqlDbType.VarChar).Value = Paciente
.Add("@Episodio", SqlDbType.VarChar).Value = Episodio
.Add("@FolioAdicional", SqlDbType.VarChar).Value = FolioAdicional
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al actualizar los datos médicos de la venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
Public Function UpdateVentaTC(CveVenta As Integer, CveEmpresa As Integer, TipoCambio As Decimal) As Boolean
Dim Retorno As Boolean = False

2
Ashx/E141.ashx
View File

@@ -62,7 +62,7 @@ Public Class E141 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
#Region "V A L I D A - D A T O S"
Private Function ValidaUsuarioSistema(CveUsuario As Integer, CveEmpresa As Integer) As Usuario
Dim UsuarioActual As Usuario = Nothing
Dim ObjUsuarios As New ClsSisUsuarios
Dim ObjUsuarios As New ClsSisUsuarios(NombreCadena:="VentasEcono")
If ObjUsuarios.GetUsuarios(CveUsuario) Then
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()

4
Contabilidad/AuxiliarPrePolizas.aspx
View File

@@ -141,9 +141,9 @@
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False"
EmptyDataText="No se encontraron registros" data-sort="true" Width="99%" OnRowDataBound="GvDatos_RowDataBound">
<Columns>
<asp:HyperLinkField DataTextField="Fecha" Target="_blank" HeaderText="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" />
<asp:HyperLinkField DataTextField="Fecha" Target="_blank" HeaderText="Fecha" DataTextFormatString="{0:d}" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}" />
<asp:BoundField DataField="ConceptoContable" HeaderText="Concepto Contable" />
<asp:HyperLinkField DataTextField="Concepto" Target="_blank" HeaderText="Concepto" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" />
<asp:HyperLinkField DataTextField="Concepto" Target="_blank" HeaderText="Concepto" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}" />
<asp:BoundField DataField="Referencia" HeaderText="Referencia" />
<asp:BoundField DataField="Importe" HeaderText="Importe" DataFormatString="{0:C}" />
<asp:BoundField DataField="ContactoNombre" HeaderText="Beneficiario/Pagador" />

2
Contabilidad/CatContaEjercicios.aspx
View File

@@ -74,7 +74,7 @@
<asp:BoundField DataField="Ejercicio" HeaderText="Ejercicio" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="PeriodoActual" HeaderText="Periodo Actual" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="CuentaNombre" HeaderText="Cuenta Nombre" ItemStyle-HorizontalAlign="Left" />
<asp:HyperLinkField DataTextField ="PrePolizaCierreFolio" target="_blank" DataNavigateUrlFields ="CvePrePolizaCierre" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" HeaderText="Póliza Cierre" ItemStyle-HorizontalAlign="Left" />
<asp:HyperLinkField DataTextField ="PrePolizaCierreFolio" target="_blank" DataNavigateUrlFields ="CvePrePolizaCierre" DataNavigateUrlFormatString="/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}" HeaderText="Póliza Cierre" ItemStyle-HorizontalAlign="Left" />
<asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField ItemStyle-Width="80px">
<ItemTemplate>

8
Contabilidad/ContabilizacionCompras.aspx
View File

@@ -186,7 +186,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoCompras" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
</td>
<td style="width: 70px; text-align: left;">
<asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
@@ -291,7 +291,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoPagos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<td style="width: 70px; text-align: left;">
<asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificar_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
</td>
@@ -383,7 +383,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoAnticipos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
</td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink>
@@ -473,7 +473,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoAmortizaciones" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink>
</td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" CssClass="Texto" Text="Ver Poliza" ></asp:HyperLink>

8
Contabilidad/ContabilizacionVentas.aspx
View File

@@ -154,7 +154,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoVentas" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<td style="width: 70px; text-align: left;">
<asp:LinkButton ID="LnkSimplificar" runat="server" OnClick="LnkSimplificarCompra_Click" ToolTip="Simplificar Póliza"><i class='fa fa-exchange'></i></asp:LinkButton>
</td>
@@ -246,7 +246,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoPagos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
</td>
@@ -335,7 +335,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoAnticipos" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
</td>
@@ -424,7 +424,7 @@
<td style="width: 70px; text-align: left;">
<asp:Literal ID="LtPolizaTipoAmortizaciones" Text='<%# Eval("TipoPoliza", "{0:d}") %>' runat="server"></asp:Literal></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<asp:HyperLink ID="HplEdicion" runat="server" Target="_blank" CssClass="Texto" Visible="false" Text="Editar" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>'></asp:HyperLink></td>
<td style="width: 70px; text-align: left;">
<asp:HyperLink ID="HLPoliza" runat="server" Target="_blank" Visible="false" CssClass="Texto" Text="Ver Poliza" NavigateUrl='<%# Eval("IdPoliza", "/Contabilidad/RegPoliza.aspx?IdPoliza={0}")%>'></asp:HyperLink>
</td>

2
Contabilidad/FiltraPolizas.aspx
View File

@@ -183,7 +183,7 @@
<asp:TemplateField HeaderText="PrePoliza" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:HyperLink ID="HplPrepoliza" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}")%>' runat="server" ToolTip="Ir PrePoliza"><i class="fa fa-arrow-right" style="color:#686868;"></i></asp:HyperLink>
<asp:HyperLink ID="HplPrepoliza" CssClass="Texto" Target="_blank" NavigateUrl='<%# Eval("CvePrePoliza", "/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}")%>' runat="server" ToolTip="Ir PrePoliza"><i class="fa fa-arrow-right" style="color:#686868;"></i></asp:HyperLink>
</ItemTemplate>
<ItemStyle Width="100px"></ItemStyle>

4
Contabilidad/RegPoliza.aspx.vb
View File

@@ -152,9 +152,7 @@ Partial Class RegPoliza
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
If Not IsPostBack Then
If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
Response.Redirect("/Contabilidad/RegPrePolizaS.aspx")
End If
ViewState("Orden0") = ""
ViewState("Orden1") = ""

2
Contabilidad/RegPrePoliza.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza" EnableEventValidation="false" %>
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrepoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza" EnableEventValidation="false" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content>

2
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -570,7 +570,7 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301, 3, 11) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372, 373) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 237, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372, 373) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))

2
Contabilidad/RepIVA.aspx
View File

@@ -390,7 +390,7 @@
<asp:BoundField DataField="FueConciliado" HeaderText="Conciliado" />
<asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
<asp:BoundField DataField="ImporteMN" HeaderText="Importe" DataFormatString="{0:N2}" />
<asp:HyperLinkField DataTextField="FolioPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
<asp:HyperLinkField DataTextField="FolioPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}" DataNavigateUrlFields="CvePrePoliza" HeaderText="Prepoliza" />
<asp:HyperLinkField DataTextField="FolioIE" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" HeaderText="IE" />
<asp:BoundField DataField="FechaAplicado" HeaderText="Fecha Aplicado" DataFormatString="{0:d}" />
</Columns>

2
Contratos/RepPresupuestosDetalleCompras.aspx.vb
View File

@@ -160,7 +160,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
Case 1
Liga = $"/Compras/Compras.aspx?&CveCompra={e.Row.DBCampo("CveCompra")}"
Case 2
Liga = $"/Contabilidad/RegPrePoliza.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
Liga = $"/Contabilidad/RegPrepolizaS.aspx?&CvePrePoliza={e.Row.DBCampo("CveCompra")}"
Case Else
End Select

2
General/SaldosIniciales.aspx.vb
View File

@@ -2566,7 +2566,7 @@ Partial Class General_SaldosIniciales
If Not TieneError Then
ObjConta.Commit()
Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >Prepóliza</a></b>", CvePrePoliza, ObjConta.ContaFolio))
Alert(String.Format("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >Prepóliza</a></b>", CvePrePoliza, ObjConta.ContaFolio))
Alert($"Se agregó la póliza {ObjConta.ContaFolio}")

2
General/SaldosMenores.aspx.vb
View File

@@ -658,7 +658,7 @@ Partial Public Class General_SaldosMenores
'DvSaldar.Visible = False
CargaDatosVentas()
'RegistraScript("$('#ModalSaldarCuentaIncobrable').modal('hide')")
Alert(String.Format("Los movimientos se saldaron correctamente. <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Alert(String.Format("Los movimientos se saldaron correctamente. <br/> <a href='/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
'BtnSaldarCuentasIncobrables.Visible = False
Else
ObjConta.RollBack()

17
Global.asax
View File

@@ -47,21 +47,21 @@
' If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
'End Using
GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
Using Finan As New ClsFinanzas
'GuardaLogAsax(String.Format("Globalasax 6:{0}", DateTime.Now))
'Using Finan As New ClsFinanzas
If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
' If Finan.GetRazonesFinancieras(-1) Then Application("GlobalDTFinan_RazonesFinancieras") = Finan.DtResultados
End Using
'End Using
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'P A R A M E T R O S
Using ObjParametros As New ClsSisParametros
If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
End Using
'Using ObjParametros As New ClsSisParametros
' If ObjParametros.GetParametros Then Application("GlobalDTParametros") = ObjParametros.DtResultados Else Application("GlobalDTParametros") = Nothing
'End Using
GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
@@ -71,7 +71,6 @@
'GuardaLogAsax(String.Format("Globalasax 41:{0}", DateTime.Now))
BundleConfig.RegistrarBundles(BundleTable.Bundles)
BundleTable.EnableOptimizations = True
' System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None
@@ -82,8 +81,6 @@
Dim EmpresaNotificacionesGPS As New Empresa With {.SendMail = "ALERTAS@SIGNALSGPS.com", .SendMailPassword = "STJ180705IV42021ad", .SendMailServer = "mail.signalsgps.com", .SendMailPuerto = 587}
ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS
''------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'' R A S T R E O
'Using ObjGPS As New ClsGPS

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -844,7 +844,7 @@ Partial Class Inventarios_EntradasSalidas
If DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero > 0 Then
HplPrePoliza.Visible = True
HplPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}", DtMov.Rows(0)("CvePrePoliza"))
HplPrePoliza.NavigateUrl = String.Format("/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}", DtMov.Rows(0)("CvePrePoliza"))
CvePrePoliza = DtMov.Rows(0)("CvePrePoliza").ToString.ToEntero
Else
If UsuarioActual.CveRol = 1 Then
@@ -4066,7 +4066,7 @@ Partial Class Inventarios_EntradasSalidas
ObjConta.Dispose()
If CvePrePolizaRegistrada > 0 Then
Response.Redirect($"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaRegistrada}", True)
Response.Redirect($"../Contabilidad/RegPrePolizas.aspx?CvePrePoliza={CvePrePolizaRegistrada}", True)
End If
Else

4
LogIn.aspx.vb
View File

@@ -211,7 +211,7 @@ Partial Class LogIn
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
@@ -221,7 +221,7 @@ Partial Class LogIn
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tGrupoEmpresa = "SERVEC"
If Request.Url.Host.ToUpper().Contains("SMS".ToUpper()) Then tGrupoEmpresa = "SMS"
If Request.Url.Host.ToUpper().Contains("VYA".ToUpper()) Then tGrupoEmpresa = "VYA"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ"
If Request.Url.Host.ToUpper().Contains("GRUPODIAZ".ToUpper()) Then tGrupoEmpresa = "GRUPODIAZ" : NombreCadena = "ConexionGDiaz"
If Request.Url.Host.ToUpper().Contains("FERRETERA".ToUpper()) Then tGrupoEmpresa = "FERRETERA"
Dim ObjUsuario As New ClsSisUsuarios(NombreCadena:=NombreCadena)

12
Nomina/Nomina.aspx.cs
View File

@@ -666,10 +666,10 @@ public partial class Nomina_Nomina2 : ClsPaginas
LnkLayoutContable.Visible = (Estatus >= 2);
LnkProvisionNomina.Visible = CvePrePolizaProvision > 0;
LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvision}";
LnkProvisionNomina.NavigateUrl = $"../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={CvePrePolizaProvision}";
LnkProvisionNominaAsimilados.Visible = CvePrePolizaProvisionAsimilados > 0;
LnkProvisionNominaAsimilados.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProvisionAsimilados}";
LnkProvisionProrrateo.NavigateUrl = $"../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={CvePrePolizaProrrateo}";
LnkProvisionNominaAsimilados.NavigateUrl = $"../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={CvePrePolizaProvisionAsimilados}";
LnkProvisionProrrateo.NavigateUrl = $"../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={CvePrePolizaProrrateo}";
LnkProvisionProrrateo.Visible = CvePrePolizaProrrateo > 0;
UpAccciones.Update();
}
@@ -9017,14 +9017,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
CvePrePolizaasmilidos = objnom.DtResultados.Rows[0]["CvePrePolizaAsimilables"].ToString().ToEntero();
CvePrePolizaProrrateo = objnom.DtResultados.Rows[0]["CvePrePolizaProrrateo"].ToString().ToEntero();
}
string mensaje = string.Format("La provisión a sido generada.<br/><a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}' class='Texto'>Provisión </a><br/>", CvePrePolizaProvision);
string mensaje = string.Format("La provisión a sido generada.<br/><a href='../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}' class='Texto'>Provisión </a><br/>", CvePrePolizaProvision);
if (CvePrePolizaasmilidos > 0)
{
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}' class='Texto'> Asimilados</a><br/>", mensaje, CvePrePolizaasmilidos);
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={1}' class='Texto'> Asimilados</a><br/>", mensaje, CvePrePolizaasmilidos);
}
if (CvePrePolizaProrrateo > 0)
{
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrePoliza.aspx?CvePrePoliza={1}' class='Texto'> Prorrateo</a><br/>", mensaje, CvePrePolizaProrrateo);
mensaje = string.Format("{0} <a href='../Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={1}' class='Texto'> Prorrateo</a><br/>", mensaje, CvePrePolizaProrrateo);
}
if (CvePrePolizaProvision > 0)
{

2
Sistemas/PopUpCambiaUsuarioEmpresa.aspx.vb
View File

@@ -97,7 +97,7 @@ Partial Class Sistemas_PopUpCambiaUsuarioEmpresa
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"

4
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -65,7 +65,7 @@ Partial Class PopUpSeleccionarEmpresa
Dim Usuario As Usuario = Nothing
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"
@@ -159,7 +159,7 @@ Partial Class PopUpSeleccionarEmpresa
Dim Usuario As Usuario = Nothing
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tGrupoEmpresa = "EMD"
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tGrupoEmpresa = "BDH"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "Conexion"
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tGrupoEmpresa = "ECONOLLANTAS" : NombreCadena = "ConexionEcono"
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tGrupoEmpresa = "JAM"
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tGrupoEmpresa = "CITRUS"
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tGrupoEmpresa = "KINO"

7
Ventas/Clientes.aspx
View File

@@ -1195,6 +1195,13 @@
<asp:CheckBox ID="ChkNoDesglosaIVA" Checked="false" CssClass="make-switchsd" data-size="small" runat="server" />
</div>
</div>
</div>
<div class="row" id="divGastosEnvio" runat="server" visible="false">
<div class="col-md-6">
<div class="form-group form-md-line-input" >
<asp:TextBox ID="TxtGastosEnvio" CssClass="form-control" runat="server" ></asp:TextBox>
<label for="<%= TxtGastosEnvio.ClientID.ToString()%>">$ Envío:</label></div>
</div>
</div>
<div class="row">
<div class="col-md-6">

17
Ventas/Clientes.aspx.vb
View File

@@ -603,8 +603,6 @@ Partial Class Clientes
#End Region
#Region " A C U M U L A D O R E S"
Property CveVentaNota As Integer
Get
@@ -660,10 +658,6 @@ Partial Class Clientes
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
@@ -1495,7 +1489,7 @@ Partial Class Clientes
If ObjClientes.CveSubProyecto > 0 Then
DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
End If
TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
ChkEstado.Checked = ObjClientes.Estatus
EstatusAnteriorCliente = ObjClientes.Estatus
@@ -2595,7 +2589,8 @@ Partial Class Clientes
CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked) Then
CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente,
CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
CveClienteNuevo = ObjClientes.CveCliente
@@ -2680,7 +2675,7 @@ Partial Class Clientes
CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked,
EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked) Then
EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
ErrorProceso = True
@@ -6182,6 +6177,10 @@ Partial Class Clientes
DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
End If
If UsuarioActual.CveEmpresa.Contiene(194) Then
divGastosEnvio.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then 'si la empresa deduce ieps
divDesgloseImpuestos.Visible = True
End If

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -2421,7 +2421,7 @@ Partial Class Ventas_ClientesAbonar
ObjConta.Commit()
CargaDatos(CveMonedaFiltro)
RegistraScript("$('#ModalSaldarCuentaIncobrable').modal('hide')")
Alert(String.Format("Los movimientos se saldaron correctamente. <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Alert(String.Format("Los movimientos se saldaron correctamente. <br/> <a href='/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}' class='Texto'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
BtnSaldarCuentasIncobrables.Visible = False
Else
ObjConta.RollBack()

4
Ventas/RepPedidosSTF.aspx
View File

@@ -84,8 +84,9 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div style="height: 250px; overflow-x: scroll">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados"
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle" data-sort="true" GridLines="None" Width="99%">
CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio" data-sort="true" GridLines="None" Width="99%">
<Columns>
<asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="30%" />
<asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-Width="10%" />
@@ -103,6 +104,7 @@
<RowStyle CssClass="Texto" />
<HeaderStyle CssClass="Titulos" />
</asp:GridView>
</div>
<div class="row">
<div class="col-md-12" style="text-align:center;">
<asp:Button ID="BtnEntregar" runat="server" Text="Entregado" class="btn btn-primary" OnClick="BtnEntregar_Click" />

38
Ventas/RepPedidosSTF.aspx.vb
View File

@@ -22,7 +22,10 @@ Partial Class Ventas_RepPedidosSTF
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
If UsuarioActual.CveVendedor > 0 Then DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
If UsuarioActual.CveVendedor > 0 Then
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
DdlVendedor.Enabled = False
End If
End Sub
Protected Sub CargaDatos()
@@ -35,16 +38,11 @@ Partial Class Ventas_RepPedidosSTF
GvDatos.DataBind()
End Sub
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
'If e.Row.RowType = DataControlRowType.DataRow Then
' Select Case e.Row.DBCampo("TipoFila")
' Case "1"
' e.Row.CssClass = "Totales"
' Case "2"
' e.Row.CssClass = "SubTotales"
' Case "3"
' e.Row.CssClass = "Texto"
' End Select
'End If
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CveVendedor") = "" Then e.Row.FCCheckBox("Chk").Visible = False
End If
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
CargaDatos()
@@ -58,22 +56,24 @@ Partial Class Ventas_RepPedidosSTF
TmpDTRemis.Columns.Add("CveCliente", GetType(Integer))
TmpDTRemis.Columns.Add("CveSubProyecto", GetType(Integer))
TmpDTRemis.Columns.Add("CvePS", GetType(Integer))
TmpDTRemis.Columns.Add("Cantidad", GetType(Integer))
TmpDTRemis.Columns.Add("Cantidad", GetType(Decimal))
TmpDTRemis.Columns.Add("CveUnidadMedida", GetType(Integer))
TmpDTRemis.Columns.Add("PU", GetType(Decimal))
TmpDTRemis.Columns.Add("CveVendedor", GetType(Decimal))
TmpDTRemis.Columns.Add("GastosEnvio", GetType(Decimal))
'agruparo por cliente
For Each gvr As GridViewRow In GvDatos.Rows
If gvr.FCCheckBox("chk").Checked Then
Dim drp As DataRow = TmpDTRemis.NewRow
drp("CvePS") = gvr.DataKey("CvePS").ToEntero
drp("Cantidad") = gvr.DataKey("Cantidad").ToEntero
drp("PU") = gvr.DataKey("PU").ToEntero
drp("Cantidad") = gvr.DataKey("Cantidad").ToDecimal
drp("PU") = gvr.DataKey("PU").ToDecimal
drp("CveUnidadMedida") = gvr.DataKey("CveUnidadMedida").ToEntero
drp("CveSubProyecto") = gvr.DataKey("CveSubProyecto").ToEntero
drp("CveCliente") = gvr.DataKey("CveCliente").ToEntero
drp("CveVendedor") = gvr.DataKey("CveVendedor").ToEntero
drp("CveVentaDetalle") = gvr.DataKey("CveVentaDetalle").ToEntero
drp("GastosEnvio") = gvr.DataKey("GastosEnvio").ToDecimal
TmpDTRemis.Rows.Add(drp)
End If
Next
@@ -88,7 +88,7 @@ Partial Class Ventas_RepPedidosSTF
Dim TieneError As Boolean = False
Dim StrAlerta As New StringBuilder
For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor"}).Rows
For Each drt As DataRow In TmpDTRemis.FiltraParametros("", DistinctColumns:={"CveCliente", "CveSubProyecto", "CveVendedor", "GastosEnvio"}).Rows
Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, drt("CveSubProyecto").ToString.ToEntero, drt("CveCliente").ToString.ToEntero, 1, "Rem")
ObjFactura.CveVendedor = drt("CveVendedor").ToString.ToEntero
@@ -106,6 +106,14 @@ Partial Class Ventas_RepPedidosSTF
End If
End If
Next
If drt("GastosEnvio").ToString.ToDecimal > 0 Then
Dim tCvePSEnvio As Integer = usuarioactual.empresa.Funcionalidad(160).toentero
If Not ObjFactura.AgregarPS(tCvePSEnvio, 1, drt("GastosEnvio").ToString.ToDecimal, 0, "", CveSubProyecto:=drt("CveSubProyecto").ToString.ToEntero) Then
TieneError = True
End If
End If
If Not TieneError Then
ObjFactura.CalculaTotales()
Dim Resp As New Modelos.Factura.MMensajeFactura