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

Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Raul Pimienta
2019-08-27 15:36:00 -07:00
parent dade0dcc34 1cee95c506
commit f01f6ed68d
8 changed files with 31 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Compras/Compras.aspx.vb
View File

@@ -4160,8 +4160,10 @@ Partial Class Compras_Compras
CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
'seria de contado, solo cuando no tenga vinculado ningun anticipo
If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
If CvePrePoliza > 0 Then
'seria de contado, solo cuando no tenga vinculado ningun anticipo
If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
If RBLContado.SelectedValue = "1" Then
'se registra primero el movimiento en bancos para luego vincularlo en la compra
@@ -7715,6 +7717,7 @@ Partial Class Compras_Compras
ObjCompras.RollBack()
End If
End If
Catch ex As Exception
ObjCompras.RollBack()