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:
Jonathan Alexis Perez Morales
2025-03-07 19:29:58 -07:00
parent 8e3224645b 014bb919b4
commit 8133082dfc
20 changed files with 339 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContabilidad.vb
View File

@@ -1278,7 +1278,7 @@ Public Class ClsContabilidad
Catch ex As Exception Catch ex As Exception
If ex.Message.Contains("50015;") Then If ex.Message.Contains("50015;") Then
OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then ElseIf ex.Message.Contains("UK_CveEmpresa_CveTipoPoliza_AnioMes_FolioPoliza") Then
OnError($"El Folio <b>{Folio}</b> ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError($"El Folio <b>{Folio}</b> ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else Else
OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

3
App_Code/ClsNominas.vb
View File

@@ -3020,7 +3020,7 @@ Public Class ClsNominas
Return retorno Return retorno
End Function End Function
Public Function PrimaRiesgoUP(CveEmpresa As Integer, Fecha As DateTime, PrimadeRiesgo As Decimal) As Boolean Public Function PrimaRiesgoUP(CveEmpresa As Integer, Fecha As DateTime, PrimadeRiesgo As Decimal, CveRegistroPatronal As Integer) As Boolean
Dim retorno As Boolean = False Dim retorno As Boolean = False
Try Try
DTSet = New DataSet() DTSet = New DataSet()
@@ -3029,6 +3029,7 @@ Public Class ClsNominas
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@Fecha", SqlDbType.Date).Value = Fecha
.Add("@PrimadeRiesgo", SqlDbType.Money).Value = PrimadeRiesgo .Add("@PrimadeRiesgo", SqlDbType.Money).Value = PrimadeRiesgo
.Add("@CveRegistroPatronal", SqlDbType.Money).Value = CveRegistroPatronal
End With End With
SqlAdapter.Fill(DTSet) SqlAdapter.Fill(DTSet)
retorno = True retorno = True

10
Ashx/SIGFacturacion.ashx
View File

@@ -60,13 +60,13 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
GuardaLogFacturacion("- Inicio de facturación ") GuardaLogFacturacion("- Inicio de facturación ")
If CveEmpresa > 0 Then If CveEmpresa > 0 Then
GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}") GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa} - ")
Dim Usuario = ValidaUsuarioSistema(CveEmpresa) Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
Dim FechaI, FechaF As DateTime Dim FechaI, FechaF As DateTime
'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario) 'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
GuardaLogFacturacion("1.200") GuardaLogFacturacion("1.200 - ")
Dim FechaReferencia As Date = ClsPaginas.NowADS() Dim FechaReferencia As Date = ClsPaginas.NowADS()
If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then If FechaReferencia.DayOfWeek = DayOfWeek.Sunday Then
Dim Sabado = FechaReferencia.AddDays(-1) Dim Sabado = FechaReferencia.AddDays(-1)
@@ -81,7 +81,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas") GuardaLogFacturacion("Ejecución no permitida, no es el dia permitido para ejecucion o no se espeficaron las fechas")
End If End If
Else Else
GuardaLogFacturacion("1.300") GuardaLogFacturacion("1.300 - ")
FechaI = pFechaI.ToDateTime() FechaI = pFechaI.ToDateTime()
FechaF = pFechaF.ToDateTime() FechaF = pFechaF.ToDateTime()
@@ -137,7 +137,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente) Dim DatosRemisiones As JObject = CargaRemisiones(FechaI, FechaF, CveCliente)
Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString() Dim CveRemisiones As String = DatosRemisiones("VentasConcatenadas").ToString()
GuardaLogFacturacion("1.25 -- ClavesRemisiones: " & CveRemisiones)
If Not String.IsNullOrEmpty(CveRemisiones) Then If Not String.IsNullOrEmpty(CveRemisiones) Then
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then If ObjClientes.GetVentasRemisionesTotales(CveCliente, CveRemisiones, 1, UsuarioActual.CveEmpresa) Then
@@ -228,7 +228,7 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
Dim UsuarioActual As Usuario = Nothing Dim UsuarioActual As Usuario = Nothing
Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa) Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena) Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100) UsuarioActual = ObjUsuarios.GetUsuarioDetalle(100, CveEmpresa)
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString() Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString() Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()

123
Ashx/TareasProgramadas.ashx
View File

File diff suppressed because one or more lines are too long

1
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -668,6 +668,7 @@ Partial Class Bancos_FluctuacionCambiaria
'End If 'End If
tTipoMovto = dr("TipoMovto").ToString.ToBool tTipoMovto = dr("TipoMovto").ToString.ToBool
If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
If TipoFluctuacion.Contiene(1) AndAlso tTipoMovto = False Then AjusteTotal = -AjusteTotal 'si es prov, cargado y el ajustes es positivo tiene que restar
AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal

62
Compras/Compras.aspx.vb
View File

