PE MTFILLP3 - Resulta o processamento dos registros relacionados ao poder de terceiros

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Compras (SIGACOM)
Função:	COMXFUN
País:	Brasil
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :

02. DESCRIÇÃO

Ponto de entrada executado na geração do arquivo de trabalho resultante do processamento dos registros relacionados ao poder de terceiros (SB6,SD1,SD2). Este ponto de entrada é executado para cada registro da tabela SB6.

03. LOCALIZAÇÃO

Função F4Poder3 - Ao clicar na tecla <>F7 no Documento de Entrada

04. PARAMETROS

Nome	Tipo	Descrição
ExpA1	Array of Record	Contém a estrutura do arquivo de trabalho gerado pela rotina
ExpC2	Caractere	Contém o alias do arquivo de trabalho
ExpC3	Caractere	Contém o alias do arquivo SB6 em processo
ExpC4	Caractere	Contém o alias do arquivo SD2 em processo
ExpC5	Caractere	Contém o alias do arquivo SD1 em processo
ExpC6	Caractere	Tipo de operação E-Entrada/S-Saida

05. RETORNO

Não há.

06. EXEMPLO DE UTILIZAÇÃO

ADVPL

#Include 'Protheus.ch'

/*/{Protheus.doc} MTFILLP3
PE para processamento dos registros relacionados ao poder de terceiros
@type     function
@author      
@since       22/10/2024
/*/
User Function MTFILLP3
/*
ExpA1 Contém a estrutura do arquivo de trabalho gerado pela rotina                                  
ExpC2 Contém o alias do arquivo de trabalho                                    
ExpC3 Contém o alias do arquivo SB6 em processo                                    
ExpC4 Contém o alias do arquivo SD2 em processo                                    
ExpC5 Contém o alias do arquivo SD1 em processo                                    
ExpC6 Tipo de operação E-Entrada/S-Saída
*/
Local ExpA1     := PARAMIXB[1]
Local ExpC2     := PARAMIXB[2]
Local ExpC3     := PARAMIXB[3]
Local ExpC4     := PARAMIXB[4]
Local ExpC5     := PARAMIXB[5]
Local ExpC6     := PARAMIXB[6]


If ExpC6 == "E" .And. (ExpC4)->D2_PRCVEN <> 0  
    (ExpC2)->B6_PRCVEN := (ExpC4)->D2_PRCVEN
    (ExpC2)->B6_PRUNIT := (ExpC4)->D2_PRCVEN
Else    
    (ExpC2)->B6_PRCVEN := (ExpC5)->D1_VUNIT
    (ExpC2)->B6_PRUNIT := (ExpC5)->D1_VUNIT
EndIf


MsgInfo("Passou pelo PE MTFILLP3")


Return

Árvore de páginas