AF apicola, terminal cuentas

Ventas/Clientes.aspx.vb

@@ -3889,14 +3889,17 @@ Partial Class Clientes
                         IdCtaContableRetISR = IdCuentaContable
                 End Select
 
-
-                Dim ObjClientes As New ClsClientes
-                If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then
-                    TieneError = True
-                End If
-
-                ObjClientes.Dispose()
-
+                If CveCliente > 0 Then
+                    Dim ObjClientes As New ClsClientes
+                    If Not ObjClientes.VincularCuentasContables(IdCtaContableClientes, IdCtaContableAnticipos, IdCtaContableRetIVA, IdCtaContableRetISR, CveCliente) Then
+                        TieneError = True
+                    End If
+
+                    ObjClientes.Dispose()
+                End If
+
+
+
             Else
                 TieneError = True
             End If