@@ -3266,7 +3266,6 @@ Partial Class Compras_Compras
If DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then If DdlRetIVAConcepto.SelectedValue.ToEntero > 0 Then
DdlRetIVAConcepto.Enabled = True DdlRetIVAConcepto.Enabled = True
End If End If
If DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then If DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
DdlRetISRConcepto.Enabled = True DdlRetISRConcepto.Enabled = True
End If End If
@@ -7792,8 +7791,8 @@ Partial Class Compras_Compras
Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia) Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ElseIf ErrorMovInv Then ElseIf ErrorMovInv Then
Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia) Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
ElseIf TieneError Then 'ElseIf TieneError Then
Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia) ' Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
ElseIf ErrorAF Then ElseIf ErrorAF Then
Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia) Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
ElseIf ErrorAC Then ElseIf ErrorAC Then
@@ -7953,7 +7952,7 @@ Partial Class Compras_Compras
If CveEvaluacionProveedor > 0 Then If CveEvaluacionProveedor > 0 Then
Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>") Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
Msg.Append("¿Desea realizar una evaluacion al proveedor?") Msg.Append("¿Desea realizar una evaluación al proveedor?")
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>") Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
End If End If
@@ -13909,7 +13908,7 @@ Partial Class Compras_Compras
If realizadevolucion Then If realizadevolucion Then
subtotaldevolucion = subtotaldevolucion.RoundSQL(2) subtotaldevolucion = subtotaldevolucion.RoundSQL(2)
'si el subtotal es igual a la nc lo guardo si no marco error 'si el subtotal es igual a la nc lo guardo si no marco error
Dim tTolerancia As Decimal = 0 Dim tTolerancia As Decimal = 0.1D
Dim tAjustaUltimo As Boolean = True Dim tAjustaUltimo As Boolean = True
If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion) tTolerancia = Math.Abs(TxtSubTotal2.Text.ToDecimal - subtotaldevolucion)
@@ -13966,11 +13965,11 @@ Partial Class Compras_Compras
End If End If
Else Else
ErrorMovInv = True ErrorMovInv = True
Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia) Alert("El Total de la NC debe ser igual al total de la devolución", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1) Then
For Each drow As DataRow In ObjInventario.DtResultados.Rows For Each drow As DataRow In ObjInventario.DtResultados.Rows
TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal
@@ -14016,7 +14015,7 @@ Partial Class Compras_Compras
Dim objcompras As New ClsCompras() Dim objcompras As New ClsCompras()
If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then If objcompras.GetCompraDetalleAlmacen(UsuarioActual.CveEmpresa, DDLDevolucion.SelectedValue.ToEntero) Then
GVDevolucion.DataSource = objcompras.DtResultados GVDevolucion.DataSource = objcompras.DtResultados
FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate.ToString("dd/MM/yyyy").ToDate FechaMovtoDev = objcompras.DtResultados.FiltroPrimeroValor("FechaMovto").ToDate
End If End If
objcompras.Dispose() objcompras.Dispose()
GVDevolucion.DataBind() GVDevolucion.DataBind()
@@ -14029,7 +14028,7 @@ Partial Class Compras_Compras
DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen) DdlAlmacenDevolucion.SelectedValueExist(CveAlmacen)
UPDevolucion.Update() UPDevolucion.Update()
If EsGrupoDiaz AndAlso FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then If FechaMovtoDev <> MinFecha AndAlso (FechaMovtoDev >= TxtFecha.Text.ToDate) Then
Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia) Alert("La fecha de la devolución se cambiará a una fecha posterior al ingreso.", TipoMensaje.ToastAdventencia)
End If End If
@@ -14088,10 +14087,7 @@ Partial Class Compras_Compras
Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal() Dim IEPSCompra As Decimal = TxtIEPS.Text.ToDecimal()
Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal() Dim RetIVACompra As Decimal = TxtRetIVA.Text.ToDecimal()
Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal() Dim RetISRCompra As Decimal = TxtRetISR.Text.ToDecimal()
Dim Acumulado As Decimal = 0 Dim AcumuladoDevolucion As Decimal = 0
'Dim TotalCalculable As Decimal = TotalCompra - IEPSCompra + RetIVACompra + RetISRCompra
Dim IVAPorcentajeCompra As Decimal = Math.Round((IVACompra / SubTotalCompra), 2) Dim IVAPorcentajeCompra As Decimal = Math.Round((IVACompra / SubTotalCompra), 2)
Dim Contador As Integer = 0 Dim Contador As Integer = 0
Dim Consec As Integer = 0 Dim Consec As Integer = 0
@@ -14127,12 +14123,12 @@ Partial Class Compras_Compras
Dim IVA As Decimal = IVAPorcentajeCompra 'Math.Round(Total * IVAPorcentajeCompra, 2) Dim IVA As Decimal = IVAPorcentajeCompra 'Math.Round(Total * IVAPorcentajeCompra, 2)
Dim Descuento As Decimal = 0 Dim Descuento As Decimal = 0
Acumulado += (PU * Cantidad) AcumuladoDevolucion += (PU * Cantidad)
Consec += 1 Consec += 1
If Consec = Contador AndAlso tAjusteUltimo Then 'SubTotalCompra < Acumulado Then If Consec = Contador AndAlso tAjusteUltimo Then 'SubTotalCompra < AcumuladoDevolucion Then
'ajusta el valor 'ajusta el valor
Dim dif As Decimal = SubTotalCompra - Acumulado Dim dif As Decimal = SubTotalCompra - AcumuladoDevolucion
If dif <> 0 Then If dif <> 0 Then
PU = ((PU * Cantidad) + dif) / Cantidad PU = ((PU * Cantidad) + dif) / Cantidad
Total = Cantidad * PU Total = Cantidad * PU
@@ -14150,7 +14146,7 @@ Partial Class Compras_Compras
End If End If
Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSRNC).FiltroPrimero("") Dim PSRow As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSRNC).FiltroPrimero("")
Dim PS As String = PSRow("PSCodigo").ToString Dim PS As String = PSRow("PSCodigo").ToString
Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - Total Dim tDif As Decimal = TxtSubTotal2.Text.ToDecimal - AcumuladoDevolucion
DevolucionImporteOriginal = tDif DevolucionImporteOriginal = tDif
AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString, AddPS(1, PSRow("CveUnidadMedida").ToString.ToEntero, PSRow("UnidadMedida").ToString,
@@ -15334,23 +15330,27 @@ Partial Class Compras_Compras
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows
Dim Change As Boolean = False If CveFactura > 0 Then
For Each Dr2 As DataRow In TmpDT.Rows For Each Gvr As GridViewRow In GvOC1.Rows
If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then Dim Change As Boolean = False
' que la cantidad de la Fact no exceda a la de la OC For Each Dr2 As DataRow In TmpDT.Rows
If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then If Gvr.DataKey("NumeroParte") = Dr2("NoIdentificacion").ToString() OrElse Gvr.DataKey("CvePS") = Dr2("CvePS").ToString() Then
Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####") ' que la cantidad de la Fact no exceda a la de la OC
Else If Dr2("Cantidad").ToString.ToDecimal > Gvr.DataKey("CantidadF").ToDecimal Then
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString Gvr.FCTextBox("TxtCantidad").Text = Gvr.DataKey("CantidadF").ToDecimal.ToString("#,###.####")
Else
Gvr.FCTextBox("TxtCantidad").Text = Dr2("Cantidad").ToString
End If
Change = True
End If End If
Change = True Next
If Not Change Then
Gvr.FCTextBox("TxtCantidad").Text = ""
End If End If
Next Next
If Not Change Then End If
Gvr.FCTextBox("TxtCantidad").Text = ""
End If
Next
'detectar los ps que no están en la OC, códigos que no están en la OC 'detectar los ps que no están en la OC, códigos que no están en la OC
'mostrar los ps que no están en la oc 'mostrar los ps que no están en la oc
Dim strMsg As New StringBuilder Dim strMsg As New StringBuilder

38
Contabilidad/Reportes/RepSituacionFinanciera.rdlc
View File

@@ -2726,7 +2726,7 @@
<Height>4.77456in</Height> <Height>4.77456in</Height>
<Style /> <Style />
</Body> </Body>
<Width>8.07238in</Width> <Width>8.07239in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>0.74083cm</Height> <Height>0.74083cm</Height>
@@ -3037,36 +3037,50 @@
</ReportParameters> </ReportParameters>
<Variables> <Variables>
<Variable Name="TotalActivoActual"> <Variable Name="TotalActivoActual">
<Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9 , Fields!ImporteActual.Value, 0) , "DataSet1")</Value> <Value>=Sum(
IIf(
(Fields!Tipo.Value = "A" OR Fields!Tipo.Value = "B" OR Fields!Tipo.Value = "C" OR CInt(Fields!TipoCuenta.Value) = 9)
AND IsNumeric(Fields!ImporteActual.Value),
CDbl(Fields!ImporteActual.Value),
0
),
"DataSet1"
)</Value>
</Variable> </Variable>
<Variable Name="TotalActivoAnterior"> <Variable Name="TotalActivoAnterior">
<Value>=Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Cint(Fields!ImporteAnterior.Value) , 0.0), "DataSet1")</Value> <Value>=Sum( iif(Fields!Sup.Value = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9 , Cint(Fields!ImporteAnterior.Value) , 0.0), "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPasivoActual"> <Variable Name="TotalPasivoActual">
<Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo", <Value>=Sum(
Fields!ImporteActual.Value, 0), "DataSet1")</Value> iif(
(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo")
AND IsNumeric(Fields!ImporteActual.Value),
CDbl(Fields!ImporteActual.Value),
0
), "DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPasivoAnterior"> <Variable Name="TotalPasivoAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
<Writable>true</Writable> <Writable>true</Writable>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCActual"> <Variable Name="TotalPatrimonioCActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value> <Value>=Sum( iif( (Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE") AND IsNumeric(Fields!ImporteActual.Value) ,
CDbl(Fields!ImporteActual.Value),0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHActual"> <Variable Name="TotalPatrimonioHActual">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" <Value>=Sum(Microsoft.VisualBasic.Interaction.iif( (Fields!Sup.Value = "CAPITAL"
OR Fields!Sup.Value = "CAPITAL CONTABLE" OR Fields!Sup.Value = "CAPITAL CONTABLE"
OR Fields!Sup.Value = "Capital Contable" OR Fields!Sup.Value = "Capital Contable"
OR Fields!Sup.Value = "Capital Social" OR Fields!Sup.Value = "Capital Social"
OR Fields!Sup.Value = "Capital", OR Fields!Sup.Value = "Capital") AND IsNumeric(Fields!ImporteActual.Value),
Fields!ImporteActual.Value, 0),"DataSet1")</Value> CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalPatrimonioCAnterior"> <Variable Name="TotalPatrimonioCAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Cint(Fields!ImporteAnterior.Value), 0),"DataSet1")</Value>
<Writable>true</Writable> <Writable>true</Writable>
</Variable> </Variable>
<Variable Name="TotalPatrimonioHAnterior"> <Variable Name="TotalPatrimonioHAnterior">
<Value>=Sum(Microsoft.VisualBasic.Interaction.iif(Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE" , Fields!ImporteActual.Value, 0),"DataSet1")</Value> <Value>=Sum(Microsoft.VisualBasic.Interaction.iif((Fields!Sup.Value = "CAPITAL" OR Fields!Sup.Value = "CAPITAL CONTABLE") AND IsNumeric(Fields!ImporteActual.Value) , CDbl(Fields!ImporteActual.Value), 0),"DataSet1")</Value>
</Variable> </Variable>
<Variable Name="TotalpasivoYHaciendaActual"> <Variable Name="TotalpasivoYHaciendaActual">
<Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value> <Value>=Variables!TotalPasivoActual.Value+Variables!TotalPatrimonioHActual.Value</Value>

11
Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
View File

@@ -4256,7 +4256,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>="3. Página " &amp; code.PageNumber &amp; " de " &amp; code.TotalPages</Value> <Value>3. Página 1 de 1 Páginas</Value>
<Style> <Style>
<FontFamily>Myriad Pro</FontFamily> <FontFamily>Myriad Pro</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -5298,7 +5298,7 @@
<DataSetName>DataSet3</DataSetName> <DataSetName>DataSet3</DataSetName>
<Top>0.06703cm</Top> <Top>0.06703cm</Top>
<Height>1cm</Height> <Height>1cm</Height>
<Width>17.83459cm</Width> <Width>17.8346cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -5310,7 +5310,7 @@
<Top>11.49939cm</Top> <Top>11.49939cm</Top>
<Left>1.33863cm</Left> <Left>1.33863cm</Left>
<Height>1.06703cm</Height> <Height>1.06703cm</Height>
<Width>17.83459cm</Width> <Width>17.8346cm</Width>
<ZIndex>21</ZIndex> <ZIndex>21</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -6636,6 +6636,7 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox14</rd:DefaultName> <rd:DefaultName>Textbox14</rd:DefaultName>
<Top>0cm</Top>
<Left>14.75588cm</Left> <Left>14.75588cm</Left>
<Height>0.54708cm</Height> <Height>0.54708cm</Height>
<Width>4.70062cm</Width> <Width>4.70062cm</Width>
@@ -6988,11 +6989,11 @@ Se ha recibido el número arriba indicado de bultos/contenedores/remolques/autot
</ReportParameter> </ReportParameter>
</ReportParameters> </ReportParameters>
<Code>Function PageNumber() As String <Code>Function PageNumber() As String
Return Me.Report.Globals!PageNumber Return Me.Report.Globals!OverallPageNumber
End Function End Function
Function TotalPages() As String Function TotalPages() As String
Return Me.Report.Globals!TotalPages Return Me.Report.Globals!OverallTotalPages
End Function </Code> End Function </Code>
<Language>es-MX</Language> <Language>es-MX</Language>
<ConsumeContainerWhitespace>true</ConsumeContainerWhitespace> <ConsumeContainerWhitespace>true</ConsumeContainerWhitespace>

3
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1176,7 +1176,6 @@ Partial Class Inventarios_EntradasSalidas
DtMovimientos.PrimaryKey = keys DtMovimientos.PrimaryKey = keys
CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
End If End If
PermisoVerImportes() PermisoVerImportes()
@@ -1184,8 +1183,6 @@ Partial Class Inventarios_EntradasSalidas
If IfNull(Request("Conta"), "0").ToString = "1" Then If IfNull(Request("Conta"), "0").ToString = "1" Then
Contabilizar() Contabilizar()
End If End If
Else Else
Alert("Movimiento No encontrado", TipoMensaje.MsgError) Alert("Movimiento No encontrado", TipoMensaje.MsgError)

15
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -4672,8 +4672,21 @@ Partial Class Inventarios_EntregaAlmacen
If CveOSEstatusFinalizada > 0 Then If CveOSEstatusFinalizada > 0 Then
Dim ObjOS As New ClsOS(TransaccionSql) Dim ObjOS As New ClsOS(TransaccionSql)
'obtener estatus de la os, actual, si es cancelada, no se debe de cambiar el estatus.
Dim CveEstatusActual As Integer = 1
Dim CveTipoOS As Integer = -1
If ObjOS.GetOrdenesServicios(CveOSCerrar, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
CveEstatusActual = ObjOS.CveEstatusOrdenServicio
CveTipoOS = ObjOS.DtResultados.FiltroPrimeroValor("TipoEstatus").ToEntero
End If
'si es cancelada. no se actualiza(5.Cancelada)
If CveTipoOS <> 5 Then
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Else
Respuesta = True
End If
Respuesta = ObjOS.UpdateOrdenesServiciosEstatus(CveOSEstatusFinalizada, UsuarioActual.CveUsuario, CveOSCerrar)
Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta) Dim cancelarPeido As Boolean = CancelarPedido(TransaccionSql, CveMovimientoGenerado, Respuesta)
If Respuesta Then If Respuesta Then
Dim ObjInventario As New ClsInventarios(TransaccionSql) Dim ObjInventario As New ClsInventarios(TransaccionSql)

9
Inventarios/KardexAlmacenHorizontal.aspx
View File

@@ -165,18 +165,18 @@ table.adssigscroll {
background-color: inherit; /* Para que no se superponga con otros elementos */ background-color: inherit; /* Para que no se superponga con otros elementos */
z-index: 4; /* Asegura que esté sobre otros elementos */ z-index: 4; /* Asegura que esté sobre otros elementos */
} }
.tr_order > th::after { .tr_order tr > th::after {
content: "\f0dc"; content: "\f0dc";
font:normal normal normal 14px / 1 FontAwesome; font:normal normal normal 14px / 1 FontAwesome;
display: inline-block; display: inline-block;
margin-left: 5px; margin-left: 5px;
color: #32A1CF; color: #32A1CF;
} }
.tr_order > th.asce::after { .tr_order tr > th.asce::after {
content: "\f0de"; content: "\f0de";
} }
.tr_order > th.desc::after { .tr_order tr > th.desc::after {
content: "\f0dd"; content: "\f0dd";
} }
/*END ScrollADS V2*/ /*END ScrollADS V2*/
@@ -353,8 +353,7 @@ table.adssigscroll {
<div class="divContainerads"> <div class="divContainerads">
<asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true" <asp:GridView ID="GvDatos" runat="server" ShowHeader="true" EmptyDataText="No hay registros." AutoGenerateColumns="True" ShowHeaderWhenEmpty="true"
DataKeyNames="CvePS" CssClass="adssigscrollJS table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" > DataKeyNames="CvePS" CssClass="adssigscrollJS tr_order table table-striped table-advance table-hover " data-cols="2" data-rows="2" data-heightmenos="300" GridLines="None" >
<HeaderStyle CssClass="tr_order" />
<Columns> <Columns>
<asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px"> <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="120px">
<HeaderTemplate> <HeaderTemplate>

30
Inventarios/PrestamosdeProveedor.aspx
View File

@@ -10,6 +10,18 @@
<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" UpdateMode="Conditional" ID="UpAcciones">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkExportar" runat="server" Visible="true"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
</ContentTemplate>
<Triggers>
<asp:PostBackTrigger ControlID="LnkExportar" />
</Triggers>
</asp:UpdatePanel>
</asp:Content> </asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
</asp:Content> </asp:Content>
@@ -133,7 +145,7 @@
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None"> <asp:GridView ID="GvD" DataKeyNames="CveUM,CvePS,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,CveMovimientoDetalle,CveMovimiento, AplicaLote, AplicaCaducidad,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField ItemStyle-Width="45px" ItemStyle-HorizontalAlign="Center">
<%--<HeaderTemplate> <%--<HeaderTemplate>
<input type="checkbox" id="ChkAll" onclick="CheckAll();" /> <input type="checkbox" id="ChkAll" onclick="CheckAll();" />
</HeaderTemplate>--%> </HeaderTemplate>--%>
@@ -141,18 +153,18 @@
<asp:CheckBox ID="Chk" Checked="true" runat="server" Visible="false"></asp:CheckBox> <asp:CheckBox ID="Chk" Checked="true" runat="server" Visible="false"></asp:CheckBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center"> <asp:TemplateField HeaderText="Cantidad" ItemStyle-Width="105px" ItemStyle-HorizontalAlign="Center">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtCantidad" Visible="false" Width="60px" runat="server" Text="0" Enabled="false" Style="text-align: right;"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." /> <ajax:FilteredTextBoxExtender ID="SoloNumeros2" runat="server" TargetControlID="TxtCantidad" FilterType="Custom, Numbers" ValidChars="." />
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.######}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="10%" /> <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="105px" />
<asp:BoundField HeaderText="Producto" DataField="PS" ItemStyle-Width="35%" /> <asp:BoundField HeaderText="Producto" DataField="PS" />
<asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="10%" Visible="false" /> <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="125px" Visible="false" />
<asp:TemplateField HeaderText="Lote" ItemStyle-Width="10%" HeaderStyle-HorizontalAlign="Center" Visible="false"> <asp:TemplateField HeaderText="Lote" ItemStyle-Width="125px" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal> <asp:Literal ID="LtlLote" runat="server" Text='<%# Eval("Lote", "{0}") %>'></asp:Literal>
<asp:TextBox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:TextBox> <asp:TextBox ID="TxtLote" runat="server" Visible="false" Width="70px" Text='<%# Eval("Lote", "{0}") %>'></asp:TextBox>
@@ -160,7 +172,7 @@
<ItemStyle HorizontalAlign="Center" /> <ItemStyle HorizontalAlign="Center" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha" ItemStyle-Width="25%" HeaderStyle-HorizontalAlign="Center" Visible="false"> <asp:TemplateField HeaderText="Fecha" ItemStyle-Width="125px" HeaderStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LtlFechaCaducidad" runat="server" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:Literal>
<asp:TextBox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:TextBox> <asp:TextBox ID="TxtFechaCaducidad" runat="server" Visible="false" Width="75px" Text='<%# Eval("FechaCaducidad", "{0:d}") %>'></asp:TextBox>

53
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -93,7 +93,8 @@ Partial Class Inventarios_PrestamosdeProveedor
e.Row.FCTextBox("TxtCantidad").Visible = False e.Row.FCTextBox("TxtCantidad").Visible = False
e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) e.Row.Cells(2).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToDate.ToShortDateString)
e.Row.Cells(4).Text = String.Format("{0}", e.Row.DBCampo("Almacen"))
e.Row.Cells(5).Text = String.Format("Proveedor: {0} ", e.Row.DBCampo("RazonSocial")) e.Row.Cells(5).Text = String.Format("Proveedor: {0} ", e.Row.DBCampo("RazonSocial"))
Else Else
@@ -104,35 +105,28 @@ Partial Class Inventarios_PrestamosdeProveedor
If e.Row.DataKey("AplicaLote").ToString = "True" Then If e.Row.DataKey("AplicaLote").ToString = "True" Then
e.Row.FCLiteral("LtlLote").Visible = False e.Row.FCLiteral("LtlLote").Visible = False
e.Row.FCTextBox("TxtLote").Visible = True e.Row.FCTextBox("TxtLote").Visible = True
End If End If
If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
e.Row.FCLiteral("LtlFechaCaducidad").Visible = False e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
e.Row.FCTextBox("TxtFechaCaducidad").Visible = True e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
End If End If
End If End If
e.Row.FCTextBox("TxtCantidad").Visible = True e.Row.FCTextBox("TxtCantidad").Visible = True
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad"))) e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
End If End If
''FUNCIONALIDAD PISTOLA DE CODIGOS ''FUNCIONALIDAD PISTOLA DE CODIGOS
'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then 'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
' e.Row.FCTextBox("TxtCantidad").Enabled = False ' e.Row.FCTextBox("TxtCantidad").Enabled = False
'End If 'End If
End If End If
End Sub End Sub
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs) Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
If GvD.Rows.Count > 0 Then If GvD.Rows.Count > 0 Then
'Valida Movimientos 'Valida Movimientos
@@ -146,7 +140,7 @@ Partial Class Inventarios_PrestamosdeProveedor
Dim FechaCaducidad As Date = MinFecha Dim FechaCaducidad As Date = MinFecha
If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie") If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text ' gvr.DataKey("Lote") If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text ' gvr.DataKey("Lote")
If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.todate ' gvr.DataKey("Lote") If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.ToDate ' gvr.DataKey("Lote")
'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad") 'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS")) Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS"))
@@ -162,9 +156,6 @@ Partial Class Inventarios_PrestamosdeProveedor
Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
@@ -250,10 +241,8 @@ Partial Class Inventarios_PrestamosdeProveedor
Else Else
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit() ObjInventario.Commit()
@@ -308,4 +297,30 @@ Partial Class Inventarios_PrestamosdeProveedor
Private Sub BtnCargaPendientes_Click(sender As Object, e As EventArgs) Handles BtnCargaPendientes.Click Private Sub BtnCargaPendientes_Click(sender As Object, e As EventArgs) Handles BtnCargaPendientes.Click
CargaDatos() CargaDatos()
End Sub End Sub
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Dim SbFiltros As New StringBuilder()
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
Dim listFiltros As New List(Of String)
listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
If ddlProveedor.txtValue.Value.ToEntero > 0 Then
listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
Else
listFiltros.Add($"Proveedor : Todos")
End If
If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
GvD.Columns(1).Visible = False
UppEntrega.Update()
GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
GvD.Columns(1).Visible = True
UppEntrega.Update()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
End Class End Class

