- que no se cargue la compra sino corresponde
This commit is contained in:
@@ -668,7 +668,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCompras(CveProveedor As Integer)
|
||||
If Not DdlConceptosContables.SelectedValue.ToEntero.Contiene(21) Then
|
||||
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
|
||||
Dim ObjCompras As New ClsCompras
|
||||
|
||||
DdlCompras.ClearSelection()
|
||||
@@ -1265,7 +1265,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
DdlProveedoresE.Items.Insert(0, New ListItem(" - ", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaComprasE(CveProveedor As Integer)
|
||||
If Not DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(21) Then
|
||||
If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
|
||||
Dim ObjCompras As New ClsCompras
|
||||
|
||||
DdlComprasE.ClearSelection()
|
||||
|
||||
Reference in New Issue
Block a user