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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-07-03 17:57:23 -07:00
parent def012c005 b561a9aff0
commit 85fe88070f
16 changed files with 2601 additions and 2308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsClasificaciones.vb
View File

@@ -254,7 +254,7 @@ Public Class ClsClasificaciones
Return Retorno
End Function
Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = True, Optional RequiereAFInsumo As Boolean = True, Optional RequierePersonal As Boolean = True,
Public Function AddClasificaciones(Clasificacion As String, Codigo As String, IdCuentaGasto As Integer, CuentaGasto As String, IdCuentaCostos As Integer, CuentaCostos As String, IdCuentaIngreso As Integer, CuentaIngreso As String, CveCategoria As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional RequiereSerieLote As Integer = 0, Optional UsoClasificacion As Integer = -1, Optional CveSATPS As Integer = -1, Optional RequiereAFCompra As Boolean = False, Optional RequiereAFInsumo As Boolean = False, Optional RequierePersonal As Boolean = False,
Optional EsAcumulador As Boolean = False, Optional TopVentas As Boolean = False, Optional TopCompras As Boolean = False, Optional PrecioBaseCosto As Decimal = -1) As Boolean
Dim Retorno As Boolean = False

3
App_Code/ClsInventarios.vb
View File

@@ -2484,7 +2484,7 @@ Public Class ClsInventarios
Return Retorno
End Function
Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False) As Boolean
Public Function GetInventarioFisicoDetalle(CveInventarioFisico As Integer, CveUsuario As Integer, Optional Agrupar As Boolean = False, Optional TopSelect As Integer = 10000) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_InventarioFisicoDetalleGet")
@@ -2493,6 +2493,7 @@ Public Class ClsInventarios
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Agrupar", SqlDbType.Bit).Value = Agrupar
.Add("@TopSelect", SqlDbType.Int).Value = TopSelect
End With
Try

21
App_Code/ClsPaginas.vb
View File

@@ -7275,7 +7275,7 @@ Public Class ClsPaginas
params.Add(New ReportParameter("TipoCambio", TipoCambio))
params.Add(New ReportParameter("NombreSolicito", dtOC(0)("UsuarioSolicito").ToString)) 'drSol("Nombre").ToString))
params.Add(New ReportParameter("PuestoSolicito", PuestoSol)) 'drPuestoSol("Puesto").ToString
params.Add(New ReportParameter("NombreAutorizo", UsuarioActual.Nombre))
params.Add(New ReportParameter("NombreAutorizo", nombreautorizo))
params.Add(New ReportParameter("PuestoAutorizo", PuestoAut)) 'drPuestoAut("Puesto").ToString
params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición")))
params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI))
@@ -8041,5 +8041,24 @@ Public Class ClsPaginas
End Sub
#End Region
Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label)
Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Centro Costo"
Case 2
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Sucursal"
Case 3
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
LblSubProyecto.Text = "Proyecto"
Case 4
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
LblSubProyecto.Text = "Subproyecto"
Case 5
If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto"
LblSubProyecto.Text = "Sucursal"
End Select
End Sub
End Class

0
App_Code/ClsSucursales.vb → App_Code/ClsSucursales.vb.exclude
View File

4
Compras/Compras.aspx
View File

@@ -613,7 +613,7 @@
Producto o Servicio<asp:HyperLink ID="HyperLink1" data-toggle="tooltip" CssClass="btn btn-default btn-circle btn-xs " data-placement="top" ToolTip="Agregar Producto o Servicio" NavigateUrl="/Ventas/CatPS.aspx" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink></th>
<th style="width: 200px">Observación</th>
<th style="width: 150px">
<asp:Literal ID="LitHProyecto" runat="server" Text="Proyecto<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"></asp:Literal><asp:Label runat="server" ID="LblSubProyectoHeader" Text="SubProyecto"></asp:Label>&nbsp;
<asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label><asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
@@ -653,7 +653,7 @@
<asp:DropDownList ID="DdlAsignarProyecto" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>
<br />
<%--<br />--%>
<asp:DropDownList ID="DdlAsignaSubProyecto" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" OnSelectedIndexChanged="DdlAsignaSubProyecto_SelectedIndexChanged" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
</asp:DropDownList>

