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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-03-15 14:34:36 -07:00
parent 5df21b02f2 a1dbcc0c8a
commit 9ee815493c
18 changed files with 192 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
App_Code/Modelos.vb
View File

@@ -301,6 +301,40 @@ Namespace Modelos
#Region " OBJETOS Ventas" #Region " OBJETOS Ventas"
<Serializable>
Public Class VentaDescuentos
Public Consec As Integer
Public ImporteDescuento As Decimal = 0
Public CvePromocionDetalle As Integer = -1
Public PU As Decimal = 0
Public EsPUModificado As Boolean = False
Public ImporteProntoPago As Decimal = 0
Public NombrePromo As String = ""
Public CveMarca As Integer = -1
Public ObsDescuento As String = ""
End Class
<Serializable>
Public Class VentasBonificaciones
Public CveVentaRNCCargo As Integer = -1
Public CveVentaBonificacion As Integer = -1
Public ImporteBonificacion As Decimal = 0
Public IVABonificacion As Decimal = 0
End Class
<Serializable>
Public Class MensajeProntoPago
Public Property ObjFacturaProntoPago As Modelos.Factura
Public Property Mensaje As Modelos.Factura.MMensajeFactura
End Class
<Serializable>
Public Class MAnticipoRelacionado
Public Property CveVenta As Integer
Public Property FolioFiscal As String
End Class
<Serializable>
Public Class MVentaDetalleCotizacion
Public Property CveVentaDetalle As Integer
Public Property Cantidad As Decimal
End Class
Public Enum TipoMensajeRespuesta Public Enum TipoMensajeRespuesta
TextoLimpio = 0 TextoLimpio = 0
HTML = 1 HTML = 1
@@ -5508,6 +5542,14 @@ Namespace Modelos
AutoConta = False AutoConta = False
End If End If
If Not ErrorCancelar AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Modelos/RecepcionEntrega | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorCancelar = True
End If
End If
If AutoConta And Not ErrorCancelar Then If AutoConta And Not ErrorCancelar Then
If IdCtaContable > 0 Then If IdCtaContable > 0 Then

2
Ashx/E141.ashx
View File

@@ -1711,7 +1711,7 @@ Public Class E141 : Implements IHttpHandler
Dim DtPS As DataTable = Nothing Dim DtPS As DataTable = Nothing
Using ObjPS As New ClsProductosServicios Using ObjPS As New ClsProductosServicios
'OBTERNER PRECIOS DE PUBLICO GENERAL 'OBTERNER PRECIOS DE PUBLICO GENERAL
If ObjPS.GetProductosModificados(CveEmpresa, 44, If(Todos, -1, 1)) Then If ObjPS.GetProductosModificados(CveEmpresa, 44, If(Todos, -1, 26)) Then
DtPS = ObjPS.DtResultados.Copy() DtPS = ObjPS.DtResultados.Copy()
End If End If
End Using End Using

2
Bancos/IE.aspx.vb
View File

@@ -5845,6 +5845,8 @@ Partial Class Bancos_IE
TxtObservaciones.Text = $"SOLICITUD DE VIÁTICOS - FOLIO {ObjBancos.DtResultados.FiltroPrimeroValor("Folio").ToString()}: {ObjBancos.DtResultados.FiltroPrimeroValor("Asunto").ToString()}." TxtObservaciones.Text = $"SOLICITUD DE VIÁTICOS - FOLIO {ObjBancos.DtResultados.FiltroPrimeroValor("Folio").ToString()}: {ObjBancos.DtResultados.FiltroPrimeroValor("Asunto").ToString()}."
End If End If
ObjBancos.Dispose() ObjBancos.Dispose()
RBL_SelectedIndexChanged(Nothing, Nothing)
End If End If
End Sub End Sub
#End Region #End Region

2
Bancos/PagoAcreedor.aspx
View File

@@ -377,7 +377,7 @@
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtAbonar" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox> <asp:TextBox ID="TxtAbonar" Width="80px" runat="server" Style="text-align: right;" onkeyup="FormatoMoneda(this)"></asp:TextBox>
<asp:RangeValidator ID="RVAbonar" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtAbonar" Display="Dynamic"></asp:RangeValidator> <asp:RangeValidator ID="RVAbonar" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue='<%# Eval("Saldo", "{0:N2}") %>' ErrorMessage="*" ControlToValidate="TxtAbonar" Display="Dynamic"></asp:RangeValidator>
<asp:TextBox ID="TxtCveMoneda" Enabled="false" Width="80px" Text='<%# Eval("CveMoneda")%>' runat="server" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtCveMoneda" Enabled="false" Width="80px" Text='<%# Eval("CveMoneda")%>' runat="server" Style="text-align: right;display:none" ></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">

50
Bancos/PagoAcreedor.aspx.cs
View File

@@ -351,30 +351,32 @@ public partial class Bancos_PagoAcreedor : ClsPaginas
ImporteBancosMN = (Importe * TCPago).RoundSQL(); ImporteBancosMN = (Importe * TCPago).RoundSQL();
ImporteAcreedorMN = (Importe * TC).RoundSQL(); ImporteAcreedorMN = (Importe * TC).RoundSQL();
//if (CveMonedaPago == 1 && tCveMoneda == 1) if (CveMonedaPago == 1 && tCveMoneda == 1)
//{ {
// ImporteMN = Importe; //ImporteMN = Importe;
// ImporteComisionMN = ImporteComision; //ImporteComisionMN = ImporteComision;
//} }
//else if (CveMonedaPago == 1 && tCveMoneda == 2) else if (CveMonedaPago == 1 && tCveMoneda == 2)
//{ {
// ImporteComisionMN = ImporteComision; //ImporteComisionMN = ImporteComision;
// ImporteMN = Importe; //ImporteMN = Importe;
// ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); //ImporteComplementaria = (Importe * TC - Importe).RoundSQL();
//} }
//else if (CveMonedaPago == 2 && tCveMoneda == 1) else if (CveMonedaPago == 2 && tCveMoneda == 1)
//{ {
// ImporteMN = Importe; ImporteBancosMN = Importe;
// ImporteComisionMN = ImporteComision; ImporteMN = Importe;
// ImporteComplementaria = 0; //ImporteComisionMN = ImporteComision;
//} //ImporteComplementaria = 0;
//else if (CveMonedaPago == 2 && tCveMoneda == 2) }
//{ else if (CveMonedaPago == 2 && tCveMoneda == 2)
// ImporteComisionMN = ImporteComision; {
// ImporteMN = Importe;
// ImporteComplementaria = (Importe * TC - Importe).RoundSQL(); //ImporteComisionMN = ImporteComision;
//} //ImporteMN = Importe;
//ImporteComplementaria = (Importe * TC - Importe).RoundSQL();
}
//ImporteMN = ImporteMN.RoundSQL(); //ImporteMN = ImporteMN.RoundSQL();
//ImporteComplementaria = ImporteComplementaria.RoundSQL(); //ImporteComplementaria = ImporteComplementaria.RoundSQL();

BIN
Empresas/119/Formatos/RepIVA.rpt
View File

Binary file not shown.

BIN
Empresas/119/Formatos/RepIVAAcreditable.rpt
View File

Binary file not shown.

BIN
Empresas/Grales/Formatos/RepIVA.rpt
View File

Binary file not shown.

BIN
Empresas/Grales/Formatos/RepIVAAcreditable.rpt
View File

Binary file not shown.

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1910,6 +1910,9 @@ Partial Class Inventarios_EntradasSalidas
If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
End If End If
Case 34
CveConceptoContable = 51
EsContabilizable = True
Case 13, 29 Case 13, 29
CveConceptoContable = 69 CveConceptoContable = 69
TipoMovtoOtro = True TipoMovtoOtro = True
@@ -1930,7 +1933,7 @@ Partial Class Inventarios_EntradasSalidas
Else Else
'Dim Total As Decimal = 0 'Dim Total As Decimal = 0
If CveConceptoContable.Contiene(181, 78) Then If CveConceptoContable.Contiene(181, 78, 51) Then
Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy Dim Dt As DataTable = ObjInventario.DtResultados.FiltraParametros("", "", {"CveClasificacion"}).Copy
'Dim IdCuentaGasto As Integer = 0 'Dim IdCuentaGasto As Integer = 0
For Each Dr As DataRow In Dt.Rows For Each Dr As DataRow In Dt.Rows

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -3137,7 +3137,7 @@ Partial Class Inventarios_EntregaAlmacen
If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If

4
RH/SolicitudViaticos.aspx.cs
View File

@@ -151,10 +151,12 @@ public partial class RH_SolicitudViaticos : ClsPaginas
} }
else else
{ {
if ((UsuarioActual.CveEmpresa == 72 || UsuarioActual.CveEmpresa == 1 || UsuarioActual.CveEmpresa == 2) && UsuarioActual.CvePersonal > 0)
if ((UsuarioActual.CveEmpresa.Contiene(1,2,72, 172, 173, 174)) && UsuarioActual.CvePersonal > 0)
{ {
CargaFolio(); CargaFolio();
} }
BtnGuardar.Text = "Guardar"; BtnGuardar.Text = "Guardar";
LnkImprimirExcel.Visible = false; LnkImprimirExcel.Visible = false;

3
Sistemas/CatSesiones.aspx
View File

@@ -63,7 +63,8 @@
<asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem>
<asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem> <asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem>
<asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem> <asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem>
<asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem>
<asp:ListItem Text="GlobalDTSATUsosCFDI" Value="GlobalDTSATUsosCFDI"></asp:ListItem>
</asp:DropDownList>&nbsp;&nbsp; </asp:DropDownList>&nbsp;&nbsp;

8
Sistemas/CatSesiones.aspx.vb
View File

@@ -106,12 +106,16 @@ Partial Class Sistemas_CatSesiones
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
CargaActivoFijos() CargaActivoFijos()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then
cargaAC() cargaAC()
ElseIf DdlVariable.SelectedItem.Value = "GlobalDTSATUsosCFDI" Then
CargaUsosCFDI()
End If End If
End Sub End Sub
Private Sub CargaUsosCFDI()
HttpContext.Current.Application("GlobalDTSATUsosCFDI") = Nothing
End Sub
Private Sub CargaGlobalDTVendedoresOld() Private Sub CargaGlobalDTVendedoresOld()
Dim AppNombre As String = $"GlobalDTVendedores-{-1}" Dim AppNombre As String = $"GlobalDTVendedores-{-1}"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then

2
Ventas/ClientesAbonar.aspx.vb
View File

@@ -630,7 +630,7 @@ Partial Class Ventas_ClientesAbonar
e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Saldo") e.Row.FCRangeValidator("RVComision").MaximumValue = e.Row.DBCampo("Saldo")
End If End If
If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 0 Then If e.Row.DBCampo("DescuentoProntoPago").ToDecimal() > 0 AndAlso e.Row.DBCampo("DiasVencidos").ToEntero() <= 5 Then
e.Row.FCCheckBox("ChkGenerarNC").Visible = True e.Row.FCCheckBox("ChkGenerarNC").Visible = True
e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta"))) e.Row.FCCheckBox("ChkGenerarNC").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1},{5}); FnCambia({2},this,{1},0,{3},{4}); FnEditarImporte({2}, {0});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo").ToDecimal - e.Row.DBCampo("DescuentoProntoPago").ToDecimal, e.Row.FCCheckBox("ChkGenerarNC").ClientID, CveMonedaFiltro, moneda, e.Row.DBCampo("CveVenta")))
End If End If

