Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Servicios

Módulo:

TOTVS Backoffice (Línea Protheus) - Contabilidad de gestión (SIGACTB)

Función:

CTBA220

País:

Brasil

Ticket:

Interno

Requisito/Story/Issue

DSERCTR1-46829

02. DESCRIPCIÓN

El punto de entrada CT220SEL permite enviar el contenido del (Array) con los datos de las empresas y archivos que se quieren agrupar.

03. OTRAS INFORMACIONES


Manejo de PE en el sistema 
ExecBlock("CT220SEL",.f.,.f.,{aEmp,aQuais}))
Ejemplo 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  // solamente si la variable no estuviera vacía  

		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    // pongo en cero la array de las empresas para solamente informar las del parámetro   
			
			FOR nI := 1 to len(aEmp)     
				aEmp[nI][1] := .F.    
			NEXT    //  marco como verdadero los ítems de la 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

  • Se observa que la utilización del PE y sus impactos en el sistema son de responsabilidad del cliente.
  • Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto de entrada.

04. ASUNTOS RELACIONADOS

  • No se aplica.