99
Compras/Compras.aspx.vb
View File

@@ -1535,26 +1535,27 @@ Partial Class Compras_Compras
DivConsignaciones.Visible = False
End If
CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto"
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear()
'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlAsignaSubProyecto.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
@@ -1562,57 +1563,57 @@ Partial Class Compras_Compras
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal"
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = ""
LblSubProyectoPHeader.Text = ""
' LblSubProyectoHeader.Text = ""
' LblSubProyectoPHeader.Text = ""
LblSubProyecto.InnerText = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Sucursal"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
DdlSubProyecto.Items.Clear()
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
'DdlAsignaSubProyecto.Items.Clear()
'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
'DdlAsignaSubProyecto.DataBind()
'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' 'DdlAsignaSubProyecto.Items.Clear()
' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
' 'DdlAsignaSubProyecto.DataBind()
' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
divproyecto.Visible = False
'divasignaproyecto.Visible = False
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LitHProyecto.Text = "Sucursal"
LthProyectoP.Text = "Sucursal"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LitHProyecto.Text = "Sucursal"
' LthProyectoP.Text = "Sucursal"
LblSubProyectoHeader.Text = "Proyecto"
LblSubProyectoPHeader.Text = "Proyecto"
' LblSubProyectoHeader.Text = "Proyecto"
' LblSubProyectoPHeader.Text = "Proyecto"
'LblSubProyectoDivAplica.InnerText = "Sucursal"
'LblProyectoDivAplica.InnerText = "Proyecto"
LblSubProyecto.InnerText = "Sucursal"
LblProyecto.InnerText = "Proyecto"
' 'LblSubProyectoDivAplica.InnerText = "Sucursal"
' 'LblProyectoDivAplica.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Sucursal"
' LblProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LitHProyecto.Text = "Proyecto"
LthProyectoP.Text = "Proyecto"
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LitHProyecto.Text = "Proyecto"
' LthProyectoP.Text = "Proyecto"
LblSubProyectoHeader.Text = "Sucursal"
LblSubProyectoPHeader.Text = "Sucursal"
' LblSubProyectoHeader.Text = "Sucursal"
' LblSubProyectoPHeader.Text = "Sucursal"
'LblSubProyectoDivAplica.InnerText = "Proyecto"
'LblProyectoDivAplica.InnerText = "Sucursal"
LblSubProyecto.InnerText = "Proyecto"
LblProyecto.InnerText = "Sucursal"
End If
' 'LblSubProyectoDivAplica.InnerText = "Proyecto"
' 'LblProyectoDivAplica.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Proyecto"
' LblProyecto.InnerText = "Sucursal"
End If
CargaGvPersonal()
CargaGvPersonal()
CargaDdlPersonal()

4732
Empresas/7/Formatos/OC.rdlc
View File

File diff suppressed because it is too large Load Diff

5
General/CatSatListado69B.aspx.vb
View File

@@ -63,10 +63,13 @@ Partial Class General_CatSatListado69B
If ObjSAT.GetListado69B(DdlTipo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GVDatosGeneral.DataSource = ObjSAT.DtResultados
GVDatosGeneral.DataBind()
Else
GVDatosGeneral.DataSource = Nothing
End If
ObjSAT.Dispose()
GVDatosGeneral.DataBind()
UpDatosGeneral.Update()

2
General/PopUpPaqueteriasGuias.aspx
View File

@@ -205,6 +205,8 @@
<td class="text-right" align="left" valign="top" style="width: 140px; padding-top: 4px;"><b>Documento:</b></td>
<td align="left" valign="top" style="width: 200px;">
<asp:DropDownList ID="DdlPaqueteriaGuiaTipo" runat="server" AppendDataBoundItems="true" DataTextField="PaqueteriaGuiaTipo" DataValueField="CvePaqueteriaGuiaTipo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvPaqueteriaGuiaTipo" runat="server" ControlToValidate="DdlPaqueteriaGuiaTipo" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Documento''</b> es necesario." ValidationGroup="GrpCrearGuia"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VcePaqueteriaGuiaTipo" runat="server" HighlightCssClass="vco" TargetControlID="RfvPaqueteriaGuiaTipo" Width="220px" PopupPosition="Left"></ajax:ValidatorCalloutExtender>
</td>
</tr>

2
Inventarios/InventarioFisicoDetalle.aspx.vb
View File

@@ -315,7 +315,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
GvIFDUltimoRegistrado.Rows(0).Cells(8).Text = TxtCantidadProducto.Text.Trim
Else
Consulto = True
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario) Then
If Inventarios.GetInventarioFisicoDetalle(CveInventarioFisico, UsuarioActual.CveUsuario, TopSelect:=1) Then
If Inventarios.DtResultados.Rows.Count > 0 Then
GvIFDUltimoRegistrado.DataSource = Inventarios.DtResultados.AsEnumerable.OrderByDescending(Function(k) k!CveInventarioFisicoDetalle).Take(1).CopyToDataTable
Else

