GDiaz - Compras Prontos Pagos

This commit is contained in:
rakcsle
2024-03-23 13:16:39 -07:00
parent fa4a186cda
commit d034f59768
3 changed files with 4188 additions and 29 deletions

1865
App_Code/ClsCompraManager.vb Normal file

File diff suppressed because it is too large Load Diff

File diff suppressed because it is too large Load Diff

View File

@@ -5205,13 +5205,13 @@ Partial Class Compras_eFacturas
Exit For
End If
Dim CompraActual As New Compra2(CFDIXmlPath, Compra2.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
Dim CompraActual As New ClsCompraManager(CFDIXmlPath, ClsCompraManager.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
CompraActual.CveFactura = GvRow.DataKey("CveFactura").ToEntero
CompraActual.CveProveedor = GvRow.DataKey("CveProveedor").ToEntero
CompraActual.CveTipoProveedor = GvRow.DataKey("CveTipoProveedor").ToEntero
CompraActual.CveTipoConceptoProveedor = GvRow.DataKey("CveTipoProveedor").ToEntero
CompraActual.TipoCompra = Compra2.EnumTipoCompra.Sin_definir
CompraActual.TipoCompra = ClsCompraManager.EnumTipoCompra.Sin_definir
CompraActual.IEPSGasto = True
CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim
CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor")
@@ -5250,7 +5250,9 @@ Partial Class Compras_eFacturas
End Class
Public Class Compra2
Public Class ClsCompraManager
Enum EnumCargaCompra
DesdeXML
@@ -6941,7 +6943,7 @@ Public Class Compra2
End If
If respuesta Then
If Not AddPrepolizaDetalles(ObjConta) Then respuesta = False
If Not AddPrePolizaDetalles(ObjConta) Then respuesta = False
End If
If respuesta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 4) Then
@@ -7064,7 +7066,6 @@ End Class
Public Class GeneralesAPIeFacturas
Inherits ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.BaseSIGAPIeFacturas