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

-- que al asociar folios fiscales, considerar Ant

Browse Source
This commit is contained in:
rrene
2023-07-17 11:41:49 -07:00
parent 2f2247ec29
commit 89fb1aba64
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/Ventas.aspx.vb
View File

@@ -6898,8 +6898,6 @@ Partial Class Ventas
UpModalRemisionesNC.Update() UpModalRemisionesNC.Update()
End If End If
CargaFacturasARelacionar()
If RequiereOC Then If RequiereOC Then
Dim Documentacion As String = "" Dim Documentacion As String = ""
'RegistraScript("$('#DivDocsCliente').modal({ backdrop: 'static', keyboard: false });", "ModalArchivos") 'RegistraScript("$('#DivDocsCliente').modal({ backdrop: 'static', keyboard: false });", "ModalArchivos")
@@ -7066,9 +7064,14 @@ Partial Class Ventas
End Sub End Sub
Private Sub CargaFacturasARelacionar() Private Sub CargaFacturasARelacionar()
Using ObjClientes As New ClsClientes Using ObjClientes As New ClsClientes
Dim dtt As New DataTable
If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ing") Then If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ing") Then
DdlFacturaARelacionar.DataSource = ObjClientes.DtResultados dtt = ObjClientes.DtResultados
End If End If
If ObjClientes.GetHistorialVentas(Me.CveCliente, UsuarioActual.CveEmpresa, TipoDocto:="Ant") Then
dtt.Merge(ObjClientes.DtResultados)
End If
DdlFacturaARelacionar.DataSource = dtt
End Using End Using
DdlFacturaARelacionar.DataBind() DdlFacturaARelacionar.DataBind()