4
OC/OC.aspx
View File

@@ -738,8 +738,8 @@
<th scope="col">Unidad</th>
<th scope="col">Observación</th>
<th scope="col">
<asp:Label ID="TtituloProyecto" Text="Proyecto" runat="server" /><br />
<asp:Label ID="TituloSubProyecto" Text="SubProyecto" runat="server" />
<asp:Label ID="TtituloProyecto" Text="" runat="server" />
<asp:Label ID="TituloSubProyecto" Text="" runat="server" />
</th>
<th scope="col" id="ThActivoFijo" runat="server">Activo Fijo</th>
<th runat="server" visible="false" id="CabeceraPOA" scope="col">POA</th>

17
OC/OC.aspx.vb
View File

@@ -697,8 +697,8 @@ Partial Class OC
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False
TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Sucursal"
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Sucursal"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -710,8 +710,8 @@ Partial Class OC
LblSubProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
TituloSubProyecto.Text = ""
TtituloProyecto.Text = "Proyecto"
'TituloSubProyecto.Text = ""
'TtituloProyecto.Text = "Proyecto"
DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -722,19 +722,20 @@ Partial Class OC
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
LblSubProyecto.Text = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
TtituloProyecto.Text = "Sucursal"
TituloSubProyecto.Text = "Proyecto"
'TtituloProyecto.Text = "Sucursal"
'TituloSubProyecto.Text = "Proyecto"
LblSubProyecto.Text = "Proyecto"
LblProyecto.Text = "Sucursal"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
TtituloProyecto.Text = "Proyecto"
TituloSubProyecto.Text = "Sucursal"
'TtituloProyecto.Text = "Proyecto"
'TituloSubProyecto.Text = "Sucursal"
LblSubProyecto.Text = "Sucursal"
LblProyecto.Text = "Proyecto"
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
If Not CveOrdenCompra > 0 Then

0
Planeacion/CatSucursales.aspx → Planeacion/CatSucursales.aspx.exclude
View File

0
Planeacion/CatSucursales.aspx.vb → Planeacion/CatSucursales.aspx.vb.exclude
View File

16
Ventas/Ventas.aspx.vb
View File

@@ -2452,7 +2452,7 @@ Partial Class Ventas
CargaFletes()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlProyecto.Visible = False
'DdlProyecto.Visible = False
BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Sucursal"
@@ -2476,7 +2476,7 @@ Partial Class Ventas
dttSub.Dispose()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlProyecto.Visible = False
'DdlProyecto.Visible = False
BrSubProyecto.Visible = False
DdlProyectoPyME.Visible = False
LblProyectoHeader.Text = "Proyecto"
@@ -2509,6 +2509,8 @@ Partial Class Ventas
End If
CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto)
'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
ImgOtrosConceptos.Visible = False
@@ -10044,7 +10046,17 @@ Partial Class Ventas
CveCuentaCliente = CveCuenta
End If
Case 7 'descuentos
If LblDescuentos.Text.ToDecimal > 0 Then
importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
importeMX = importeMovimiento * tipoCambio * Multiplicador
FechaMovimiento = ObjFactura.FechaPago
CveSubProyectoContabilizar = CveSubProyectoVenta
IdCtaContable = 0
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
End If
Case 3 'Cliente
If ObjFactura.TipoDocto = "Ant" Then

2
vwd.webinfo
View File

@@ -74,6 +74,8 @@