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

RepIva RPTS

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-03-14 11:14:15 -07:00
parent 58fcc98f7e
commit 9d5e9f3f86
11 changed files with 45 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/Modelos.vb
View File

@@ -5508,6 +5508,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
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;" Visible="false"></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;