Doc. Ref. 28424 Título: Creación de contadores después de una importación Autor: Hexa Última actualización: 01/05/2024 #script #vbs #contadores #prefijo #serie #numeración

---

Creación de contadores después de una importación

Los documentos en Hexa que se numeran en diferentes series, como facturas, albaranes u órdenes de fabricación, disponen de contadores que controlan su numeración. Después de realizar una importación de grandes cantidades de documentos con diferentes series, es necesario crear todos los contadores para que aparezcan en los desplegables de los diferentes formularios y así poder especificarlos con facilidad.

En este documento presentamos un script que recorre todas las tablas que usan contadores especificados como "Prefijo" (Serie) y "Numero" y crea, en caso en que no exista, el contador correspondiente en la tabla "Contador"

Function Main (Criterio, Orden, Opciones)
   Dim Tablas, Tabla
   Dim N, Contador
   ' Array con todas las tablas a procesar
   Tablas = Array("Factura", "FacturaProveedor", "Albaran", "AlbaranProveedor", _
                  "Pedido", "PedidoProveedor", "AlbaranInterno", "OrdenFabricacion", _
                  "Recibo", "Pago")
   N = 0 'Para contar e informar de los prefijos procesados
   For Each Tabla In Tablas ' Bucle por cada tabla
      BD.Rs.Consulta = "SELECT DISTINCT Prefijo FROM " & Tabla & " ORDER BY Prefijo"
      BD.Rs.Abrir False

      Do While Not BD.Rs.Fin
         Contador = Obd.BuscaContador(Tabla, BD.Rs.Campo("Prefijo"))
         N = N + 1
         BD.Rs.Siguiente
      Loop
   Next
   Main = "Prefijos procesados=" & N
End Function

En el ejemplo:

• El método "BuscaContador" del objeto "Obd" busca el nombre del contador correspondiente a un cierto tipo de documento y lo crea si no existe.

Volver a la búsqueda anterior