Histórico da Página

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


User Function CT5CPOS( aCT5 )     

	Local aLP :=  PARAMIXB[1]
    
    If aLP[1] == "801"
        FuncaoDesejada() //RegraRegla desejadadeseada realizando algumalgún funcionamentofuncionamiento combasado baseen nocriterios critériosestablecidos estabelecidoscon combase baseen nola retornodevolución dodel lançamentoasiento padrãoestándar
      Endif  

Return

O El array conta com 2 posições sendocuenta con 2 posiciones, siendo:

A posição La posición aLP[1] é a posição que mostra o Código do lançamento padrão es la posición que muestra el Código del asiento estándar ( CT5_LANPAD ) posicionado( no exemplo marcado( en el ejemplo 801 ).
Já na posição
En la posición aLP[2] irá conter todos os dados do lançamento padrão contendrá todos los datos del asiento estándar de código 801, ou seja nesse exemplo foi retornado 4 sequências cadastradas com o mesmo código de lançamento padrão es decir en este ejemplo se devolvieron 4 secuencias registradas con el mismo código de asiento estándar 801.

ObservaçãoObservación: O array retorna apenas os lançamentos padrões que estão ativos El array solamente devuelve los asientos estándar que están activos ( CT5_STATUS igual à a 1).

// PontoPunto de entrada para tratamentotratamiento dodel conteudocontenido dode 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 Las modificaciones realizadas en el PE son de responsabilidad de quien los utiliza, así como también los impactos generados por este punto de entrada.