El formulario de registro Nuevo

Para probar todo nuestro sistema necesitamos adecuar el formulario SQL Nuevo

Para un formulario sencillo se muestra así

Para un formulario de cabecera y líneas, con campo de serie y número se muestra así

Y en modo diseño

Este es un formulario base, al cual hay que asignar código para determinar que controles se hacen visibles, según el formulario que lo llama, y que hay que hacer al aceptar.

En la parte superior del código declaramos dos variables que usaremos

El procedimiento Form_Load()

Asignamos valor al variable fichero, dependiendo si el nuevo se ha pulsado desde el formulario de selección o desde el de edición

Y también valor al variable campo, según el Tag del fichero. Por eso es importante llenar este campo en los formularios de edición: nos dice cuál es el campo clave, principal y único

Y ponemos título al campo principal

Ahora dependiendo del tipo de formulario deberemos hacer visibles algunos campos

Si es el de facturas, necesitamos hacer visible la serie, el número y el almacén

Y a la serie, como es un cuadro combinado hay que asignarle valores, cosa de la que se encarga la función seriesdeSQL(sFichero)

Que devuelve una cadena con las series asignadas en los contadores

Por ejemplo A;Verdadero;B;Falso;

Si el formulario es sencillo, y no tiene series basta hacer visible el campo Valor, ponerle etiqueta y asignar el foco

Aquí tenemos todo el código

El procedimiento BtnAceptar_Click()

Declaramos las variables que necesitamos

Y hay una instrucción Case para decidir lo que hacemos con cada tipo de formulario

Formulario Facturas ventas

Verificamos que haya almacén

Abrimos el fichero de facturas, para que si hemos entrado valores podamos buscar el que hemos entrado, y si no crear el registro nuevo

Si hemos entrado valores, lo buscamos y si ya existe, avisamos, pues no se puede crear. No podemos duplicar valores del campo principal

Si no hemos entrado valores los calculamos

La número se obtiene con la función contadoressql(sFichero, sCampo, Me.Serie)

A la que hay que pasar el fichero, el campo a buscar y la serie.

En nuestro caso sería un contadoressql(“Facturas ventas”, “Factura”, Me.Serie)

Y por definición ajustamos la serie y el numero con 6 ceros a la izquierda

Me.Valor = Me.Serie & ceros(Me.Numero, 6)

Por ultimo creamos el registro nuevo asignado los valores del campo principal y los demás que necesitemos

Para los ficheros estándar, que solo tienen un campo principal de tipo texto usamos el código del Else

Abrimos el fichero

Para buscar si el valor entrado existe

En cuyo caso informamos que no se puede crear el registro pues no admitimos valores duplicados

Si no existe, lo asignamos con la función contadoressql(sFichero, sCampo, “”)

Y creamos el registro con el campo principal y los valores por defecto que queramos asignar

Por ultimo necesitamos cerrar el formulario nuevo y mostrar el formulario que nos interesa en el registro que hemos creado

La función IraConDatoSQL(sFichero, sCampo, sValor), muestra un formulario en el registro que le indicamos.

En nuestro ejemplo de facturas sería un

IraConDatoSQL(“Facturas ventas”, “Factura”, sValor)

Y como sValor tiene el número de factura, nos lleva a esa factura.

NOTA: en este código también está la parte de creación de una empresa nueva, que no se ha explicado aquí.

 

 

 

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.