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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-03-05 10:56:47 -07:00
parent 639aafa6e8 205efd715c
commit 485c92aeb3
6 changed files with 1196 additions and 995 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/Compras.aspx.vb
View File

@@ -1820,6 +1820,7 @@ Partial Class Compras_Compras
'PERMISO PARA MODIFICACIÓN DE FECHA AUN CON FACTURA
TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
TxtSubTotal.Enabled = False
TxtDescuento.Enabled = False
@@ -2758,7 +2759,11 @@ Partial Class Compras_Compras
LbAgregar.Enabled = False
TxtSerie.Enabled = False
TxtFolio.Enabled = False
TxtFecha.Enabled = False
ImgFecha.Enabled = False
CEFecha.Enabled = False
DdlProveedor.Enabled = False
DdlProveedorSucursal.Enabled = False
DdlEstatus.Enabled = False
@@ -14661,7 +14666,7 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
Select Case DdlOCVinculaInv.SelectedValue.ToEntero
Case 176
DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1")
DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1) AND CantidadPorAdelantado > 0")
Case 205
DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1")
End Select

1069
Compras/RepCompras.aspx
View File

File diff suppressed because it is too large Load Diff

58
Compras/RepCompras.aspx.vb
View File

@@ -130,7 +130,8 @@ Partial Class Compras_RepCompras
DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
End Sub
Private Sub CargaCombos()
Private Sub CargaCombos()
txtFechaI.Text = $"01/01/{Now.Year}"
'CargaProveedores
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -169,12 +170,9 @@ Partial Class Compras_RepCompras
Private Sub ConfiguraEmpresa()
'Dim ObjEmpresa As New ClsEmpresas()
'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False
'End If
'ObjEmpresa.Dispose()
ChkIVA.Checked = True
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
End Sub
Private Sub CargaSubProyecto()
@@ -211,11 +209,13 @@ Partial Class Compras_RepCompras
CargaDatos()
ConfiguraEmpresa()
UPDatos.Update()
UPPersonalizar.Update()
End Sub
Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs)
CargaDatos()
ConfiguraEmpresa()
UPDatos.Update()
UPPersonalizar.Update()
End Sub
Private Sub CargaDatos()
Dim ObjCompras As New ClsCompras()
@@ -304,61 +304,73 @@ Partial Class Compras_RepCompras
If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = ""
If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = ""
End If
End Sub
End Sub
#End Region
#Region "PERSONALIZAR"
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkIVA.Checked Then
GvDatos.Columns(5).Visible = True
Else
GvDatos.Columns(5).Visible = False
End If
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkRetIVA.Checked Then
If ChkIEPS.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
If ChkRetISR.Checked Then
End If
If ChkRetIVA.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
If ChkMinSub.Checked Then
GvDatos.Columns(9).Visible = True
If ChkRetISR.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(9).Visible = False
GvDatos.Columns(8).Visible = False
End If
If ChkAVGSub.Checked Then
If ChkMinSub.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkMaxSub.Checked Then
If ChkAVGSub.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
If ChkMinTot.Checked Then
If ChkMaxSub.Checked Then
GvDatos.Columns(12).Visible = True
Else
GvDatos.Columns(12).Visible = False
End If
If ChkAvgTot.Checked Then
If ChkMinTot.Checked Then
GvDatos.Columns(13).Visible = True
Else
GvDatos.Columns(13).Visible = False
End If
If ChkMaxTot.Checked Then
If ChkAvgTot.Checked Then
GvDatos.Columns(14).Visible = True
Else
GvDatos.Columns(14).Visible = False
End If
If ChkMaxTot.Checked Then
GvDatos.Columns(15).Visible = True
Else
GvDatos.Columns(15).Visible = False
End If
UPDatos.Update()
End Sub

991
Compras/RepComprasDetalle.aspx
View File

File diff suppressed because it is too large Load Diff

66
Compras/RepComprasDetalle.aspx.vb
View File

@@ -159,6 +159,16 @@ Partial Class Compras_RepComprasDetalle
End If
DdlTipoProveedor.SelectedValueExist(CveTipoProveedor)
DdlTipoDocto.SelectedValueExist(TipoDocto)
ChkIVA.Checked = True
ChkIEPS.Checked = True
ChkDesc.Checked = True
ChkTotal.Checked = True
ChkAbre.Checked = True
ChkRazon.Checked = True
ChkFolio.Checked = True
ChkFecha.Checked = True
End Sub
Private Sub CargaGrupo()
@@ -582,11 +592,63 @@ Partial Class Compras_RepComprasDetalle
Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
CambioGrafica()
End Sub
End Sub
#End Region
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
If ChkIVA.Checked Then
GvDatos.Columns(4).Visible = True
Else
GvDatos.Columns(4).Visible = False
End If
If ChkIEPS.Checked Then
GvDatos.Columns(5).Visible = True
Else
GvDatos.Columns(5).Visible = False
End If
If ChkDesc.Checked Then
GvDatos.Columns(6).Visible = True
Else
GvDatos.Columns(6).Visible = False
End If
If ChkTotal.Checked Then
GvDatos.Columns(7).Visible = True
Else
GvDatos.Columns(7).Visible = False
End If
If ChkAbre.Checked Then
GvDatos.Columns(8).Visible = True
Else
GvDatos.Columns(8).Visible = False
End If
If ChkRazon.Checked Then
GvDatos.Columns(9).Visible = True
Else
GvDatos.Columns(9).Visible = False
End If
If ChkFolio.Checked Then
GvDatos.Columns(10).Visible = True
Else
GvDatos.Columns(10).Visible = False
End If
If ChkFecha.Checked Then
GvDatos.Columns(11).Visible = True
Else
GvDatos.Columns(11).Visible = False
End If
UPDatos.Update()
End Sub
End Class

BIN
Empresas/Grales/SaldosIniciales/FormatoClientes-Facturas.xlsx
View File

Binary file not shown.