Pular para o conteúdo principal

Postagem em destaque

BlackTDN NEWS :: 2025.02.13 :: 21:42:18

_Créditos das imagens: ChatGPT # Robótica Avançada: o que é, como funciona e quais os benefícios? **Fonte:** Tecmundo.com.br **Autor:** Maura Martins **Publicado em:** 2025-02-13T14:30:00Z ![Imagem](https://tm.ibxk.com.br/2025/01/02/02114816778102.jpg?ims=1200xorig) > Hoje as empresas vivenciam uma nova fase na tecnologia voltada à produção. A chamada fase da Indústria 4.0 também é apontada pelos especialistas como uma "Quarta Revolução Industrial". Nesse momento histórico, entre os destaques, está o desenvolvimento da rob… [Leia mais](https://www.tecmundo.com.br/mercado/401252-robotica-avancada-o-que-e-como-funciona-e-quais-os-beneficios.htm) --- # Ex-chefe da Activision Blizzard minimiza acusações de assédio e sugere que são conspirações de sindicatos **Fonte:** Tecmundo.com.br **Autor:** Gabriel Morais Silva de Oliveira **Publicado em:** 2025-02-13T17:30:00Z ![Imagem](https://tm.ibxk.com.br/2025/02/13/13142625239056.jpg?ims=1200xorig) > Durante uma entrevist...

Protheus :: Programação Básica em Advpl “Combo XXVI”

Recursividade:

As funções e rotinas podem ser recursivas, isto é, podem chamar a si mesmas. Cada chamada recebe uma nova cópia das variáveis Local e Private e de quaisquer parâmetros. Quando uma função retorna, os valores anteriores são restabelecidos. Obs.: Não são alocadas novas cópias de variáveis STATIC.

Exemplo:

User Function SaveArray( uArray , cFileName , nErr )

Local cValTypeuArray := ValType( uArray )
Local lSaveArray := .F.

Local aArray
Local nfHandle

Begin Sequence

IF !( cValTypeuArray $ "A/O" )
Break
EndIF

IF ( cValTypeuArray == "O" )
aArray := ClassDataArr( uArray )
Else
aArray := uArray
EndIF

lSaveArray := FileCreate( cFileName , @nfHandle , @nErr )
IF !( lSaveArray )
Break
EndIF

SaveArr( nfHandle , aArray ) //Aqui chamamos a função para salvar o Array
fClose( nfHandle )

End Sequence

Return( lSaveArray )


Static Function SaveArr( nfHandle , aArray )

Local cElemType

Local uCntSave

Local nLoop
Local nLoops

nLoops := Len( aArray )
uCntSave := ( "A" + StrZero( nLoops , 10 ) )
fWrite( nfHandle , uCntSave )
For nLoop := 1 To nLoops
cElemType := ValType( aArray[ nLoop ] )
IF ( cElemType $ "A/O" ) //Aqui efetuamos a chamada recursiva
IF ( cElemType == "A" )
SaveArr( nfHandle , aArray[ nLoop ] )
Else
SaveArr( nfHandle , ClassDataArr( aArray[ nLoop ] ) )
EndIF
Else
IF ( cElemType == "B" )
uCntSave := GetCBSource( aArray[ nLoop ] )
ElseIF ( cElemType == "C" )
uCntSave := aArray[ nLoop ]
ElseIF ( cElemType == "D" )
uCntSave := Dtos( aArray[ nLoop ] )
ElseIF ( cElemType == "L" )
uCntSave := IF( aArray[ nLoop ] , ".T." , ".F." )
ElseIF ( cElemType == "N" )
uCntSave := Transform( aArray[ nLoop ] , RetPictVal( aArray[ nLoop ] ) )
EndIF
uCntSave := ( cElemType + StrZero( Len( uCntSave ) , 5 ) + uCntSave )
fWrite( nfHandle , uCntSave )
EndIF
Next nLoop

Return( NIL )

Comentários

Postagens mais visitadas