Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)

Função:CTBA220
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

O ponto de entrada CT220SEL permite enviar o conteúdo do (Array) contendo os dados de quais empresas e arquivos que se quer agrupar.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
ExecBlock("CT220SEL",.f.,.f.,{aEmp,aQuais}))
Exemplo de PE
User Function CT220Sel(  ) 
	
	Local aEmp := PARAMIXB[1]
	Loal  aQuais := PARAMIXB[1]
	Local cMVSchedu := Getnewpar( 'MV_XSCHEDU' , '' ) 
	Local axEmp2     :={}   
	Local nJ       := 0 
	Local nI       := 0  
	Local lRet     := .T. 

	If lRet  // somente quando a variavel não estiver vazia  

		If ! Empty (cMVSchedu) .and. ( ValType( aEmp ) == 'A' .And. len( aEmp ) > 0 )  

			while ! Empty( cMVSchedu )     
				cResult := Substr( cMVSchedu , 1 , 4 )     
				aAdd(axEmp2 , cResult )     
				cMVSchedu := Substr( cResult , 2)   
			End    // zero a array das empresas para somente informar as do parametro   
			
			FOR nI := 1 to len(aEmp)     
				aEmp[nI][1] := .F.    
			NEXT    //  seto como verdadeiro os itens da empresa   
			FOR nI := 1 to len(axEmp2)     
				FOR nJ = 1 to len(aEmp)        
					If ( aEmp[nJ][1] == axEmp2[nI][1] )         
						aEmp[nJ][2] := .T.        
					Endif     
				Next   
			Next                  
		Endif     

	Endif 

Return .T.


Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.