4
Ventas/PV.aspx.vb
View File

@@ -2623,6 +2623,10 @@ Partial Class PV
DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero) DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero)
End If End If
If ChkServicioDomicilio.Checked Then
PreparaServicioDomicilio()
End If
UpINV.Update() UpINV.Update()
End Sub End Sub
Private Sub CargaFormaEntrega() Private Sub CargaFormaEntrega()

9
Ventas/Ventas.aspx
View File

@@ -1724,6 +1724,7 @@
<asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HiddenField ID="HdnCargarInventario" runat="server" ClientIDMode="Static" Value="True"/>
<asp:Button ID="BtnCargarInventario" runat="server" ClientIDMode="Static" Text="" Style="display: none;" OnClick="BtnCargarInventario_Click" /> <asp:Button ID="BtnCargarInventario" runat="server" ClientIDMode="Static" Text="" Style="display: none;" OnClick="BtnCargarInventario_Click" />
<div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server"> <div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server">
<div class="portlet-title"> <div class="portlet-title">
@@ -9501,9 +9502,11 @@
step: 30 step: 30
}); });
$("#TabAlmacen_tab .ajax__tab_inner").click(function () { if(HdnCargarInventario.value == 'True'){
CargaMovimientosInventario(); $("#TabAlmacen_tab .ajax__tab_inner").click(function () {
}); CargaMovimientosInventario();
});
}
} }

186
Ventas/Ventas.aspx.vb
View File

@@ -348,11 +348,11 @@ Partial Class Ventas
ViewState("DTRemisiones") = value ViewState("DTRemisiones") = value
End Set End Set
End Property End Property
Private Property ListaDescuentos As List(Of Descuentos) Private Property ListaDescuentos As List(Of Modelos.VentaDescuentos)
Get Get
Return If(IsNothing(ViewState("ListaDescuentos")), Nothing, CType(ViewState("ListaDescuentos"), List(Of Descuentos))) Return If(IsNothing(ViewState("ListaDescuentos")), Nothing, CType(ViewState("ListaDescuentos"), List(Of Modelos.VentaDescuentos)))
End Get End Get
Set(value As List(Of Descuentos)) Set(value As List(Of Modelos.VentaDescuentos))
ViewState("ListaDescuentos") = value ViewState("ListaDescuentos") = value
End Set End Set
End Property End Property
@@ -1402,11 +1402,11 @@ Partial Class Ventas
End Set End Set
End Property End Property
Private Property ListaAnticiposAplicados As List(Of MAnticipoRelacionado) Private Property ListaAnticiposAplicados As List(Of Modelos.MAnticipoRelacionado)
Get Get
Return If(IsNothing(ViewState("ListaAnticiposAplicados")), Nothing, CType(ViewState("ListaAnticiposAplicados"), List(Of MAnticipoRelacionado))) Return If(IsNothing(ViewState("ListaAnticiposAplicados")), Nothing, CType(ViewState("ListaAnticiposAplicados"), List(Of Modelos.MAnticipoRelacionado)))
End Get End Get
Set(value As List(Of MAnticipoRelacionado)) Set(value As List(Of Modelos.MAnticipoRelacionado))
ViewState("ListaAnticiposAplicados") = value ViewState("ListaAnticiposAplicados") = value
End Set End Set
End Property End Property
@@ -2307,7 +2307,6 @@ Partial Class Ventas
ViewState("CveContratoTipo") = value ViewState("CveContratoTipo") = value
End Set End Set
End Property End Property
#End Region #End Region
'#Region "AuxiliarConta" '#Region "AuxiliarConta"
@@ -2412,7 +2411,7 @@ Partial Class Ventas
RemisionesLista = New List(Of Integer) RemisionesLista = New List(Of Integer)
Pedidos2Lista = New List(Of Integer) Pedidos2Lista = New List(Of Integer)
CotizacionesLista = New List(Of Integer) CotizacionesLista = New List(Of Integer)
ListaDescuentos = New List(Of Descuentos) ListaDescuentos = New List(Of Modelos.VentaDescuentos)
CuentasContablesInvalidas = New StringBuilder CuentasContablesInvalidas = New StringBuilder
CvePrePoliza = 0 CvePrePoliza = 0
@@ -2847,6 +2846,7 @@ Partial Class Ventas
'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN 'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN
If CveVenta <= 0 Then If CveVenta <= 0 Then
'REMOVER EVENTO PARA RECARGAR ALMACEN 'REMOVER EVENTO PARA RECARGAR ALMACEN
HdnCargarInventario.Value = "False"
spanAlmacen.Attributes.Remove("onclick") spanAlmacen.Attributes.Remove("onclick")
Tab.ActiveTabIndex = 1 Tab.ActiveTabIndex = 1
Updatetabs.Update() Updatetabs.Update()
@@ -5154,9 +5154,9 @@ Partial Class Ventas
'RELACIONAR ANTICIPOS APLICADOS 'RELACIONAR ANTICIPOS APLICADOS
If DbRowVenta("CveTipoRelacion").ToString().ToEntero() = 7 AndAlso DtAntRelacionados IsNot Nothing AndAlso DtAntRelacionados.Rows.Count > 0 Then If DbRowVenta("CveTipoRelacion").ToString().ToEntero() = 7 AndAlso DtAntRelacionados IsNot Nothing AndAlso DtAntRelacionados.Rows.Count > 0 Then
DdlTipoRelacionAnticipo.SelectedValueExist(7) DdlTipoRelacionAnticipo.SelectedValueExist(7)
ListaAnticiposAplicados = New List(Of MAnticipoRelacionado)() ListaAnticiposAplicados = New List(Of Modelos.MAnticipoRelacionado)()
For Each RowAnt As DataRow In DtAntRelacionados.Rows For Each RowAnt As DataRow In DtAntRelacionados.Rows
ListaAnticiposAplicados.Add(New MAnticipoRelacionado() With {.CveVenta = RowAnt("CveVentaRelacionada").ToString().ToEntero(), .FolioFiscal = RowAnt("FolioFiscal").ToString()}) ListaAnticiposAplicados.Add(New Modelos.MAnticipoRelacionado() With {.CveVenta = RowAnt("CveVentaRelacionada").ToString().ToEntero(), .FolioFiscal = RowAnt("FolioFiscal").ToString()})
Next Next
Else Else
HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString() HdnFolioFiscalNC.Value = DbRowVenta("FolioFiscalPadre").ToString()
@@ -6127,10 +6127,17 @@ Partial Class Ventas
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente) DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
End If End If
DdlUsoCFDI.DataBind() DdlUsoCFDI.DataBind()
DdlSucursalUsoCFDI.DataBind() DdlSucursalUsoCFDI.DataBind()
If Not UsuarioActual.CveEmpresa.Contiene(76, 15) Then
If DdlUsoCFDI.DataSource IsNot Nothing Then
If DdlUsoCFDI.Items.FindByValue("25") IsNot Nothing Then
DdlUsoCFDI.Items.Remove(DdlUsoCFDI.Items.FindByValue("25"))
End If
End If
End If
DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8105,7 +8112,7 @@ Partial Class Ventas
Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating
'Dim TipoDescuento As Integer 'Dim TipoDescuento As Integer
Dim Cantidad, PU, CantidadInventario As Decimal Dim Cantidad, PU, CantidadInventario As Decimal
Dim ObjDescuento As New Descuentos Dim ObjDescuento As New Modelos.VentaDescuentos
Dim CuentaPredial As String Dim CuentaPredial As String
Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal
PU = (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal).RoundSQL(6) PU = (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal).RoundSQL(6)
@@ -11834,7 +11841,7 @@ Partial Class Ventas
' ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo" ' ObjFactura.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
' If ListaAnticiposAplicados IsNot Nothing Then ' If ListaAnticiposAplicados IsNot Nothing Then
' For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados ' For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
' ObjFactura.Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal) ' ObjFactura.Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal)
' Next ' Next
' End If ' End If
@@ -12407,7 +12414,7 @@ Partial Class Ventas
Next Next
Else Else
If ListaAnticiposAplicados IsNot Nothing AndAlso ListaAnticiposAplicados.Count > 0 Then If ListaAnticiposAplicados IsNot Nothing AndAlso ListaAnticiposAplicados.Count > 0 Then
For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal) Timbre.CFDIRelacionados.UUID.Add(Ant.FolioFiscal)
Next Next
Else Else
@@ -13152,7 +13159,7 @@ Partial Class Ventas
'SI TIENE UN ANTICIPO TAMBIEN DEBE RELACIONARLO 'SI TIENE UN ANTICIPO TAMBIEN DEBE RELACIONARLO
If CveAnticipoPadre > 0 Then If CveAnticipoPadre > 0 Then
If ListaAnticiposAplicados IsNot Nothing Then If ListaAnticiposAplicados IsNot Nothing Then
For Each Ant As MAnticipoRelacionado In ListaAnticiposAplicados For Each Ant As Modelos.MAnticipoRelacionado In ListaAnticiposAplicados
If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, Ant.CveVenta) Then If Not ObjVentas.AddVentasRelacionadas(ObjVentas.CveVenta, Ant.CveVenta) Then
ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico") ErrorList.Add("Ocurrió un error al relacionar las ventas entre si comuníquese a Soporte Técnico")
End If End If
@@ -14067,10 +14074,14 @@ Partial Class Ventas
CveIEAnticipo = row2.DataKey("CveIE").ToString().ToEntero() CveIEAnticipo = row2.DataKey("CveIE").ToString().ToEntero()
importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) importeMovimiento = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
Dim ImporteAnticipo As Decimal = importeMovimiento Dim ImporteAnticipo As Decimal = importeMovimiento
Dim CveMonedaAnticipo As Integer = row2.DataKey("CveMoneda").ToString().ToEntero()
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal * row2.DataKey("SubTotalAnticipo").ToDecimal If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then ImporteAnticipo = row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal * row2.DataKey("SubTotalAnticipo").ToDecimal
Dim Importe11MX As Decimal = ImporteAnticipo
IdCtaContable = IdCtaContAnticipos IdCtaContable = IdCtaContAnticipos
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
@@ -14085,11 +14096,16 @@ Partial Class Ventas
tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate.AddDays(-1)).ToDecimal tipoCambioAnticipo = GlobalTipoCambio(row2.DataKey("Fecha").ToString().ToDate.AddDays(-1)).ToDecimal
End If End If
If ObjFactura.CveMoneda = 2 AndAlso CveMonedaAnticipo = 1 Then
Importe11MX = Importe11MX * tipoCambio
End If
If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then If row2.DataKey("CveMoneda").ToString.ToEntero = 2 Then
IdCtaContable = IdCtaContAnticiposExtranjera IdCtaContable = IdCtaContAnticiposExtranjera
End If End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Importe11MX, ImporteME:=If(tipoCambioAnticipo = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioAnticipo) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit For Exit For
End If End If
@@ -14111,7 +14127,7 @@ Partial Class Ventas
End If End If
Else Else
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=Importe11MX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Exit For Exit For
Else Else
@@ -16682,7 +16698,7 @@ Partial Class Ventas
If ListaAnticiposAplicados IsNot Nothing Then If ListaAnticiposAplicados IsNot Nothing Then
ListaAnticiposAplicados.Clear() ListaAnticiposAplicados.Clear()
Else Else
ListaAnticiposAplicados = New List(Of MAnticipoRelacionado) ListaAnticiposAplicados = New List(Of Modelos.MAnticipoRelacionado)
End If End If
HdnIVACalculado.Value = HdnIVAOriginal.Value HdnIVACalculado.Value = HdnIVAOriginal.Value
@@ -16690,7 +16706,7 @@ Partial Class Ventas
If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then If gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked AndAlso gvr.DataKey("CveConceptoContable").ToEntero().Contiene(3) Then
Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal) Amortizacion += gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text.ToDecimal ' - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)
HdnIVACalculado.Value = (HdnIVACalculado.Value.ToDouble - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)).FormatoNumero(2) HdnIVACalculado.Value = (HdnIVACalculado.Value.ToDouble - ((gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal / gvr.DataKey("TotalAnticipo").ToDecimal) * gvr.DataKey("IVAAnticipo").ToDecimal)).FormatoNumero(2)
ListaAnticiposAplicados.Add(New MAnticipoRelacionado() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero(), .FolioFiscal = gvr.DataKey("FolioFiscal")}) ListaAnticiposAplicados.Add(New Modelos.MAnticipoRelacionado() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero(), .FolioFiscal = gvr.DataKey("FolioFiscal")})
'HdnFolioFiscalNC.Value = gvr.DataKey("FolioFiscal") 'HdnFolioFiscalNC.Value = gvr.DataKey("FolioFiscal")
'CvePSAmortizacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", "CveConceptoContable = 11").ToEntero() 'CvePSAmortizacion = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", "CveConceptoContable = 11").ToEntero()
@@ -18506,7 +18522,7 @@ Partial Class Ventas
Return True Return True
End Function End Function
Private Function CalcularDescuentos(CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Descuentos Private Function CalcularDescuentos(CvePS As Integer, Cantidad As Decimal, PU As Decimal) As Modelos.VentaDescuentos
Dim Descuento As Decimal = HdnDescuento.Value.ToDecimal Dim Descuento As Decimal = HdnDescuento.Value.ToDecimal
If UsuarioActual.Empresa.Funcionalidad(572) = "1" AndAlso Not TbDescuentosRNC.Visible Then If UsuarioActual.Empresa.Funcionalidad(572) = "1" AndAlso Not TbDescuentosRNC.Visible Then
@@ -18534,7 +18550,7 @@ Partial Class Ventas
Dim CvePromocionDetalle As Integer = 0 Dim CvePromocionDetalle As Integer = 0
Dim IncluyeImpuestos As Boolean = False Dim IncluyeImpuestos As Boolean = False
Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU Dim TipoAplicacion As Integer = 1 ' 1 - descuento, 2 en PU
Dim ObjDescuento As New Descuentos Dim ObjDescuento As New Modelos.VentaDescuentos
If DdlSubProyectoDatos.SelectedValue = "11842" Then '' E141, el subproyecto: Franquicia, no proceden las promociones If DdlSubProyectoDatos.SelectedValue = "11842" Then '' E141, el subproyecto: Franquicia, no proceden las promociones
Return ObjDescuento Return ObjDescuento
@@ -18749,7 +18765,7 @@ Partial Class Ventas
Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal
Dim PU As Decimal = If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal) Dim PU As Decimal = If(CvePSAmortizacion > 0, TxtPrecio.Text.Trim.ToDecimal * -1, TxtPrecio.Text.Trim.ToDecimal)
Dim ObjDescuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU) Dim ObjDescuento As Modelos.VentaDescuentos = CalcularDescuentos(CvePS, Cantidad, PU)
If ObjDescuento.EsPUModificado Then If ObjDescuento.EsPUModificado Then
PU = ObjDescuento.PU PU = ObjDescuento.PU
End If End If
@@ -18847,7 +18863,7 @@ Partial Class Ventas
Dim CvePS As Integer = DdlPSPyME.SelectedValue.ToEntero() Dim CvePS As Integer = DdlPSPyME.SelectedValue.ToEntero()
Dim Descuento As Descuentos = CalcularDescuentos(CvePS, Cantidad, PU) Dim Descuento As Modelos.VentaDescuentos = CalcularDescuentos(CvePS, Cantidad, PU)
AgregarProductoServicio(Cantidad, DdlUMPyME.SelectedValue.ToEntero(), DdlUMPyME.SelectedItem.Text, DdlClasificacionPyME.SelectedValue.ToEntero(), DdlClasificacionPyME.SelectedItem.Text, AgregarProductoServicio(Cantidad, DdlUMPyME.SelectedValue.ToEntero(), DdlUMPyME.SelectedItem.Text, DdlClasificacionPyME.SelectedValue.ToEntero(), DdlClasificacionPyME.SelectedItem.Text,
CvePS, DdlPSPyME.SelectedText, TxtObsPyME.Text, PU, Descuento.ImporteDescuento, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) CvePS, DdlPSPyME.SelectedText, TxtObsPyME.Text, PU, Descuento.ImporteDescuento, CveProyecto, Proyecto, CveSubProyecto, SubProyecto)
@@ -18947,7 +18963,7 @@ Partial Class Ventas
Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "", Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "",
Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False, Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional SeActualiza As Boolean = False, Optional CvePromocionDetalle As Integer = -1, Optional EsCargo As Boolean = False,
Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Descuentos = Nothing) As Boolean Optional ImporteProntoPago As Decimal = 0, Optional ByRef ObjDescuento As Modelos.VentaDescuentos = Nothing) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
Try Try
@@ -19999,7 +20015,7 @@ Partial Class Ventas
Dim strPromos As New StringBuilder Dim strPromos As New StringBuilder
If Not String.IsNullOrEmpty(Titulo) Then If Not String.IsNullOrEmpty(Titulo) Then
For Each Promo As Descuentos In ListaDescuentos For Each Promo As Modelos.VentaDescuentos In ListaDescuentos
If Not String.IsNullOrEmpty(Promo.ObsDescuento) Then If Not String.IsNullOrEmpty(Promo.ObsDescuento) Then
strPromos.AppendFormat("{0}, ", Promo.ObsDescuento) strPromos.AppendFormat("{0}, ", Promo.ObsDescuento)
End If End If
@@ -26182,7 +26198,7 @@ Partial Class Ventas
Dim Cantidad As Decimal = TxtCantidadPyME.Text.ToDecimal() Dim Cantidad As Decimal = TxtCantidadPyME.Text.ToDecimal()
Dim PU As Decimal = TxtPrecioPyME.Text.ToDecimal() Dim PU As Decimal = TxtPrecioPyME.Text.ToDecimal()
Dim ObjDescuento As Descuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero(), Cantidad, PU) Dim ObjDescuento As Modelos.VentaDescuentos = CalcularDescuentos(DdlPSPyME.SelectedValue.ToEntero(), Cantidad, PU)
TxtDescuentoPyME.Text = ObjDescuento.ImporteDescuento.FormatoNumero(2).Replace(","c, "") TxtDescuentoPyME.Text = ObjDescuento.ImporteDescuento.FormatoNumero(2).Replace(","c, "")
@@ -28046,22 +28062,30 @@ Partial Class Ventas
SaldoMaximoUtilizable = 0 SaldoMaximoUtilizable = 0
End If End If
Else Else
Dim ObjAcum As New ClsAcumuladores 'SI ES DISTRUIBUIDOR DEBE CARGAR EN BASE SU SALDO DE USADOS, SI ES PISO PUEDE PERMITIR APLICAR TODO SU SALDO
If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then If ClienteEsDistribuidor Then
Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2) Dim ObjAcum As New ClsAcumuladores
DivSMU.Visible = True If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
DivSMU.Visible = True
Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
If SaldoMaximo > 0 Then
SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
Else
SaldoMaximoUtilizable = 0
End If
Dim SaldoMaximo As Decimal = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
If SaldoMaximo > 0 Then
SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
Else Else
SaldoMaximoUtilizable = 0 SaldoMaximoUtilizable = 0
End If End If
ObjAcum.Dispose()
Else Else
SaldoMaximoUtilizable = 0 If DtNC IsNot Nothing Then
SaldoMaximoUtilizable = DtNC.SUMD("Saldo")
End If
End If End If
ObjAcum.Dispose()
End If End If
If CveVentaUsado > 0 Then If CveVentaUsado > 0 Then
@@ -28226,16 +28250,21 @@ Partial Class Ventas
SaldoMaximoUtilizable = 0 SaldoMaximoUtilizable = 0
End If End If
Else Else
Dim ObjAcum As New ClsAcumuladores If Me.ClienteEsDistribuidor Then
If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then Dim ObjAcum As New ClsAcumuladores
Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2) If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then
DivSMU.Visible = True Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2)
SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal() DivSMU.Visible = True
SaldoMaximoUtilizable = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal()
Else
'DivSMU.Visible = False
SaldoMaximoUtilizable = 0
End If
ObjAcum.Dispose()
Else Else
'DivSMU.Visible = False SaldoMaximoUtilizable = TmpDTRNCDetalle.SUMD("Total")
SaldoMaximoUtilizable = 0
End If End If
ObjAcum.Dispose()
End If End If
If CveVentaUsado > 0 Then If CveVentaUsado > 0 Then
@@ -28450,7 +28479,7 @@ Partial Class Ventas
DivRNCBonificaciones.Visible = True DivRNCBonificaciones.Visible = True
DivRNCBonificacionesDetalle.Visible = False DivRNCBonificacionesDetalle.Visible = False
Dim ListaBon As New List(Of VentasBonificaciones) Dim ListaBon As New List(Of Modelos.VentasBonificaciones)
Dim DtBon As DataTable = Nothing Dim DtBon As DataTable = Nothing
Dim SbFiltro As New StringBuilder() Dim SbFiltro As New StringBuilder()
SbFiltro.Append("CveVenta IN(") SbFiltro.Append("CveVenta IN(")
@@ -28474,7 +28503,7 @@ Partial Class Ventas
For Each bon In queryBonificacion For Each bon In queryBonificacion
SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion)
ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) ListaBon.Add(New Modelos.VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
Next Next
SbFiltro.Remove(SbFiltro.Length - 1, 1) SbFiltro.Remove(SbFiltro.Length - 1, 1)
SbFiltro.Append(")") SbFiltro.Append(")")
@@ -28618,7 +28647,7 @@ Partial Class Ventas
ListaVentasRNCCargos = CvesVentaRNCCargo.Split(","c) ListaVentasRNCCargos = CvesVentaRNCCargo.Split(","c)
End If End If
Dim ListaBon As New List(Of VentasBonificaciones) Dim ListaBon As New List(Of Modelos.VentasBonificaciones)
Dim DtBon As DataTable = Nothing Dim DtBon As DataTable = Nothing
Dim SbFiltro As New StringBuilder() Dim SbFiltro As New StringBuilder()
SbFiltro.Append("CveVenta IN(") SbFiltro.Append("CveVenta IN(")
@@ -28650,7 +28679,7 @@ Partial Class Ventas
For Each bon In queryBonificacion For Each bon In queryBonificacion
SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion) SbFiltro.AppendFormat("'{0}',", bon.CveVentaBonificacion)
ListaBon.Add(New VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion}) ListaBon.Add(New Modelos.VentasBonificaciones() With {.CveVentaRNCCargo = bon.CveVentaRNCCargo, .CveVentaBonificacion = bon.CveVentaBonificacion, .ImporteBonificacion = bon.ImporteBonificacion, .IVABonificacion = bon.IVABonificacion})
Next Next
SbFiltro.Remove(SbFiltro.Length - 1, 1) SbFiltro.Remove(SbFiltro.Length - 1, 1)
@@ -31394,7 +31423,7 @@ Partial Class Ventas
Dim CveMetodoPago As Integer = -1 Dim CveMetodoPago As Integer = -1
Dim MetodoPagoDif As Boolean = False Dim MetodoPagoDif As Boolean = False
Dim ListaVentaDetalleCotizacion As List(Of MVentaDetalleCotizacion) = Nothing Dim ListaVentaDetalleCotizacion As List(Of Modelos.MVentaDetalleCotizacion) = Nothing
If ChkCotProductos.Checked Then If ChkCotProductos.Checked Then
For Each row As DataRow In DTSeleccionadas.Rows For Each row As DataRow In DTSeleccionadas.Rows
@@ -31524,13 +31553,8 @@ Partial Class Ventas
' Return Not ErrorAjuste ' Return Not ErrorAjuste
'End Function 'End Function
Private Class MVentaDetalleCotizacion Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of Modelos.MVentaDetalleCotizacion)
Public Property CveVentaDetalle As Integer Dim Retorno As New List(Of Modelos.MVentaDetalleCotizacion)
Public Property Cantidad As Decimal
End Class
Private Function CalculaUsadosCotizacion(ByRef SbVentasDetalle As StringBuilder, ByVal DTSeleccionadas As DataTable, ByVal DtCotizaciones As DataTable) As List(Of MVentaDetalleCotizacion)
Dim Retorno As New List(Of MVentaDetalleCotizacion)
Dim DTTamanios As DataTable = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) Dim DTTamanios As DataTable = ClsPaginas.GlobalDTAcumTamaños(UsuarioActual.CveEmpresa)
@@ -31540,7 +31564,7 @@ Partial Class Ventas
Dim tCantidad = If(ChkCotProductos.Checked, GvCotPS.Rows(IndiceGVCotDataKey(GvCotPS, Dr("CveVentaDetalle").ToString())).FCTextBox("TxtCantidadCot").Text.ToDecimal, Dr("Cantidad")).ToString().ToDecimal Dim tCantidad = If(ChkCotProductos.Checked, GvCotPS.Rows(IndiceGVCotDataKey(GvCotPS, Dr("CveVentaDetalle").ToString())).FCTextBox("TxtCantidadCot").Text.ToDecimal, Dr("Cantidad")).ToString().ToDecimal
Dr("Cantidad") = tCantidad Dr("Cantidad") = tCantidad
Retorno.Add(New MVentaDetalleCotizacion() With {.CveVentaDetalle = Dr("CveVentaDetalle").ToString().ToEntero(), .Cantidad = tCantidad}) Retorno.Add(New Modelos.MVentaDetalleCotizacion() With {.CveVentaDetalle = Dr("CveVentaDetalle").ToString().ToEntero(), .Cantidad = tCantidad})
Next Next
@@ -31599,7 +31623,7 @@ Partial Class Ventas
Dim CveVentaDetalleUsado = DtCotizaciones.FiltroPrimeroValor("CveVentaDetalle", $"CveVenta = {drowPsTamaños("CveVenta")} AND CvePS = {drowPsTamaños("CvePS")}").ToEntero() Dim CveVentaDetalleUsado = DtCotizaciones.FiltroPrimeroValor("CveVentaDetalle", $"CveVenta = {drowPsTamaños("CveVenta")} AND CvePS = {drowPsTamaños("CvePS")}").ToEntero()
SbVentasDetalle.AppendFormat("{0},", CveVentaDetalleUsado) SbVentasDetalle.AppendFormat("{0},", CveVentaDetalleUsado)
Retorno.Add(New MVentaDetalleCotizacion() With {.CveVentaDetalle = CveVentaDetalleUsado, .Cantidad = drowPsTamaños("Cantidad").ToString().ToDecimal()}) Retorno.Add(New Modelos.MVentaDetalleCotizacion() With {.CveVentaDetalle = CveVentaDetalleUsado, .Cantidad = drowPsTamaños("Cantidad").ToString().ToDecimal()})
End If End If
Next Next
@@ -32877,6 +32901,7 @@ Partial Class Ventas
'REMOVER EVENTO PARA RECARGAR ALMACEN 'REMOVER EVENTO PARA RECARGAR ALMACEN
spanAlmacen.Attributes.Remove("onclick") spanAlmacen.Attributes.Remove("onclick")
Tab.ActiveTabIndex = 1 Tab.ActiveTabIndex = 1
HdnCargarInventario.Value = "False"
Updatetabs.Update() Updatetabs.Update()
@@ -33068,7 +33093,12 @@ Partial Class Ventas
If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
TxtFecha.Text = Now.ToString() TxtFecha.Text = Now.ToString()
End If End If
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
'SI TIENE LINEA ADICIONAL, NO DEBE MODIFICAR LA FECHA YA ASIGNADA
If DdlLineaAdicional.SelectedValue.ToEntero() <= 0 Then
TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
End If
TxtFechaEjecucion.Text = Now.ToString() TxtFechaEjecucion.Text = Now.ToString()
DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty) DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty)
@@ -34438,18 +34468,6 @@ Partial Class Ventas
' ObjBancos.Dispose() ' ObjBancos.Dispose()
' If ObjAC IsNot Nothing Then ObjAC.Dispose() ' If ObjAC IsNot Nothing Then ObjAC.Dispose()
'End Sub 'End Sub
Partial Class Descuentos
Public Consec As Integer
Public ImporteDescuento As Decimal = 0
Public CvePromocionDetalle As Integer = -1
Public PU As Decimal = 0
Public EsPUModificado As Boolean = False
Public ImporteProntoPago As Decimal = 0
Public NombrePromo As String = ""
Public CveMarca As Integer = -1
Public ObsDescuento As String = ""
End Class
Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs) Protected Sub btnupEventoBitacora_Click(sender As Object, e As EventArgs)
CargaEventoBitacora() CargaEventoBitacora()
End Sub End Sub
@@ -34718,19 +34736,10 @@ Partial Class Ventas
#End Region #End Region
Partial Class VentasBonificaciones
Public CveVentaRNCCargo As Integer = -1
Public CveVentaBonificacion As Integer = -1
Public ImporteBonificacion As Decimal = 0
Public IVABonificacion As Decimal = 0
End Class
#Region " N O T A - D E - C R E D I T O - P R O N T O - P A G O" #Region " N O T A - D E - C R E D I T O - P R O N T O - P A G O"
Private Function GenerarNCProntoPago(SqlTransaccion As SqlClient.SqlTransaction, ByRef ObjCliente As ClsClientes, ByRef ObjConta As ClsContPAQi, ObjFactura As Modelos.Factura) As MensajeProntoPago Private Function GenerarNCProntoPago(SqlTransaccion As SqlClient.SqlTransaction, ByRef ObjCliente As ClsClientes, ByRef ObjConta As ClsContPAQi, ObjFactura As Modelos.Factura) As Modelos.MensajeProntoPago
Dim Retorno As New MensajeProntoPago Dim Retorno As New Modelos.MensajeProntoPago
Dim Resp As New Modelos.Factura.MMensajeFactura Dim Resp As New Modelos.Factura.MMensajeFactura
Dim ObjFacturaProntoPago As Modelos.Factura = Nothing Dim ObjFacturaProntoPago As Modelos.Factura = Nothing
@@ -35198,11 +35207,6 @@ Partial Class Ventas
Return DtVentasNC Return DtVentasNC
End Function End Function
Public Class MensajeProntoPago
Public Property ObjFacturaProntoPago As Modelos.Factura
Public Property Mensaje As Modelos.Factura.MMensajeFactura
End Class
#End Region #End Region
Protected Sub LnkAplicarRNCDevolucion_Click(sender As Object, e As EventArgs) Protected Sub LnkAplicarRNCDevolucion_Click(sender As Object, e As EventArgs)
@@ -35459,11 +35463,6 @@ Partial Class Ventas
' UpParametros.Update() ' UpParametros.Update()
'End Sub 'End Sub
Public Class MAnticipoRelacionado
Public Property CveVenta As Integer
Public Property FolioFiscal As String
End Class
Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs) Protected Sub LnkEditarDir_Click(sender As Object, e As EventArgs)
DdlDireccionEnvio.Enabled = True DdlDireccionEnvio.Enabled = True
LnkEditarDir.Visible = False LnkEditarDir.Visible = False
@@ -36442,7 +36441,7 @@ Partial Class Ventas
'AL FACTURAR CON LINEA ADICIONAL TIPO PO, SE SUMARÁN LOS DIAS DE VENCIMIENTO A LA FECHA ACTUAL 'AL FACTURAR CON LINEA ADICIONAL TIPO PO, SE SUMARÁN LOS DIAS DE VENCIMIENTO A LA FECHA ACTUAL
If RowLinea("TipoLinea").ToString() = "2" Then If RowLinea("TipoLinea").ToString() = "2" Then
TxtFechaPago.Text = Now.AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy") TxtFechaPago.Text = TxtFecha.Text.ToDate().AddDays(RowLinea("DiasVencimiento").ToString().ToEntero()).ToString("dd/MM/yyyy")
Else Else
TxtFechaPago.Text = RowLinea("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy") TxtFechaPago.Text = RowLinea("FechaVencimiento").ToString().ToDateTime().ToString("dd/MM/yyyy")
End If End If
@@ -36590,6 +36589,7 @@ Partial Class Ventas
'REMOVER EVENTO PARA RECARGAR ALMACEN 'REMOVER EVENTO PARA RECARGAR ALMACEN
spanAlmacen.Attributes.Remove("onclick") spanAlmacen.Attributes.Remove("onclick")
Tab.ActiveTabIndex = 1 Tab.ActiveTabIndex = 1
HdnCargarInventario.Value = "False"
Updatetabs.Update() Updatetabs.Update()
End Sub End Sub
Protected Sub LBAplicaDevolucion_Click(sender As Object, e As EventArgs) Protected Sub LBAplicaDevolucion_Click(sender As Object, e As EventArgs)