Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
rrene
@@ -2164,9 +2164,9 @@ Partial Class Compras_Compras
|
||||
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
|
||||
End If
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
|
||||
'End If
|
||||
|
||||
|
||||
End If
|
||||
@@ -2315,23 +2315,23 @@ Partial Class Compras_Compras
|
||||
'ASIGNA VALORES ORIGINALES PARA GUARDAR
|
||||
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
|
||||
|
||||
If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
' For Each dRow As DataRow In TmpDT.Rows
|
||||
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
|
||||
'comentado para reubicar el boton
|
||||
'tdIVA6.Visible = True
|
||||
' 'comentado para reubicar el boton
|
||||
' 'tdIVA6.Visible = True
|
||||
|
||||
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -6045,7 +6045,12 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
'Codigo anterior
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
|
||||
@@ -8855,11 +8860,14 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
|
||||
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
'End If
|
||||
|
||||
If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
|
||||
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -15258,6 +15266,9 @@ Partial Class Compras_Compras
|
||||
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
|
||||
LbSubTotalDif.Visible = False
|
||||
Vinculacion()
|
||||
ElseIf Math.Abs(SubTotalGV - SubTotalCompra) > DiferenciaPermitida And LblAmortizacion.Text.ToDecimal > 0 Then '2020-06-08 Oscar Permitir vincular cuando hay amortizacion de NC
|
||||
LbSubTotalDif.Visible = False
|
||||
Vinculacion()
|
||||
ElseIf Math.Abs(SubTotalGV - (SubTotalCompra - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
|
||||
LbSubTotalDif.Visible = False
|
||||
Vinculacion()
|
||||
@@ -17525,23 +17536,23 @@ Partial Class Compras_Compras
|
||||
GuardaAC()
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
'If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
|
||||
|
||||
'If UsuarioActual.CveRol = 1 Then
|
||||
' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
|
||||
'End If
|
||||
' 'If UsuarioActual.CveRol = 1 Then
|
||||
' ' Alert($"Ok funcionalidad 577 RetencionIVA { RetencionIVA} IVAOriginal {IVAOriginal}")
|
||||
' 'End If
|
||||
|
||||
If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
For Each dRow As DataRow In TmpDT.Rows
|
||||
If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
'Comnetado para reubicar el boton
|
||||
'tdIVA6.Visible = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
' If RetencionIVA = 0 And IVAOriginal > 0 Then
|
||||
' For Each dRow As DataRow In TmpDT.Rows
|
||||
' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
|
||||
' 'Comnetado para reubicar el boton
|
||||
' 'tdIVA6.Visible = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
|
||||
If ValidarUnFiltroSeleccionado() Then
|
||||
Dim ObjCompras As New ClsCompras()
|
||||
If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
|
||||
CveProveedor:=DdlProveedor.SelectedValue.ToEntero) Then
|
||||
CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
|
||||
If ObjCompras.DtResultados.Rows.Count > 0 Then
|
||||
LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
|
||||
GV.DataSource = ObjCompras.DtResultados
|
||||
@@ -111,7 +111,8 @@ Partial Class Compras_PopUpBuscarFolioC
|
||||
If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
|
||||
If TxtDescripcion.Text.Trim.Length > 0 Then Return True
|
||||
If TxtObservaciones.Text.Trim.Length > 0 Then Return True
|
||||
If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True
|
||||
If DdlTipoDocto.SelectedValue <> "-1" Then Return True
|
||||
If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
|
||||
Return False
|
||||
End Function
|
||||
End Class
|
||||
|
||||
@@ -61,7 +61,8 @@ Partial Class Compras_PopUpBuscarProveedor
|
||||
CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
|
||||
|
||||
If ValidarUnFiltroSeleccionado() Then
|
||||
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then
|
||||
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1,
|
||||
UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor, TopSelect:=100) Then
|
||||
If ObjProveedor.DtResultados.Rows.Count > 0 Then
|
||||
LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
|
||||
GV.DataSource = ObjProveedor.DtResultados
|
||||
|
||||
@@ -3108,7 +3108,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("Sucursal", "Sucursal"))
|
||||
params.Add(New ReportParameter("Cliente", NombreCliente))
|
||||
|
||||
ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
|
||||
ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
|
||||
Case 7
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim CiudadSucursal As String = ""
|
||||
|
||||
Reference in New Issue
Block a user