PC Toledo

... iTDTags = 1
ciTDTag := cTDTag
endif
cTDTags := cTDTags + ["] + alltrim(aTDCols[iTDTags]) + [":"] + cTDTag + ["] + iif(iTDTags=9,[],[,] + CRLF )
aadd( aTDTags, cTDTag )
next
cTRTags := cTRTags + [{] + CRLF + cTDTags + CRLF + [}] + iif(iTRTags=oTRTags:length,[],[, ] + CRLF )
aadd( aTRTags ...

... pagamento e evite golpes"


cRawLogotipo := Logotipo( oBoleto:nBanco )
IF ! Empty( oBoleto:dDatDesconto ) .AND. ! Empty( oBoleto:nValDesconto )
AAdd( aPDFMsgList, "DESCONTO DE R$ " + LTrim( Transform( oBoleto:nValDesconto, "@E 999,999.99" ) ) + ;
" SE FOR PAGO ATÉ " + Dtoc( oBoleto:dDatDesconto ...

... K_ALT_INS", 418, "Alt-Ins" }, ;
{ "K_ALT_DEL", 419, "Alt-Del" }, ;
{ "K_ALT_BS", 270, "Alt-Backspace" }, ;
{ "K_ALT_TAB", 421, "Alt-Tab" } }

AAdd( aKeys, { "K_CTRL_A", 1, "Ctrl-A, Home" } )
AAdd( aKeys, { "K_CTRL_B", 2, "Ctrl-B, Ctrl-Right arrow" } )
AAdd( aKeys, { "K_CTRL_C", 3, "Ctrl-C ...

... structure" )
? oXmlNode:cName

oXmlNode := oXmlDoc:findFirst( "field" )

DO WHILE oXmlNode <> NIL
// attributes are stored in a hash
AAdd( aStruct, { oXmlNode:aAttributes[ "name" ] , ;
oXmlNode:aAttributes[ "type" ] , ;
Val( oXmlNode:aAttributes[ "len" ] ), ;
Val( oXmlNode ...

... lOk := .T.

IF Empty( cPathLeto )
RETURN .F.
ENDIF

BEGIN SEQUENCE

// 1) cria DBF se não existir
IF ! leto_file( cPathLeto + "psw.dbf" )

AAdd( aStru, { "USUARIO", "C", 10, 0 } )
AAdd( aStru, { "SENHA", "C", 10, 0 } )
AAdd( aStru, { "GRUPO", "C", 20, 0 } )
AAdd( aStru, { "ACESSO", "C ...

... IF PQresultStatus( res ) != PGRES_TUPLES_OK
? "Erro SQL:"
? PQresultErrorMessage( res )
RETURN aRet
ENDIF

FOR n := 1 TO PQntuples( res )
AAdd( aRet, DbRow( res, n ) )
NEXT

RETURN aRet

/* ========================================================= */


FUNCTION SqlFilter( conn, cTabela ...

... os botões, pode facilitar.
Não tenho certeza se precisa mexer nos CHs pra aceitar igual HMG Extended.


aButtons := {}
...
DEFINE BUTTON ( "xxx" )
AAdd( aButtons, "XXX" )
...


A partir daí, pode verificar o array, como um array comum.
Não se esqueça que, se tiver exclusão no array, melhor ...

... ponteiro,2]>0 .AND. matriz_Botao_Artigo[ponteiro,2]<2
Carrega_Botoes_Artigos( aNomeButton )
matriz_Botao_Artigo[ponteiro,2] :=2
ENDIF
ELSE
AADD(matriz_Botao_Artigo, { aNomeButton, 1 })
ENDIF
ENDIF
Return Nil
Pergunto-lhe, acha que devo fazer um RELEASE aos botões quando mudo de grupo ou ...

... msxml5r.dll', 'capicom.dll' }

// 1. Converter string em bytes (igual Encoding.GetBytes)
aBytes := {}
FOR i := 1 TO Len( cTextoOriginal )
AAdd( aBytes, Asc( SubStr( cTextoOriginal, i, 1 ) ) )
NEXT

// 2. Criar hash SHA1 dos bytes
aHash := hb_SHA1( aBytes )

oXml ...

... aCB[i,2] == cId
EXIT
ENDIF
NEXT
IF Empty( block )
IF i <= nLen
ADel( ::aCB, i )
::aCB := ASize( ::aCB, nLen - 1 )
ENDIF
ELSE
IF i > nLen
AAdd( ::aCB, { nId, cId, block } )
ELSE
::aCB[i,3] := block
ENDIF
ENDIF

RETURN Nil

METHOD Get( nId ) CLASS HPaintCB

LOCAL i, nLen, aRes

IF ...

... aRotaOk
LOCAL cUFOrigem, aItem, cUF, aRotas, aUFList := {}

FOR EACH cUF IN aUFSource
IF hb_AScan( aUFList, { | e | e == cUF } ) == 0
AAdd( aUFList, cUF )
ENDIF
NEXT

IF Len( aUFList ) == 0
RETURN {}
ENDIF
IF Len( aUFList ) == 1
RETURN { aUFList[1] }
ENDIF
FOR EACH cUF IN ...

... cUF )
//? "vizinhos", nPass, hb_ValToExp( aTrajeto )
//Inkey(10)
FOR EACH xItem IN aTrajeto
aNewList := {}
FOR EACH xItem2 IN aList2
AAdd( aNewList, xItem2 )
NEXT
AAdd( aNewList, xItem )
//? "adicionado", nPass, hb_ValToExp( { xItem, aNewList } )
//Inkey(10)
AAdd( aList, { xItem ...

... aFieldList, { | e | e[1] == aField[ DBS_NAME ] } )
IF nPos == 0
//? aField[ DBS_NAME ], aField[ DBS_TYPE ], aField[ DBS_LEN ], aField[ DBS_DEC ]
AAdd( aFieldList, { aField[ DBS_NAME ], 0 } )
nPos := Len( aFieldList )
ENDIF
aFieldList[ nPos, 2 ] += 1
NEXT
USE
NEXT
ASort( aFieldList,,, { | a ...

... pro contrário

FOR EACH aItem IN aPrgList
FOR EACH aItem2 IN aItem[3]
nPos := hb_AScan( aNewList, { | e | e[1] == aItem2[1] } )
IF nPos == 0
AAdd( aNewList, { aItem2[1], {} } )
nPos := Len( aNewList )
ENDIF
AAdd( aNewList[ nPos ][ 2 ], { aItem[1], {} } )
NEXT
NEXT

// tentar mover pra ...

... cLine ) + 1 )
cLine := Val( Substr( cLine, 1, At( ":", cLine ) - 1 ) )
nPos := hb_AScan( aPrgList, { | e | e[1] == cFile } )
IF nPos == 0
AAdd( aPrgList, { cFile, {} } )
nPos := Len( aPrgList )
ENDIF
AAdd( aPrgList[ nPos ][ 2 ], cLine )
ENDIF
NEXT
hb_MemoWrit( "test.txt", hb ...