48
Nomina/Nomina.aspx
View File

@@ -2591,7 +2591,7 @@
<asp:GridView ID="GVProvision" runat="server" DataKeyNames="CveConcepto,CvePersonal,CveConceptoContable" OnRowDataBound="GVProvision_RowDataBound" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" <asp:GridView ID="GVProvision" runat="server" DataKeyNames="CveConcepto,CvePersonal,CveConceptoContable" OnRowDataBound="GVProvision_RowDataBound" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas"
Style="text-align: center;" GridLines="None" data-rows="2" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true" AutoGenerateColumns="false"> GridLines="None" data-rows="2" data-heighterror="360" ShowHeaderWhenEmpty="true" ShowHeader="true" AutoGenerateColumns="false">
<Columns> <Columns>
<asp:TemplateField HeaderText="Concepto Contable"> <asp:TemplateField HeaderText="Concepto Contable">
<ItemTemplate> <ItemTemplate>
@@ -2610,12 +2610,12 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Asignar a Concepto "> <asp:TemplateField HeaderText="Asignar a Concepto ">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList ID="DdlCconceptosContables" CssClass="form-control input-sm select2me select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable"></asp:DropDownList> <asp:DropDownList ID="DdlCconceptosContables" Width="100%" CssClass="form-control input-sm select2me select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Asignar a cuenta "> <asp:TemplateField HeaderText="Asignar a cuenta ">
<ItemTemplate> <ItemTemplate>
<asp:DropDownList ID="Ddlcuentassd" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control hidden input-sm select2me" Width="100%"></asp:DropDownList> <asp:DropDownList ID="Ddlcuentassd" runat="server" Width="100%" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control hidden input-sm select2me" ></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>
@@ -3166,7 +3166,7 @@
</div> </div>
<div class="portlet-body " style="display: none"> <div class="portlet-body " style="display: none">
<div class="row"> <div class="row">
<div class="col-md-4"> <div class="col-md-2">
<div class="form-group form-md-line-input input-iconright" style="width: 120px; display: inline-block"> <div class="form-group form-md-line-input input-iconright" style="width: 120px; display: inline-block">
<asp:TextBox ID="TxtPrimaRiesgo" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox> <asp:TextBox ID="TxtPrimaRiesgo" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtPrimaRiesgo" runat="server" ControlToValidate="TxtPrimaRiesgo" CssClass="dnone" <asp:RequiredFieldValidator ID="RfvTxtPrimaRiesgo" runat="server" ControlToValidate="TxtPrimaRiesgo" CssClass="dnone"
@@ -3176,23 +3176,32 @@
<ajax:ValidatorCalloutExtender ID="VcoTxtPrimaRiesgo" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtPrimaRiesgo" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VcoTxtPrimaRiesgo" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtPrimaRiesgo" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-2">
<div class="form-group form-md-line-input input-iconright" style="width: 120px; display: inline-block"> <asp:Label runat="server" Text="Fecha: " AssociatedControlID="TxtFechaPRT"></asp:Label>
<asp:TextBox ID="TxtFechaPRT" runat="server" CausesValidation="True" CssClass="form-control"></asp:TextBox> <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
<asp:RequiredFieldValidator ID="RfvTxtFechaPRT" runat="server" ControlToValidate="TxtFechaPRT" CssClass="dnone" <asp:TextBox ID="TxtFechaPRT" runat="server" CausesValidation="True" CssClass="form-control" Width="80px" MaxLength="10"></asp:TextBox>
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario " <span class="input-group-btn " style="display: inline-block">
ValidationGroup="GrpGuardarprimariesgo"></asp:RequiredFieldValidator> <asp:LinkButton ID="ImgFechaRT" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
<asp:Label runat="server" Text="Fecha: " AssociatedControlID="TxtFechaPRT"></asp:Label> </span>
</div>
<asp:RequiredFieldValidator ID="RfvTxtFechaPRT" runat="server" ControlToValidate="TxtFechaPRT" CssClass="dnone"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario "
ValidationGroup="GrpGuardarprimariesgo"></asp:RequiredFieldValidator>
<ajax:MaskedEditExtender ID="MKEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender> <ajax:MaskedEditExtender ID="MKEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MKEFechaBaja" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
<ajax:CalendarExtender ID="CEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender> <ajax:CalendarExtender ID="CEFechaBaja" runat="server" TargetControlID="TxtFechaPRT" PopupButtonID="ImgFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_CEFechaBaja"></ajax:CalendarExtender>
<asp:CompareValidator ID="CVFechaBaja" runat="server" ControlToValidate="TxtFechaPRT" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarprimariesgo" Visible="False"></asp:CompareValidator> <asp:CompareValidator ID="CVFechaBaja" runat="server" ControlToValidate="TxtFechaPRT" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha de Baja''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardarprimariesgo" Visible="False"></asp:CompareValidator>
</div>
<span class="input-group-btn " style="display: inline-block"> <ajax:ValidatorCalloutExtender ID="vcoTxtFechaPRT" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaPRT" Width="250px"></ajax:ValidatorCalloutExtender>
<asp:LinkButton ID="ImgFechaBaja" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
</span>
<ajax:ValidatorCalloutExtender ID="vcoTxtFechaPRT" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaPRT" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="col-md-4"> <div class="col-md-3">
<asp:Label runat="server" AssociatedControlID="DdlRegistroPatronalPR" Text="Registro Patronal:" ></asp:Label>
<div >
<asp:DropDownList ID="DdlRegistroPatronalPR" runat="server" Width="100%" DataTextField="RegistroPatronal" CssClass="form-control input-sm select2me" DataValueField="CveRegistroPatronal" ></asp:DropDownList>
</div>
</div>
<div class="col-md-1">
<asp:LinkButton ID="LnkupPrimaRiesgo" OnClick="LnkupPrimaRiesgo_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardarprimariesgo" runat="server">Actualizar</asp:LinkButton> <asp:LinkButton ID="LnkupPrimaRiesgo" OnClick="LnkupPrimaRiesgo_Click" CssClass="btn btn-primary" ValidationGroup="GrpGuardarprimariesgo" runat="server">Actualizar</asp:LinkButton>
</div> </div>
</div> </div>
@@ -3223,6 +3232,11 @@
<asp:Label ID="lblRiesgodeTrabajo" runat="server" Text='<%# Eval("Riesgo de trabajo","{0:N2}")%>'> </asp:Label> <asp:Label ID="lblRiesgodeTrabajo" runat="server" Text='<%# Eval("Riesgo de trabajo","{0:N2}")%>'> </asp:Label>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Registro Patronal" ItemStyle-HorizontalAlign="right">
<ItemTemplate>
<asp:Label ID="lblRegistroPatronal" runat="server" Text='<%# Eval("Registro Patronal","{0:N2}")%>'> </asp:Label>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
</asp:GridView> </asp:GridView>
</div> </div>

