FiveTech Software tech support forums

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 ...

Para leer datos desde un Procedimiento en SQL-Server, si deseas leer de otro tipo de BAse de datos, solo tienes que cambiar la cadena de conexión.

*******************************************************
#Include "Fivewin.ch"

Static _Cnx_

// **********************[ JACGSOFT ...

For I=1 To [Numeros de columnas]
If I=8
oBrw:aCols[I]:bClrStd:={|| If(((aAlias[22])->clasef="1" .and. (aAlias[22])->estado="1" ),{CLR_BLACK,nRGB(250,219,216)}, {CLR_BLACK,If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) )}) }
nRGB(242,247,252),nRGB(226,226,208) )}) }
Endif
Next I

#include 'FiveWin.Ch'

Function Main()
Local _Xml_,Pos_1,_Txt_

_Xml_:='<cac:PartyIdentification>'+ ;
'<cbc:ID>20606177896</cbc:ID>'+ ;
'</cac:PartyIdentification>'

Pos_1:=HB_At('PartyIdentification',_Xml_)
_Txt_:=Subs(_Xml_,Pos_1,60)

Pos_1:=HB_At('ID>',_Txt_)

? 'Ruc -> '+Subs(_Txt ...

Con esto es suficiente para definir el tamaño de la hoja sin importar la impresora:

HPDF_Page_SetWidth(page,819)
HPDF_Page_SetHeight(page,143)

Carlos,

Usa Procedimientos Almacenados, para grabar información, y así te olvidas, si trabajas con Ms-sql server, MySql, MariaDb y cualquier base de datos.

Con Harbour, tienes que enlazar las librerias hbhpdf.lib y libhpdf.lib


#include "FiveWin.ch"
#include "harupdf.ch"

Function Main()
Local oPdf,Page,oImage,oFont,Font1,Font2,Font3

oPdf:=HPDF_New()

HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL )

**HPDF_SetPassword( oPdf, 'jaime', 'alberto ...

En el SQl

create PROCEDURE [dbo].[CalcSaldo](@Codigo varchar(8), @nMes int, @codusu char(2), @nResul Int Output )
As
Begin
Set Nocount On;

Set @nResul = (dbo.CalcIngAno(@Codigo, @nMes,@codusu) - dbo.CalcSalAno(@Codigo, @nMes, @codusu)) +
(dbo.CalcIngMes(@Codigo, @nMes, @codusu) - dbo ...

¿Tus tablas estan migradas a Sql-server?