Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git
This commit is contained in:
rakcsle
@@ -32,9 +32,9 @@
|
||||
<div class="titlefiltros caption ">
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-1 truncate" style="width: 110px;">Cuenta:</label>
|
||||
<label class="col-md-1 truncate" style="width: 70px;">Cuenta:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
<asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width:200px">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
@@ -77,22 +77,22 @@
|
||||
<asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
|
||||
<asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
|
||||
<asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" ValidationGroup="">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="portlet-body" style="display: none">
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
@@ -104,13 +104,13 @@
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6" runat="server" style="text-align: right;">
|
||||
<label style="font-size:1.2em">Cuenta Depósito:</label>
|
||||
<div class="col-md-6" runat="server" >
|
||||
<label style=" ">Cuenta Depósito:</label>
|
||||
<asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" style="width: 300px;"></asp:DropDownList>
|
||||
</div>
|
||||
<div class="col-md-3" runat="server" style="text-align: left;">
|
||||
<div class="col-md-1" >
|
||||
<label style="width:70px; font-size:1.2em;">Fecha:</label>
|
||||
<label style="width:70px;">Fecha:</label>
|
||||
</div>
|
||||
<div class="col-md-1" >
|
||||
<div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-top: 0; width: 140px !important;">
|
||||
@@ -125,15 +125,13 @@
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="col-md-3" style="text-align: right; font-size:1.2em;" runat="server" id="divLabelTotal" visible="false">
|
||||
<asp:label runat="server">Seleccionado: $</asp:label>
|
||||
<asp:label runat="server" ID="lblValorTotal">00.00</asp:label>
|
||||
<asp:label runat="server" ID="lblValorTotal">0.00</asp:label>
|
||||
<asp:label runat="server" ID="lblValorTotalSeleccionado" Visible="false"></asp:label>
|
||||
|
||||
</div>
|
||||
@@ -141,8 +139,8 @@
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-3" runat="server" Id="DivComision" Visible="false">
|
||||
<label style="width: 70px; font-size:1.2em">Comisión:</label>
|
||||
<asp:TextBox runat="server" ID="TxtComision" Class="table-group-action-input form-control input-inline input-small input-sm select2me" style="width: 70px;"></asp:TextBox>
|
||||
<label style="width: 70px; ">Faltante/Sobrante:</label>
|
||||
<asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="75px"></asp:TextBox>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblSubproyecto" >SubProyecto:</label>
|
||||
@@ -151,15 +149,15 @@
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblClasificacion">Clasificación:</label>
|
||||
<label class="col-md-1 truncate" style="width: 120px; display: none" id="LblClasificacion">Clasificación:</label>
|
||||
<div class="col-md-2" style="display: none" id="divClasificacion">
|
||||
<asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server" Width="50%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
<asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" CssClass=" form-control input-sm select2me" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div style="height:550px;overflow-x:scroll">
|
||||
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; font-size: medium;" GridLines="None">
|
||||
<asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
|
||||
<Columns>
|
||||
<asp:TemplateField>
|
||||
<HeaderTemplate>
|
||||
@@ -200,7 +198,7 @@
|
||||
</asp:TemplateField>
|
||||
|
||||
</Columns>
|
||||
<RowStyle Font-Size="Smaller" />
|
||||
|
||||
<HeaderStyle CssClass="Titulos" />
|
||||
</asp:GridView>
|
||||
</div>
|
||||
@@ -231,49 +229,57 @@
|
||||
var comision = 0;
|
||||
|
||||
function FnSuma(chk, cantidad) {
|
||||
debugger;
|
||||
var saldo = ToDouble($('#C_lblValorTotal').text());
|
||||
debugger;
|
||||
if (chk.checked == false) {
|
||||
cantidad = cantidad * -1;
|
||||
debugger;
|
||||
}
|
||||
saldo = saldo + cantidad;
|
||||
debugger;
|
||||
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
||||
$('#C_lblValorTotalSeleccionado').text(FormatoNumero(saldo, 2));
|
||||
ValorTotalSeleccionado = saldo
|
||||
|
||||
debugger;
|
||||
}
|
||||
|
||||
function txtSuma(txt) {
|
||||
var saldo = ToDouble($('#C_lblValorTotal').text());
|
||||
var comision2 = ToDouble($('#C_TxtComision').val());
|
||||
if (comision2 < 0) {
|
||||
comision2 = comision2 * -1;
|
||||
debugger;
|
||||
}
|
||||
if (comision2 < ValorTotalSeleccionado) {
|
||||
comision2 = comision2 - comision
|
||||
saldo = saldo - comision2;
|
||||
$('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
|
||||
comision = ToDouble($('#C_TxtComision').val())
|
||||
if (comision < 0) {
|
||||
comision = comision * -1;
|
||||
debugger;
|
||||
}
|
||||
} else {
|
||||
$('#C_TxtComision').val(comision)
|
||||
var comisionNegativo = ToDouble($('#C_TxtComision').val());
|
||||
if (comisionNegativo < 0) {
|
||||
$('#C_TxtComision').val(comision*-1)
|
||||
debugger;
|
||||
} else {
|
||||
$('#C_TxtComision').val(comision)
|
||||
|
||||
}
|
||||
alert("No es posible poner una comision superior a lo seleccionado")
|
||||
}
|
||||
|
||||
if (comision > 0) {
|
||||
if (comision != 0) {
|
||||
$('#LblSubproyecto').css("display", "block");
|
||||
$('#divSubProyecto').css("display", "block");
|
||||
$('#LblClasificacion').css("display", "block");
|
||||
$('#divClasificacion').css("display", "block");
|
||||
|
||||
debugger;
|
||||
|
||||
} else {
|
||||
$('#LblSubproyecto').css("display", "none");
|
||||
$('#divSubProyecto').css("display", "none");
|
||||
$('#LblClasificacion').css("display", "none");
|
||||
$('#divClasificacion').css("display", "none");
|
||||
debugger;
|
||||
}
|
||||
|
||||
|
||||
|
||||
@@ -41,7 +41,7 @@ Partial Class Bancos_DepositosCaja
|
||||
DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
|
||||
DdlSubProyectoDeposito.DataBind()
|
||||
|
||||
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
|
||||
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
|
||||
DdlClasificacion.DataBind()
|
||||
End Sub
|
||||
|
||||
@@ -62,7 +62,7 @@ Partial Class Bancos_DepositosCaja
|
||||
|
||||
UpGvFacturas.Update()
|
||||
GvFacturas.DataBind()
|
||||
lblValorTotal.Text = "00.00"
|
||||
lblValorTotal.Text = "0.00"
|
||||
divLabelTotal.Visible = True
|
||||
DivComision.Visible = True
|
||||
End Sub
|
||||
@@ -71,19 +71,21 @@ Partial Class Bancos_DepositosCaja
|
||||
|
||||
Dim TotalImporte As Decimal = 0
|
||||
Dim TotalImportePrePoliza As Decimal
|
||||
Dim Comision As Decimal = TxtComision.Text.Todecimal
|
||||
|
||||
For Each Gvr As GridViewRow In GvFacturas.Rows
|
||||
If Gvr.FCCheckBox("ChkFactura").Checked Then TotalImporte += Gvr.DataKey("Importe").ToDecimal
|
||||
Next
|
||||
|
||||
If TotalImporte = 0 Then
|
||||
Alert("Seleccion una factura para realizar el deposito", TipoMensaje.MsgAdvertencia)
|
||||
Alert("Seleccion una factura para realizar el depósito", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
TotalImportePrePoliza = TotalImporte
|
||||
If TxtComision.Text.ToEntero > 0 Then
|
||||
TotalImporte = TotalImporte - TxtComision.Text.ToEntero
|
||||
If Comision <> 0 Then
|
||||
TotalImporte = TotalImporte + Comision
|
||||
Comision = -(Comision) ' se inverte el valor, va cargada
|
||||
If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
|
||||
Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
@@ -125,28 +127,28 @@ Partial Class Bancos_DepositosCaja
|
||||
|
||||
NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("Vta", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
|
||||
'Salida de Caja Chica
|
||||
FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
|
||||
'Entrada a bancos
|
||||
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
|
||||
If Not FolioIE > 0 Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
If TxtComision.Text.ToEntero > 0 Then
|
||||
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
|
||||
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
|
||||
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TxtComision.Text.ToEntero, "Comisión", 78, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=TxtComision.Text.ToEntero * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
|
||||
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Depósito: {1}</a>     <br/> ", CveIEOrigen, FolioIE)
|
||||
|
||||
|
||||
If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
|
||||
|
||||
If Comision <> 0 Then
|
||||
CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
|
||||
CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
|
||||
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Comision, "Comisión", 51, "Depósito Bancario ", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
Else OcurrioError = True
|
||||
End If
|
||||
Else
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
For Each Gvr As GridViewRow In GvFacturas.Rows
|
||||
@@ -155,7 +157,7 @@ Partial Class Bancos_DepositosCaja
|
||||
'Datos de las Nuevas PrePolizas
|
||||
'Entrada a Bancos
|
||||
|
||||
Dim Importe As Double = Gvr.DataKey("Importe").ToDouble
|
||||
Dim Importe As Decimal = Gvr.DataKey("Importe").ToDecimal
|
||||
Dim SerieFolio As String = Gvr.DataKey("SerieFolio").ToString
|
||||
|
||||
'Datos de las Prepolizas A Cancelar
|
||||
@@ -163,14 +165,14 @@ Partial Class Bancos_DepositosCaja
|
||||
Dim CveVenta As Integer = Gvr.DataKey("CveVenta").ToEntero
|
||||
Dim CvePrePoliza As Integer = Gvr.DataKey("CvePrePoliza").ToEntero
|
||||
|
||||
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, 8)
|
||||
FolioIE = ObjBancos.GetNextFolio(DdlCajaChica.SelectedValue.ToEntero, 2)
|
||||
If Not FolioIE > 0 Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
CveIEDestino = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Importe.ToDecimal, SerieFolio, 30, "Depósito Bancario", Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=Importe.ToDecimal * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
|
||||
If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
|
||||
OcurrioError = True
|
||||
End If
|
||||
|
||||
@@ -179,15 +181,13 @@ Partial Class Bancos_DepositosCaja
|
||||
OcurrioError = True
|
||||
End If
|
||||
Dim StrEncript As String = Encripta($"OP=DC&CveIE={CveIEDestino}&CuentaCaja={DdlCajaChica.SelectedItem.Text}&CuentaDepo={DdlCuentaDeposito.SelectedItem.Text}")
|
||||
documentos += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}' target='_blank' class='Texto'>Documento {1}</a>     ", CveIEDestino.ToString, SerieFolio)
|
||||
documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, SerieFolio)
|
||||
|
||||
'documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir {1}</a> <br/><br/> ", StrEncript, SerieFolio)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
If OcurrioError Then
|
||||
ObjContabilidad.RollBack()
|
||||
Alert("Ocurrio un error al realizar los depositos", TipoMensaje.MsgError)
|
||||
@@ -195,8 +195,11 @@ Partial Class Bancos_DepositosCaja
|
||||
ObjContabilidad.Commit()
|
||||
CargaDatos()
|
||||
|
||||
documentos += String.Format("<a class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"">Prepóliza</a> <br/><br/> ", NuevaCvePrePoliza)
|
||||
|
||||
Alert(documentos.ToString)
|
||||
|
||||
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
|
||||
@@ -732,14 +732,15 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
Dim AnioDocumento As Integer = FechaDocumento.Year
|
||||
Dim MesDocumento As Integer = FechaDocumento.Month
|
||||
|
||||
If AnioFactura > AnioDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
If UsuarioActual.Empresa.UsaAC = False Then
|
||||
If AnioFactura > AnioDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
@@ -782,7 +783,7 @@ Partial Class Bancos_ProveedoresAbonar
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim ImporteSeleccionado As Decimal = 0
|
||||
Dim ImporteSeleccionado As Decimal = 0
|
||||
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
|
||||
Dim Validada As Boolean = False
|
||||
Dim MsgValidadas As New StringBuilder
|
||||
|
||||
@@ -4660,7 +4660,7 @@ Partial Class Inventarios_EntradasSalidas
|
||||
CveUM = DrPS("CveUnidadMedida").ToString().ToEntero()
|
||||
UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("UnidadMedida", $"CveUnidadMedida={CveUM}")
|
||||
End If
|
||||
AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", "-1", "-1", "",
|
||||
AddNew(CvePS, ProductoServicio, CveUM, UM, Cantidad, PrecioUnitario, Serie.Replace(" ", String.Empty), "", Codigo, "-1", "",
|
||||
Lote, Caducidad.ToDate, CveSeccionAlmacen, SeccionAlmacen, CargarGV:=False)
|
||||
|
||||
NumAgregados = NumAgregados + 1
|
||||
|
||||
@@ -671,14 +671,16 @@ Partial Class Ventas_ClientesAbonar
|
||||
Dim AnioDocumento As Integer = FechaDocumento.Year
|
||||
Dim MesDocumento As Integer = FechaDocumento.Month
|
||||
|
||||
If AnioFactura > AnioDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
End If
|
||||
If UsuarioActual.Empresa.UsaAC = False Then
|
||||
If AnioFactura > AnioDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
|
||||
FoliosFechasValFechaDocumento.AppendLine($"Folio: { gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
|
||||
ValFechaDocumento = True
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
@@ -973,8 +975,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
|
||||
importeMX = ImporteMovimiento * tipoCambioVenta
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = tipoCambioVenta
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
|
||||
@@ -1020,8 +1022,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = gvr.DataKey("RetIVA").ToDecimal * PorcentajePago
|
||||
importeMX = ImporteMovimiento * tipoCambioVenta
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = tipoCambioVenta
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
|
||||
@@ -1055,8 +1057,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = gvr.DataKey("RetISR").ToDecimal * PorcentajePago
|
||||
importeMX = ImporteMovimiento * tipoCambioVenta
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = tipoCambioVenta
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
|
||||
@@ -1137,8 +1139,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
|
||||
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
@@ -1185,8 +1187,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = (gvr.DataKey("RetIVA").ToDecimal * PorcentajePago)
|
||||
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
|
||||
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
@@ -1220,8 +1222,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
ImporteMovimiento = (gvr.DataKey("RetISR").ToDecimal * PorcentajePago)
|
||||
importeMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
End If
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2, MidpointRounding.AwayFromZero)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioVenta)
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
|
||||
@@ -1484,8 +1486,8 @@ Partial Class Ventas_ClientesAbonar
|
||||
TipoMovimiento = True
|
||||
End If
|
||||
|
||||
ImporteMovimiento = Math.Round(ImporteMovimiento, 2, MidpointRounding.AwayFromZero)
|
||||
importeMX = Math.Round(importeMX, 2)
|
||||
ImporteMovimiento = ImporteMovimiento.RoundSQL
|
||||
importeMX = importeMX.RoundSQL
|
||||
TipoCambioGeneral = tipoCambioPago
|
||||
CveSubProyectoContabilizar = CveSubProyecto
|
||||
|
||||
|
||||
@@ -16898,7 +16898,7 @@ Partial Class Ventas
|
||||
End If
|
||||
|
||||
|
||||
TotalCalculableImpuestos = (Cantidad * (PU)) - Descuento
|
||||
TotalCalculableImpuestos = ((Cantidad * (PU)) - Descuento).RoundSQL
|
||||
TotalCalculableImpuestosIVA = TotalCalculableImpuestos * (1 + DrPS("IEPSPorcentaje").ToString().ToDecimal)
|
||||
|
||||
Row("PU") = PU
|
||||
@@ -16968,7 +16968,7 @@ Partial Class Ventas
|
||||
Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
|
||||
Row("TipoDescuento") = HdnTipoDescuento.Value
|
||||
Row("CvePromocionDetalle") = CvePromocionDetalle
|
||||
Row("Total") = (Cantidad * PU)
|
||||
Row("Total") = (Cantidad * PU).RoundSQL(NumeroDecimales)
|
||||
Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
|
||||
|
||||
'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
|
||||
@@ -17089,7 +17089,7 @@ Partial Class Ventas
|
||||
End If
|
||||
PU = PU.RoundSQL(6)
|
||||
DrPoliza("PU") = PU
|
||||
TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU))
|
||||
TotalCalculableImpuestos = (DrPoliza("Cantidad").ToString().ToDecimal * (PU)).RoundSQL
|
||||
|
||||
If DrPSAdicional("IVA").ToString().Contiene("-1", "") Then
|
||||
DrPoliza("PorcentajeIVA") = PorcentajeIVA
|
||||
@@ -17107,7 +17107,7 @@ Partial Class Ventas
|
||||
DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
|
||||
DrPoliza("Descuento") = 0 ' Descuento
|
||||
DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
|
||||
DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU)
|
||||
DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
|
||||
DrPoliza("TotalImporte") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
|
||||
DrPoliza("SATClaveProdServ") = DrPSAdicional("SATClavePS")
|
||||
DrPoliza("SATClaveUM") = DrPSAdicional("SATClaveUnidadMedida")
|
||||
|
||||
Reference in New Issue
Block a user