MATA103-MT103RTE - Visualizacao do rateio por centro de CC

Salve salve....

Ponto de entrada MT103RTE - ( Compras / Documento de Entrada )

Ponto de Entrada para visualizacao do rateio por centro de custo customizado com esse ponto pode-se manipular aHeadSDE,aColsSDE

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} MT103RTE
Rateio por Centro de Custo

@type        function
@author      Eurai Rapelli
@since       2023.01.01
/*/
User Function MT103RTE()
	Local aHeader	:= PARAMIXB[01]
	Local aCols     := PARAMIXB[02]
	// Local nItem     := PARAMIXB[3]
	// Local nX 		:= 0                                                    
	// Local aArea 	:= GetArea()
	
	// If Empty(aHeader)	

	// 	SX3->( dbSetOrder(1) )
	// 	SX3->( MsSeek("SDE") )
	// 	Do While SX3->( !EOF() ) .AND. SX3->X3_ARQUIVO == "SDE" 
	// 		If X3USO(SX3->X3_USADO) .AND. cNivel >= SX3->X3_NIVEL .AND. !"DE_CUSTO" $ SX3->X3_CAMPO			
	// 			aadd(aHeader,{ TRIM(X3Titulo()),;			
	// 				SX3->X3_CAMPO,;			
	// 				SX3->X3_PICTURE,;			
	// 				SX3->X3_TAMANHO,;			
	// 				SX3->X3_DECIMAL,;			
	// 				SX3->X3_VALID,;			
	// 				SX3->X3_USADO,;			
	// 				SX3->X3_TIPO,;			
	// 				SX3->X3_F3,;			
	// 				SX3->X3_CONTEXT })		
	// 		EndIf		
	// 		SX3->( dbSkip()	)
	// 	EndDo		
	// 	ADHeadRec("SDE",aHeader)
	// EndIf

	// If Empty(aCols)	
	// 	aAdd( aCols,{ SDE->DE_ITEMNF, {} } )	
	// 	For nX := 01 To 5				
	// 		aAdd( aCols[01][02], {"0" + Alltrim(STR(nX)) , 20 , "CC00" + Alltrim(STR(nX)) , "" , "" , "" , "", "", "", "" , "SDE" , 0 , .F.} )
	// 	Next nX
	// EndIf


	// RestArea(aArea)
Return( { aHeader, aCols } )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima