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:
HECTOR RODRIGUEZ
2021-03-03 09:34:53 -07:00
parent 44c72b0647 039a624810
commit af200988f9
3 changed files with 152 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
Compras/Compras.aspx.vb
View File

@@ -3987,21 +3987,10 @@ Partial Class Compras_Compras
Protected Sub BtnGuardar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
AjustaCombustibles()
'------------------INICIA VALIDACIONES------------------
Dim TempIva As Decimal
For Each drowv As DataRow In TmpDT.Rows
TempIva = TempIva + (drowv("Total").ToString.ToDecimal * drowv("IVAPorcentaje").ToString.ToDecimal)
Next
Dim DifGenelraIvas As Decimal = (TxtIVA.Text.ToDecimal - TempIva)
If Math.Abs(DifGenelraIvas) > 0.2 Then
Alert($"Los importes no coinciden, error en calculo de IVA diferencia { DifGenelraIvas }", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
@@ -6508,7 +6497,7 @@ Partial Class Compras_Compras
End If
Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141,152,159,160,161,162,163) andalso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141, 152, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -6836,8 +6825,8 @@ Partial Class Compras_Compras
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora
Dim Valor = (From dr1 In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").AsEnumerable()
Join dr2 In TmpDT.AsEnumerable On dr1.Field(Of Integer)("CvePSCargo") Equals dr2.Field(Of Integer)("CvePS")
@@ -7063,7 +7052,7 @@ Partial Class Compras_Compras
End If
Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158)
If tipoCambioActual <> 1 Then
Select Case ConceptoContable
Case 5
@@ -8540,6 +8529,61 @@ Partial Class Compras_Compras
End If
End Sub
Private Sub AjustaCombustibles()
If Not TmpDT.Columns.Contains("AplicaIEPS") Then
TmpDT.Columns.Add(New DataColumn("AplicaIEPS", GetType(Boolean)))
End If
If Not TmpDT.Columns.Contains("IEPSGrabaIVA") Then
TmpDT.Columns.Add(New DataColumn("IEPSGrabaIVA", GetType(Boolean)))
End If
For Each dRow As DataRow In TmpDT.Rows
If GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows.Count > 0 Then
Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dRow("CvePS").ToString.ToEntero).Rows(0)
dRow("AplicaIEPS") = Boolean.Parse(DrPS("AplicaIEPS").ToString)
dRow("IEPSGrabaIVA") = Boolean.Parse(DrPS("IEPSGrabaIVA").ToString)
Else
dRow("AplicaIEPS") = False
dRow("IEPSGrabaIVA") = False
End If
Next
Dim DTConsulta As New DataTable
DTConsulta = TmpDT.FiltraParametros(" AplicaIEPS = 'True' AND IEPSGrabaIVA = 'False' AND IVA > 0 ")
If DTConsulta.Rows.Count > 0 Then
Dim IndiceContador As Integer = 0
Dim IndiceUltimo As Integer = 0
For Each dRow As DataRow In TmpDT.Rows
If Boolean.Parse(dRow("AplicaIEPS").ToString) And Boolean.Parse(dRow("IEPSGrabaIVA").ToString) = False And dRow("IVA").ToString.ToDecimal > 0 Then
IndiceUltimo = IndiceContador
End If
IndiceContador = IndiceContador + 1
Next
Dim IVADetalles As Decimal = TmpDT.SUM("IVA", " IVA > 0 ").ToDecimal
Dim DiferenciaIVas As Decimal = TxtIVA.Text.ToDecimal - IVADetalles
If Math.Abs(DiferenciaIVas) > 0.01D Then
TmpDT.Rows(IndiceUltimo)("IVA") = TmpDT.Rows(IndiceUltimo)("IVA").ToString.ToDecimal + DiferenciaIVas
TmpDT.AcceptChanges()
End If
End If
End Sub
Protected Sub TxtCodigo_TextChanged(sender As Object, e As System.EventArgs) Handles TxtCodigo.TextChanged
Dim ObjProveedores As New ClsCompProveedores()

162
Empresas/119/Formatos/Polizas.rdlc
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
<AutoRefresh>0</AutoRefresh>
<DataSources>
<DataSource Name="DataSet1">
@@ -17,78 +17,78 @@
<CommandText>/* Local Query */</CommandText>
</Query>
<Fields>
<Field Name="Id">
<DataField>Id</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="TipoPoliza">
<DataField>TipoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreCuenta">
<DataField>NombreCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoCuenta">
<DataField>CodigoCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Numero">
<DataField>Numero</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Concepto">
<DataField>Concepto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ConceptoPoliza">
<DataField>ConceptoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoMovto">
<DataField>TipoMovto</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Cargos">
<DataField>Cargos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Abonos">
<DataField>Abonos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SegNeg">
<DataField>SegNeg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cargo">
<DataField>Cargo</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Abono">
<DataField>Abono</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreUsuario">
<DataField>NombreUsuario</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Id">
<DataField>Id</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Fecha">
<DataField>Fecha</DataField>
<rd:TypeName>System.DateTime</rd:TypeName>
</Field>
<Field Name="TipoPoliza">
<DataField>TipoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreCuenta">
<DataField>NombreCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CodigoCuenta">
<DataField>CodigoCuenta</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Numero">
<DataField>Numero</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Folio">
<DataField>Folio</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Referencia">
<DataField>Referencia</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Concepto">
<DataField>Concepto</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="ConceptoPoliza">
<DataField>ConceptoPoliza</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="TipoMovto">
<DataField>TipoMovto</DataField>
<rd:TypeName>System.Int32</rd:TypeName>
</Field>
<Field Name="Cargos">
<DataField>Cargos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Abonos">
<DataField>Abonos</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SegNeg">
<DataField>SegNeg</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Cargo">
<DataField>Cargo</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Abono">
<DataField>Abono</DataField>
<rd:TypeName>System.Decimal</rd:TypeName>
</Field>
<Field Name="Codigo">
<DataField>Codigo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreUsuario">
<DataField>NombreUsuario</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet1</rd:DataSetName>
@@ -171,6 +171,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -460,6 +461,7 @@
</Style>
</Textbox>
<ColSpan>7</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -551,6 +553,7 @@
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -771,6 +774,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -992,6 +996,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1206,6 +1211,7 @@
<PaddingBottom>1pt</PaddingBottom>
</Style>
</Textbox>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell>
@@ -1217,7 +1223,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>=Fields!NombreUsuario.Value</Value>
<Value>=Fields!NombreUsuario.Value</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>1pt</FontSize>
@@ -1540,6 +1546,7 @@
</Style>
</Textbox>
<ColSpan>3</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents>
</TablixCell>
<TablixCell />
@@ -1677,7 +1684,10 @@
<TablixMember>
<Group Name="Id">
<GroupExpressions>
<GroupExpression>=Fields!Id.Value</GroupExpression>
<GroupExpression>=Fields!Fecha.Value</GroupExpression>
<GroupExpression>=Fields!TipoPoliza.Value</GroupExpression>
<GroupExpression>=Fields!Numero.Value</GroupExpression>
<GroupExpression>=Fields!ConceptoPoliza.Value</GroupExpression>
</GroupExpressions>
<PageBreak>
<BreakLocation>End</BreakLocation>
@@ -1685,7 +1695,7 @@
</PageBreak>
<Variables>
<Variable Name="UsuarioRegistro">
<Value>=Fields!NombreUsuario.Value</Value>
<Value>=Fields!NombreUsuario.Value</Value>
</Variable>
</Variables>
</Group>

8
Ventas/ClientesAbonar.aspx.vb
View File

@@ -3001,7 +3001,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3028,7 +3028,7 @@ Partial Class Ventas_ClientesAbonar
'CANCELA IE
If Not ErrorCancelar Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If
@@ -3041,12 +3041,12 @@ Partial Class Ventas_ClientesAbonar
If FechaCorteIE.Month < TxtFechaDocumento.Text.ToDate.Month Or FechaCorteIE.Year < TxtFechaDocumento.Text.ToDate.Year Then
'CANCELA IE MES ANTERIOR
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
Else
'CANCELA IE MES ACTUAL
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) Then
If Not Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIESustitucion, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaDocumento.Text.ToDate) > 0 Then
ErrorCancelar = True
End If
End If