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

-- option explicit

Browse Source
This commit is contained in:
rrene
2023-09-07 13:51:47 -07:00
parent f8a10e0188
commit e35f5ef553
1 changed files with 14 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Ventas/ClientesAbonar.aspx.vb
View File

@@ -221,20 +221,16 @@ Partial Class Ventas_ClientesAbonar
If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then
HlSaldarCuentasIncobrables.Visible = True HlSaldarCuentasIncobrables.Visible = True
End If End If
End If End If
If CveMonedaFiltro = -1 Then If CveMonedaFiltro = -1 Then
ChkPagarPesos.Visible = False ChkPagarPesos.Visible = False
ChkPagarDolares.Visible = False ChkPagarDolares.Visible = False
End If End If
RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}") RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
End If End If
RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy") RVTxtFechaDocumento.MaximumValue = Now.ToString("dd/MM/yyyy")
If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then If UsuarioActual.CveEmpresa.Contiene(13, 83, 158) Then
LnkAccionesModalSeleccionLayout.Visible = True LnkAccionesModalSeleccionLayout.Visible = True
@@ -1185,7 +1181,7 @@ Partial Class Ventas_ClientesAbonar
For Each Fac As Modelos.Factura In ListaFacturasGenerarNC For Each Fac As Modelos.Factura In ListaFacturasGenerarNC
Dim ListaNC As New List(Of Modelos.Factura) Dim ListaNC As New List(Of Modelos.Factura)
ListaNC.Add(Fac) ListaNC.Add(Fac)
Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC) Dim Resp As RespuestaNotaCredrito = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaNC)
If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then If Resp IsNot Nothing AndAlso Resp.Respuesta IsNot Nothing AndAlso Resp.Respuesta.CveVenta > 0 Then
NCGeneradas.Add(Resp) NCGeneradas.Add(Resp)
@@ -1223,8 +1219,8 @@ Partial Class Ventas_ClientesAbonar
Dim PorcentajePago As Double = 1 Dim PorcentajePago As Double = 1
Dim Total As Double Dim Total As Double
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
Dim ImporteOP = 0.0 Dim ImporteOP As Decimal = 0
Dim IdCuentaOP = -1 Dim IdCuentaOP As Integer = -1
For Each gvr As GridViewRow In GvCxC.Rows For Each gvr As GridViewRow In GvCxC.Rows
If gvr.FCCheckBox("Chk").Checked Then If gvr.FCCheckBox("Chk").Checked Then
@@ -1293,13 +1289,13 @@ Partial Class Ventas_ClientesAbonar
If IDPoliza > 0 Then StrMsg.AppendFormat("Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a> <br/>", IDPoliza, FolioPoliza) If IDPoliza > 0 Then StrMsg.AppendFormat("Poliza: <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' target='_blank' class='Texto'>{1}</a> <br/>", IDPoliza, FolioPoliza)
Dim TextoComplementoPago = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago) Dim TextoComplementoPago As String = EmitirComplementoPago(CveIE, CveVentasPago, SeriesPago)
For Each RespuestaNotaCredito In NCGeneradas For Each RespuestaNotaCredito As RespuestaNotaCredrito In NCGeneradas
If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then If RespuestaNotaCredito IsNot Nothing AndAlso RespuestaNotaCredito.Respuesta IsNot Nothing Then
Try Try
Dim ObjTimbradoNC As New Timbrado Dim ObjTimbradoNC As New Timbrado
Dim TimbroNC = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC) Dim TimbroNC As Boolean = ObjTimbradoNC.TimbrarFactura(UsuarioActual, RespuestaNotaCredito.ObjFacturaNC)
If Not TimbroNC Then If Not TimbroNC Then
Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError) Alert(ObjTimbradoNC.MensajeErrorCFDI, TipoMensaje.MsgError)
End If End If
@@ -1363,7 +1359,7 @@ Partial Class Ventas_ClientesAbonar
Dim Retorno As New RespuestaNotaCredrito() Dim Retorno As New RespuestaNotaCredrito()
Try Try
Dim ObjFacturaDevolucion = New Modelos.Factura(UsuarioActual) Dim ObjFacturaDevolucion As New Modelos.Factura(UsuarioActual)
ObjFacturaDevolucion.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML ObjFacturaDevolucion.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario ObjFacturaDevolucion.CveUsuario = UsuarioActual.CveUsuario
ObjFacturaDevolucion.UsuarioCreo = UsuarioActual.Usuario ObjFacturaDevolucion.UsuarioCreo = UsuarioActual.Usuario
@@ -1770,9 +1766,9 @@ Partial Class Ventas_ClientesAbonar
Dim Cantidad As Decimal = 1 Dim Cantidad As Decimal = 1
Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero() Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero()
Dim CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero
Dim SubProyecto = DrSubProyecto("SubProyecto").ToString Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString
Dim Proyecto = DrSubProyecto("Proyecto").ToString Dim Proyecto As String = DrSubProyecto("Proyecto").ToString
Dim CveSATNC As Integer Dim CveSATNC As Integer
Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
@@ -1780,7 +1776,7 @@ Partial Class Ventas_ClientesAbonar
If ArrayNC.Length > 6 Then 'CONCEPTO DE PRONTO PAGO If ArrayNC.Length > 6 Then 'CONCEPTO DE PRONTO PAGO
CveSATNC = ArrayNC(6).ToEntero() CveSATNC = ArrayNC(6).ToEntero()
End If End If
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("") Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("")
For Each Dr As DataRow In DtImpuestos.Rows For Each Dr As DataRow In DtImpuestos.Rows
AgregaTempDTNC(ObjFacturaDevolucion.DtDetalle, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero, AgregaTempDTNC(ObjFacturaDevolucion.DtDetalle, DrPS("CvePS").ToString.ToEntero, DrPS("PS").ToString, DrPS("Codigo").ToString, DrPS("PSCodigo").ToString, DrPS("CveTipoPS").ToString.ToEntero, DrPS("Inv_CveMetodoInventario").ToString.ToEntero,
@@ -1812,7 +1808,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
ObjVentas.Dispose() ObjVentas.Dispose()
Dim DtImpuestosLocal = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy Dim DtImpuestosLocal As DataTable = TmpDT.FiltraParametros("", "", {"PorcentajeIVA", "PorcentajeRetIVA", "PorcentajeRetISR", "PorcentajeIEPS", "CveSubProyecto"}).Copy
DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImportePU", GetType(Decimal))
DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteTotal", GetType(Decimal))
DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal)) DtImpuestosLocal.Columns.Add("ImporteIVA", GetType(Decimal))
@@ -1878,7 +1874,7 @@ Partial Class Ventas_ClientesAbonar
End Function End Function
Protected Function CreaDTDetalleNC() As DataTable Protected Function CreaDTDetalleNC() As DataTable
Dim TmpDT = New DataTable Dim TmpDT As New DataTable
TmpDT.Columns.Add("CveVenta", GetType(Integer)) TmpDT.Columns.Add("CveVenta", GetType(Integer))
TmpDT.Columns.Add("Consec", GetType(Integer)) TmpDT.Columns.Add("Consec", GetType(Integer))
TmpDT.Columns.Add("Cantidad", GetType(Decimal)) TmpDT.Columns.Add("Cantidad", GetType(Decimal))
@@ -1962,7 +1958,7 @@ Partial Class Ventas_ClientesAbonar
Return TmpDT Return TmpDT
End Function End Function
Private Function InicializaDTVentasNC() As DataTable Private Function InicializaDTVentasNC() As DataTable
Dim DtVentasNC = New DataTable Dim DtVentasNC As New DataTable
DtVentasNC.Columns.Add("CveVenta", GetType(Integer)) DtVentasNC.Columns.Add("CveVenta", GetType(Integer))
DtVentasNC.Columns.Add("Importe", GetType(Decimal)) DtVentasNC.Columns.Add("Importe", GetType(Decimal))
DtVentasNC.Columns.Add("FolioFiscal", GetType(String)) DtVentasNC.Columns.Add("FolioFiscal", GetType(String))
@@ -2281,7 +2277,6 @@ Partial Class Ventas_ClientesAbonar
#Region "SALDAR CUENTAS" #Region "SALDAR CUENTAS"
Private Sub BtnSaldarCuentasIncobrables_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasIncobrables.Click Private Sub BtnSaldarCuentasIncobrables_Click(sender As Object, e As EventArgs) Handles BtnSaldarCuentasIncobrables.Click
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL() ObjConta.IniciaTransacSQL()