30
Nomina/Nomina.aspx.cs
View File

@@ -463,6 +463,8 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
DdlRegistroPatronal.DataSource = onom.DtResultados; DdlRegistroPatronal.DataSource = onom.DtResultados;
DdlRegistroPatronal.DataBind(); DdlRegistroPatronal.DataBind();
DdlRegistroPatronalPR.DataSource = onom.DtResultados;
DdlRegistroPatronalPR.DataBind();
} }
} }
if (dtperinc != null) if (dtperinc != null)
@@ -9730,14 +9732,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
if (objnom.DTSetResultados.Tables.Count > 1) if (objnom.DTSetResultados.Tables.Count > 1)
{ {
ContaConceptossource= get_GlobalDTContaConceptosContables(-1).FiltraParametros("AplicaPersonal = 1");
using (ClsContabilidad ObjContaz = new ClsContabilidad()) //using (ClsContabilidad ObjContaz = new ClsContabilidad())
{ //{
if (ObjContaz.GetConta_ConceptosContables()) // if (ObjContaz.GetConta_ConceptosContables())
{ // {
ContaConceptossource = ObjContaz.DtResultados; // ContaConceptossource = ObjContaz.DtResultados;
} // }
} //}
if (UsuarioActual.Empresa.TipoContabilidad == 1) if (UsuarioActual.Empresa.TipoContabilidad == 1)
{ {
@@ -9839,16 +9841,22 @@ public partial class Nomina_Nomina2 : ClsPaginas
protected void LnkupPrimaRiesgo_Click(object sender, EventArgs e) protected void LnkupPrimaRiesgo_Click(object sender, EventArgs e)
{ {
int CveRegistroPatronal = DdlRegistroPatronalPR.SelectedValue.ToEntero();
if (CveRegistroPatronal > 0)
{
using (ClsNominas objnom = new ClsNominas()) using (ClsNominas objnom = new ClsNominas())
{ {
if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa, TxtFechaPRT.Text.ToDateTime(), TxtPrimaRiesgo.Text.ToDecimal())) if (objnom.PrimaRiesgoUP(UsuarioActual.CveEmpresa, TxtFechaPRT.Text.ToDateTime(), TxtPrimaRiesgo.Text.ToDecimal(), CveRegistroPatronal))
{ {
} }
} }
loadtablas(); loadtablas();
}
else
{
Alert("Favor de seleccionar un registro patronal", TipoMensaje.MsgAdvertencia);
}
} }

5
OS/OrdenesServicios.aspx.vb
View File

@@ -3839,6 +3839,11 @@ Partial Class OS_OrdenesServicios
Dim LigaRedirigir As String = "" Dim LigaRedirigir As String = ""
If CveVenta = 0 Then
Alert("El Material no se puede cancelar, ya que la remisión ya no está vigente y/o asociada.", TipoMensaje.MsgError)
Exit Sub
End If
Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True) Dim ObjFacturaCancelacion As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=True, VerificaAlmacen:=True)
Try Try
Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing

