--merge RepEntregaAlmacen
This commit is contained in:
@@ -5558,7 +5558,7 @@ Partial Class Bancos_IE
|
||||
|
||||
If Banc.ExisteConexion Then
|
||||
Banc.Commit()
|
||||
Alert("El documento bancario quedó eliminado.", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
Alert($"El documento bancario quedó eliminado. {MsgEliminar}", TipoMensaje.MsgInformacion, "document.location.href=""/Bancos/RepIE.aspx""")
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
@@ -434,7 +434,7 @@
|
||||
<asp:CheckBox ID="ChkEmitirComplementoPago" CssClass="md-checksd" Text="Emitir Complemento de Pago" runat="server" align="Right" />
|
||||
<br />
|
||||
<asp:GridView ID="GvVentas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron movimientos" DataKeyNames="CveVenta,Saldo,Folio,CveCliente,CveMoneda,RetISR,RetIVA,IVA,IEPS,TipoCambio,Total,PorcentajeIVA"
|
||||
ToolTip="Listado de Movimientos" data-height="300" Style="width: 100%; height: 100%; text-align: center;" GridLines="None" HeaderStyle-ForeColor="Black">
|
||||
ToolTip="Listado de Movimientos" data-height="200" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" HeaderStyle-ForeColor="Black">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<ItemTemplate>
|
||||
@@ -450,7 +450,7 @@
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>Folio</HeaderTemplate>
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("Folio") %>'></asp:Literal>
|
||||
<asp:Literal ID="LtlFolio" runat="server" Text='<%# Eval("SerieFolio") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
<asp:TemplateField>
|
||||
|
||||
@@ -635,8 +635,8 @@ Partial Class Bancos_PopIECompras
|
||||
CveMonedaFiltros = dr("CveMoneda").ToString.ToEntero
|
||||
SerieFolio = dr("SerieFolio").ToString
|
||||
TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDecimal
|
||||
NombreProveedor = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
|
||||
|
||||
NombreProveedor = dr("RazonSocial").ToString 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RazonSocial", String.Format("CveProveedor = {0}", CveProveedor))
|
||||
|
||||
CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero
|
||||
|
||||
LtlTitulo.Text = "Cuentas por Pagar"
|
||||
@@ -832,19 +832,21 @@ Partial Class Bancos_PopIECompras
|
||||
ObjMov.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Protected Sub CargaVentas(Optional CveMoneda As Integer = 1)
|
||||
|
||||
Dim ObjCliente As New ClsClientes
|
||||
Dim CveCliente As Integer = -1
|
||||
|
||||
If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, "-1", "-1", "-1", ClienteRFC:=RFCProveedor, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
|
||||
If ObjVentas.DtResultados.FiltraParametros("Saldo > 0").Rows.Count > 0 Then
|
||||
CveCliente = ObjVentas.DtResultados(0)("CveCliente").ToString.ToEntero
|
||||
GvVentas.DataSource = ObjVentas.DtResultados.FiltraParametros($"Saldo > 0 AND CveMoneda = {CveMoneda}")
|
||||
GvVentas.DataBind()
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim ObjMovtos As New ClsMovimientos
|
||||
|
||||
Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", String.Format("RFC = '{0}'", RFCProveedor)).ToEntero
|
||||
|
||||
If ObjMovtos.GetCxCClienteDetalle(CveCliente, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa, -1) Then
|
||||
|
||||
GvVentas.DataSource = ObjMovtos.DtResultados.FiltraParametros($" Saldo > 0 AND CveVenta > 0 AND CveMoneda = {CveMoneda}")
|
||||
|
||||
End If
|
||||
ObjMovtos.Dispose()
|
||||
GvVentas.DataBind()
|
||||
|
||||
If CveCliente > 0 Then
|
||||
If ObjCliente.GetClientes(CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("IdCuentaCliente") = ObjCliente.IdCtaContClientes
|
||||
@@ -854,10 +856,10 @@ Partial Class Bancos_PopIECompras
|
||||
ViewState("IdCtaContMonedaExtranjeraCliente") = ObjCliente.IdCtaContMonedaExtranjera
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
ObjVentas.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjCliente.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
@@ -1908,7 +1910,11 @@ Partial Class Bancos_PopIECompras
|
||||
ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
|
||||
funcionalidad = 317
|
||||
ConceptoContable = 243
|
||||
ElseIf MovimientoPagar.ConceptoRetISR = 3 Then
|
||||
funcionalidad = 348
|
||||
ConceptoContable = 327
|
||||
End If
|
||||
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
||||
ImporteMX = ImporteMovimiento
|
||||
@@ -1951,6 +1957,9 @@ Partial Class Bancos_PopIECompras
|
||||
ElseIf MovimientoPagar.ConceptoRetISR = 2 Then
|
||||
funcionalidad = 318
|
||||
ConceptoContable = 244
|
||||
ElseIf MovimientoPagar.ConceptoRetISR = 3 Then
|
||||
funcionalidad = 348
|
||||
ConceptoContable = 328
|
||||
End If
|
||||
If CveMoneda = 1 AndAlso CveMonedaCompra = 1 Then
|
||||
ImporteMovimiento = MovimientoPagar.RetISR * PorcentajePago
|
||||
|
||||
@@ -1172,6 +1172,9 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
|
||||
funcionalidad = 317
|
||||
ConceptoContable = 243
|
||||
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then
|
||||
funcionalidad = 348
|
||||
ConceptoContable = 328
|
||||
End If
|
||||
|
||||
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||
@@ -1214,6 +1217,9 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 2 Then
|
||||
funcionalidad = 318
|
||||
ConceptoContable = 244
|
||||
ElseIf gvr.DataKey("CveRetISRConcepto").ToEntero = 3 Then
|
||||
funcionalidad = 348
|
||||
ConceptoContable = 328
|
||||
End If
|
||||
|
||||
If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
|
||||
@@ -1229,8 +1235,8 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
|
||||
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, TipoCambioPago, tipoCambioCompra)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = TipoCambioPago
|
||||
|
||||
If TipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{TipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
@@ -1272,8 +1278,8 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
ImporteMovimiento = gvr.DataKey("IVA").ToDecimal
|
||||
importeMX = ImporteMovimiento * tipoCambioCompra
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
|
||||
If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}"
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user