Histórico da Página

#INCLUDE "PROTHEUS.ch"
#INCLUDE "rwmake.ch"


User Function CT5CPOS( aCT5 )       

	Local aLP :=  PARAMIXB[1]
    
    If aLP[1] == "801"
        FuncaoDesejadaDesiredFunction() //Regra desejadaDesired realizandorule algumperforming funcionamentosome comfunction basebased noon critériosthe estabelecidosestablished comcriteria baseusing nothe retornoStandard do lançamento padrãoEntry return.
    Endif   

Return

  

The array has 2 positionsO array conta com 2 posições sendo:

A posição The aLP[1] é a posição que mostra o Código do lançamento padrão position is the one that displays the Standard Entry Code (CT5_LANPAD) posicionado( no exemplo , positioned (in the example, 801).
Já na posição
Position aLP[2] irá conter todos os dados do lançamento padrão de código 801, ou seja nesse exemplo foi retornado 4 sequências cadastradas com o mesmo código de lançamento padrão 801. will contain all the data of the standard entry with code 801. That is, in this example, 4 sequences registered with the same standard entry code 801 were returned.

Note: The array only returns standard entries that are active (CT5_STATUS equal to Observação: O array retorna apenas os lançamentos padrões que estão ativos ( CT5_STATUS igual à 1).

// Ponto de entrada para tratamento do conteudo do CT5
If Existblock("CT5CPOS") .And. !lSimula
	Execblock("CT5CPOS",.F.,.F.,{aCT5[nX]})
Endif
 

As alterações realizadas no PE são de responsabilidade de quem os utiliza, como também os impactos gerados por esse ponto de entrada.

The changes made in the EP are the responsibility of the user who utilizes them, as are the impacts generated by this entry point.