53
RH/CalculoSBC.aspx.cs
View File

@@ -686,7 +686,7 @@ public partial class RH_CalculoSBC : ClsPaginas
$"************* 00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador} 00001 9"); $"************* 00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador} 00001 9");
Script = string.Format("{0}SaveCsv(\"Movtos{3}_{2:ddMMMyyyy}.txt\", '{1}');", Script, MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"), oldRegistroPatronal); Script = string.Format("{0}SaveCsv(\"Movtos{3}_{2:ddMMMyyyy}.txt\", '{1}');", Script, MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"), oldRegistroPatronal);
guardarArchivomodsalario(MovtosmodSalario);
MovtosmodSalario = ""; MovtosmodSalario = "";
concater = ""; concater = "";
contador = 0; contador = 0;
@@ -706,30 +706,6 @@ public partial class RH_CalculoSBC : ClsPaginas
} }
string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.Ruta);
if (!System.IO.Directory.Exists(rutarchivos))
{
System.IO.Directory.CreateDirectory(rutarchivos);
}
string namearchivoO = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy-MM-dd");
string namearchivo = namearchivoO;
int contadorz = 1;
while (System.IO.File.Exists(string.Format("{0}{1}", rutarchivos, namearchivo)))
{
namearchivo = string.Format("{0}({1})", namearchivoO, contadorz++);
}
System.IO.StreamWriter archivoW = null;
try { archivoW = new System.IO.StreamWriter(string.Format("{0}{1}", rutarchivos, namearchivo), true, System.Text.Encoding.UTF8); } catch (Exception) { }
if (archivoW != null)
{
try { archivoW.WriteLine(MovtosmodSalario); } catch (Exception) { }
try
{
archivoW.Close();
archivoW.Dispose();
}
catch (Exception) { }
}
RegistraScript(Script); RegistraScript(Script);
// RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"))); // RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy")));
@@ -737,7 +713,34 @@ public partial class RH_CalculoSBC : ClsPaginas
//RegistraScript("$('#DmodalGetSua').modal('hide');"); //RegistraScript("$('#DmodalGetSua').modal('hide');");
} }
} }
private void guardarArchivomodsalario(string MovtosmodSalario)
{
string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.Ruta);
if (!System.IO.Directory.Exists(rutarchivos))
{
System.IO.Directory.CreateDirectory(rutarchivos);
}
string namearchivoO = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy-MM-dd");
string namearchivo = namearchivoO;
int contadorz = 1;
while (System.IO.File.Exists(string.Format("{0}{1}", rutarchivos, namearchivo)))
{
namearchivo = string.Format("{0}({1})", namearchivoO, contadorz++);
}
System.IO.StreamWriter archivoW = null;
try { archivoW = new System.IO.StreamWriter(string.Format("{0}{1}.txt", rutarchivos, namearchivo), true, System.Text.Encoding.UTF8); } catch (Exception) { }
if (archivoW != null)
{
try { archivoW.WriteLine(MovtosmodSalario); } catch (Exception) { }
try
{
archivoW.Close();
archivoW.Dispose();
}
catch (Exception) { }
}
}
protected void LnkGuardarCambios_Click(object sender, EventArgs e) protected void LnkGuardarCambios_Click(object sender, EventArgs e)
{ {
string fecha = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd"); string fecha = TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy").ToString("yyyy/MM/dd");

2
Scripts/custom.js
View File

@@ -481,7 +481,7 @@ table#${Tid}.adssigscroll tr:nth-child(${numberitem}) { top: ${top}px; }`;
} }
function LoadSortSticky() { function LoadSortSticky() {
$('body').on('click', 'table.adssigscroll tr.tr_order:not(.tsorterblock) > th ,table.adssigscroll tr.tr_order:not(.tsorterblock) > td ', function (e) { $('body').on('click', 'table.adssigscroll.tr_order tr:not(.tsorterblock) > th ', function (e) {
var tthis = $(this); var tthis = $(this);
if (tthis.closest('.NoClick').length == 0 && !($(e.target).is('a,input'))) { if (tthis.closest('.NoClick').length == 0 && !($(e.target).is('a,input'))) {

6
Styles/Custom.css
View File

@@ -57,7 +57,7 @@ table.adssigscroll {
z-index: 4; /* Asegura que est<73> sobre otros elementos */ z-index: 4; /* Asegura que est<73> sobre otros elementos */
} }
.tr_order > th::after { .tr_order tr > th::after {
content: "\f0dc"; content: "\f0dc";
font: normal normal normal 14px / 1 FontAwesome; font: normal normal normal 14px / 1 FontAwesome;
display: inline-block; display: inline-block;
@@ -65,11 +65,11 @@ table.adssigscroll {
color: #32A1CF; color: #32A1CF;
} }
.tr_order > th.asce::after { .tr_order tr > th.asce::after {
content: "\f0de"; content: "\f0de";
} }
.tr_order > th.desc::after { .tr_order tr > th.desc::after {
content: "\f0dd"; content: "\f0dd";
} }
/*END ScrollADS V2*/ /*END ScrollADS V2*/

4
Ventas/Ventas.aspx.vb
View File

@@ -6544,6 +6544,7 @@ Partial Class Ventas
HdnVentaSaldo.Value = drv("Total").ToString() HdnVentaSaldo.Value = drv("Total").ToString()
TxtMotivoDescuento.Text = drv("MotivoDescuento").ToString() TxtMotivoDescuento.Text = drv("MotivoDescuento").ToString()
TxtObsFact.Text = drv("Observaciones").ToString() TxtObsFact.Text = drv("Observaciones").ToString()
TxtOrdenCompra.Text = drv("OrdenCompra").ToString()
DdlMoneda.SelectedValue = drv("CveMoneda").ToString() DdlMoneda.SelectedValue = drv("CveMoneda").ToString()
CambiaMoneda() CambiaMoneda()
TxtTipoCambio.Text = drv("TipoCambio").ToString() TxtTipoCambio.Text = drv("TipoCambio").ToString()
@@ -6639,7 +6640,8 @@ Partial Class Ventas
Private Sub CargaFormaPago(CveMetodoPago As Integer) Private Sub CargaFormaPago(CveMetodoPago As Integer)
Dim dtt As DataTable = Nothing Dim dtt As DataTable = Nothing
If CveMetodoPago > 0 Then If CveMetodoPago > 0 Then
dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, " CveFormaPago <> 20 ", "CveFormaPago = 20")) 'si es PPD, siempre tiene que ser "99", pero si es PUE, si puede seleccionar hasta el "99"
dtt = GlobalDTVtaFormaPago.FiltraParametros(If(CveMetodoPago = 1, "", "CveFormaPago = 20"))
Else Else
dtt = GlobalDTVtaFormaPago dtt = GlobalDTVtaFormaPago
End If End If