FiveTech Software tech support forums

Este es un ejemplo de Procedimiento Almacenado que retorna un valor numérico:


create PROCEDURE [dbo].[ProductQuantity](@Dato Varchar(24), @Result Tinyint Output)
As
Begin

If Exists (Select * From [tabla] Where [clave]=@Dato)
Set @Result=1
Else
Set @Result=0;


End

#Include "Fivewin.ch"

// ***************************************************************** //

Function Main()

Inserta_sql_datos('dato de prueba')

Return(Nil)

// ***************************************************************** //

Static Function Inserta_sql_datos(_Dato_)
Local _Cnx_,_oCmd ...

Foreros:

Pues eso, me gustaría subir mi app (EXE), hecha con FW y Harbour, utilizo la base de datos MySql y ADO.

Que necesito?, aparte de contratar un servidor, escucho sugerencias de servidores.

Alguien que ya tenga experiencia en el tema y quiera compartirla con un ñoño.

Saludos y agradecido ...

Acabo de probar tu código y funciona bien.

¿Puedes copiar el error que te genera?

Buen dia...

Gracias por responder...

Ya estoy en proceso de migracion a mariaDb con fivewin... con tres opciones : usando cursores nativos (rowset) o TarrayData o con tablas dbf temporales y locales... para NO mantener la tabla abierta y asi trabajar "desconectado" de la base de datos y hacer ...

Muchos años atrás, cuando trabaja con DBFs y con unos 40 usuarios, no tenía problemas.

Luego la empresa fue creciendo y los usuarios fueron aumentando, cuando llegué a los 100 usuarios en promedio, empezaron aparecer el problema de "Error BASE/1002 No existe el alias:", no entendía el problema ...

En mi caso lo solucioné de la siguiente manera:

1.- Creé una pagina web simple, la cual lo puedo cargar desde un teléfono celular, PC o Tableta; en el cual, el cliente o usuario procedía a dibujar su FIRMA con el mouse (en caso de una PC) o dibujar con su dedo (en caso de celular o tableta ...

Lo que tienes que hacer primero es, en tu resultado a mostrar en el xBrowse, es tener una columna adicional el cual tendrá un correlativo del 1 al infinito. El numero representa el agrupamiento de lo que tu desees (Código de la empresa, código de cliente, fecha de venta, etc.)

Ejemplo:

Codigo ...

wfecha:=Dtos(Ctod('07/11/2024'))

Text Into cSql
SELECT m1.tropanumero AS tropa, m1.correlativo, ani.descripcion,
m1.inac AS INACUR,ROUND( t.kilosen1 / t.cabezas , 2) AS KEnPie,
m1.kilos + isnull(m2.kilos,0) AS KClasif, m1.precioen2
FROM C10304 m1
INNER JOIN P0021 ani ON ani.codigo = m1 ...

Con el WHERE IN, no es posible, debido a que la lista de codigos es variable. En SQL SERVER si he podido hacerlo, con sentencia SQL dinámicas.

Otra opción sería NO usar Store Procedure, sino, una sentencia select.



** Códigos Alfanuméricos
cCadena:="'001','002','003','004'"

Text In _Sql_

SELECT ...

Deberías poner aqui tu Procedimiento Almacenado, para entenderlo.

Sería bueno saber, cual es el orden de ejecución de estos comandos:

truncate table
create table
drop table

No tiene sentido usar TRUNCATE, si después usaré DROP.

- Usando el Bloc de notas del windows, te permite usar los códigos ASCCI, para hacer cuadros ╔═╗.

- Usando el Notepad++ (codificación UTF-8) tambien te permite usar los caracteres en cuestión.

En tu select tienes la siguiente columna "DATEDIFF('"+dHoy+"', Fac.fecha_vencimiento)", agrégale lo siguiente:


"DATEDIFF('"+dHoy+"', Fac.fecha_vencimiento) AS DiasVcto,"

Luego en la columna correspondiente del Xbrowse pones el nombre de esta columna que contiene la diferencia de días "DiasVcto ...