Cambios en el reporte de compras - almacen

AutoConta solo con funcionalidad 200, se quito el UsaContabilidad
This commit is contained in:
Raul Pimienta
2019-08-26 11:05:43 -07:00
parent b5fdcf8a7d
commit f89a7b7c9d
18 changed files with 31 additions and 25 deletions

View File

@@ -3049,7 +3049,7 @@ Partial Class Bancos_IE
'El movimiento 1 es el de Venta
'Conta SIG
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidadSIG Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza
@@ -3067,7 +3067,7 @@ Partial Class Bancos_IE
End If
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza