PC Toledo

... para cJson se desejam transmitir por algum body:http
apllication/json, sem precisar criar com: cJson := '{ hnfe: { num: '+cNum+', Emissao: '+Dtoc(date)... dá muito trabalho criar cjson
dessa maneira.

// Criando exemplo variavel hash

hNfe := CreateObj()
hNfe:Num := 122 // vai ficar hNe:NUM se ...

... B Display numbers left-justified ¦ X Display DB after negative numbers
C Display CR after positive numbers ¦ Z Display zeros as blanks
D Display date in SET DATE format ¦ ( Enclose negative numbers in parens
E Display date in British format ¦ ! Convert alpha characters to upper
R Insert non ...

... WScript.Echo "Assunto: " & objCert.SubjectName
WScript.Echo "Emissor: " & objCert.IssuerName
WScript.Echo "Validade: " & objCert.ValidFromDate & " - " & objCert.ValidUntilDate

' --- Aqui você pode usar o certificado e a chave privada para outras operações ---
' Por exemplo, você pode ...

... version
debug version is not the same as demonstration version
If anything is free, ok, it is free.
It changed to paid, ok, at least there exists a date about this.
The old version, without new changes, continues free.
Not sure if it is needed to change name, to do not create confusion.

If users ...

... DBFCDX", 1 ) // RDT_FULL

/*
// dbSetDriver( "DBFCDX" )
// SET DBFLOCKSCHEME TO 3 // ???
// rddSetDefault( "DBFCDX" )
*/

SET CENTURY ON
SET DATE BRITISH
SET TIME FORMAT TO "HH:MM:SS"
SET EPOCH TO YEAR( DATE() ) - 30
SET SOFTSEEK OFF
SET WRAP ON
SETCANCEL( .F. )
SET CONFIRM OFF
SET ...

... Text)
- Last Name: (Text)
- Department: (Dropdown list with the following options: "Sales", "Marketing", "Engineering", "HR", "Finance")
- Hire Date: (Date picker)
- Active: (Checkbox)
The form should have the following buttons:
- New: Clears all fields and generates a new Employee ID.
- Save ...

Até que foi rápido

if() na inicial, pra não adicionar linha desnecessária

SET @dInicial := IF( WEEKDAY( @dInicial ) == 0, @dInicial, DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY ) );

uma dFinal

SET @dFinal := LAST_DAY( @dDate );

o where pra evitar linha a mais

WHERE A ...

Mais doido ainda, só pra testar possibilidades.
Calendário com marcação dos compromissos.


SET @dDate := DATE( NOW() );
SET @dInicial := DATE_SUB( @dDate, INTERVAL DAY( @dDate ) - 1 DAY );
SET @dInicial := DATE_SUB( @dInicial, INTERVAL WEEKDAY( @dInicial ) + 1 DAY );

SELECT DISTINCT
if( MONTH( A ...

... o indice de mesmo nome do dbf (sem a extensão)
SET AUTORDER TO 1 // aloca a ordem 1 como corrente, se omitir, o padrão é 0 (zero)

SET DATE BRIT // define datas no formato "britanico/brasileiro"

SET CENTURY ON // Habilita data com ano de 4 dígitos

RDDSETDEFAULT( "DBFCDX ...

... nValNot DECIMAL(16,2);
DECLARE nIpiVal, nDifValf, nMonoBas, nDifVali, nMonoAliq DECIMAL(16,2);
DECLARE nComplementar INT(11);
DECLARE dData DATE;

SET cThisXml := '';
SET nMonoAliq := 1.1200;

SELECT NFICMBAS, NFICMVAL, NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL ...

... nValNot DECIMAL(16,2);
DECLARE nIpiVal, nDifValf, nMonoBas, nDifVali, nMonoAliq DECIMAL(16,2);
DECLARE nComplementar INT(11);
DECLARE dData DATE;

SET cThisXml := '';
SET nMonoAliq := 1.1200;

SELECT NFICMBAS, NFICMVAL, NFSUBBAS, NFSUBVAL, NFVALPRO, NFVALFRE,
NFVALSEG, NFVALDES, NFIIVAL ...

... todo mundo tem


$cert = New-SelfSignedCertificate `
-KeyUsage DigitalSignature `
-KeySpec Signature `
-KeyAlgorithm RSA `
-KeyLength 2048 `
-DNSName “www.site.com.br” `
-CertStoreLocation Cert:\CurrentUser\My `
-Type Custom `
-Subject “CN=nome,E=email” `
-NotAfter (Get-Date).AddYears(10)

... democalmonth.prg
*/

#include "minigui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION DemoCalMonth( lWithDialog, xParent, oButton, dDate )

LOCAL nCont, xValue, dDatRef, nMes

hb_Default( @lWithDialog, .T. )

SET WINDOW MAIN OFF

IF oButton == Nil
oButton := Array(31)
ENDIF
IF ...

Olá!

Dependendo da versão do banco, é possível utilizar uma CTE:

WITH recursive Datas AS (
-- "Membro Âncora"
SELECT
Cast( '2025-06-01' As Date) as Data
UNION ALL
-- "Membro Recursivo"
SELECT
Date_Add( Data, INTERVAL 1 DAY)
FROM Datas /* Resultado da última iteração */
WHERE
Data < Cast ...

... os outros, mas pode compilar sozinho.

#include "hwgui.ch"

STATIC nRowPos := -1, nColPos := -1

FUNCTION OneMonth( lWithDialog, oDlg, oButton, dDate )

LOCAL nCont, xValue, dDatRef, nMes

hb_Default( @lWithDialog, .T. )

SET DATE BRITISH
IF oButton == Nil
oButton := Array(31)
ENDIF
IF ...