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

-

Browse Source
This commit is contained in:
rrene
2023-11-27 18:05:02 -07:00
parent 0d6a792a1c adcfc84af2
commit 1ab3954268
2 changed files with 128 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
General/SaldosIniciales.aspx.vb
View File

@@ -1439,8 +1439,14 @@ Partial Class General_SaldosIniciales
Dim DtProveedores As New DataTable Dim DtProveedores As New DataTable
Dim NoEncontrados As Integer = 0 Dim NoEncontrados As Integer = 0
Dim Encontrados As Integer = 0 Dim Encontrados As Integer = 0
DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
Dim RFC As String = "" Dim RFC As String = ""
Dim ObjCompras As New ClsCompras
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
Try
DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim CvePS As Integer = drr("CvePS").ToString().ToEntero() Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero() Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
@@ -1507,8 +1513,6 @@ Partial Class General_SaldosIniciales
If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
FechaVencimiento = Fecha FechaVencimiento = Fecha
End If End If
'Compra
If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento, If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
@@ -1541,12 +1545,18 @@ Partial Class General_SaldosIniciales
'Saldo 'Saldo
If Saldo < Total Then If Saldo < Total Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Total - Saldo, 17, $"{Folio} SALDO INICIAL", Folio, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Total - Saldo, 95, $"{Folio} SALDO INICIAL", Folio, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For
End If End If
Encontrados = Encontrados + 1 Encontrados = Encontrados + 1
Next Next
If Not ErrorCompras Then
Next
Catch ex As Exception
OnError("Ocurrió un error al cargar los datos", ex)
ErrorCompras = True
End Try
If Not ErrorCompras Then If Not ErrorCompras Then
If Contador > 0 Then If Contador > 0 Then
Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion) Alert(String.Format("Se agregaron: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)

53
Ventas/Ventas.aspx.vb
View File

@@ -16282,32 +16282,33 @@ Partial Class Ventas
OnError("Ocurrió un error al enviar el PDF", ex) OnError("Ocurrió un error al enviar el PDF", ex)
End Try End Try
If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then 'SE COMENTA PORQUE SE GENERA LA NOTA DE CREDITO CON LOS IMPORTES DE LA VENTA
CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta) 'If ObjFactura.TipoDocto = "Ing" AndAlso ObjFactura.Timbre.CFDIRelacionados.TipoRelacion = "07" Then
For Each Gvr As GridViewRow In GvAntNC.Rows ' CreaObjetosVentaAmortizacion(Nothing, ObjTimbrado.UUID, ObjFactura.CveVentaRelacion, CveVenta)
If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then ' For Each Gvr As GridViewRow In GvAntNC.Rows
ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero() ' If Gvr.DataKey("FolioFiscal").ToString() = "" AndAlso Gvr.DataKey("TipoDocto") = "Egs" Then
ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString() ' ObjFacturaDevolucion.CveVenta = Gvr.DataKey("CveVenta").ToEntero()
ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero() ' ObjFacturaDevolucion.Serie = Gvr.DataKey("Serie").ToString()
ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion) ' ObjFacturaDevolucion.Folio = Gvr.DataKey("Folio").ToEntero()
End If ' ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion)
Exit For ' End If
Next ' Exit For
If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then ' Next
Dim Obj2 As New List(Of Object) ' If ObjFacturaDevolucion.CveVenta.ToEntero() > 0 Then
Obj2.Add(ObjFacturaDevolucion) ' Dim Obj2 As New List(Of Object)
If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then ' Obj2.Add(ObjFacturaDevolucion)
Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura) ' If Not IsNothing(Obj2) AndAlso Obj2.Count > 0 Then
ofa.Timbre.CFDIRelacionados.UUID.Clear() ' Dim ofa As Modelos.Factura = CType(Obj2(0), Modelos.Factura)
ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID) ' ofa.Timbre.CFDIRelacionados.UUID.Clear()
If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then ' ofa.Timbre.CFDIRelacionados.UUID.Add(ObjTimbrado.UUID)
MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio)) ' If ObjTimbrado.TimbrarFactura(UsuarioActual, ofa) Then
Else ' MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio)) ' Else
End If ' MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b> no se timbro correctamente.<br/><br/>", ofa.TipoDocumento, ofa.SerieFolio))
End If ' End If
End If ' End If
End If ' End If
'End If
'NOTIFICACION DE SMS 'NOTIFICACION DE SMS