PE MT116TEL - Insere parâmetros ao array no Conhecimento de Frete

01. DADOS GERAIS

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

02. DESCRIÇÃO

O Ponto de Entrada MT116TEL permite substituir a tela padrão de parâmetros no módulo de Conhecimento de Frete.

03. LOCALIZAÇÃO

MATA116 > “Conhecimento de Frete”.

É executado no início da função MATA116A - Programa de Digitação de Conhecimento de Frete e substitui a tela padrão de parâmetros. O ponto de entrada deve colocar todos os parâmetros no Array “aParametros”, conf. o quadro abaixo e poderá exibi-los, opcionalmente, numa tela customizada pelo cliente.

04. PARAMETROS

aParametros	Descrição
01	Define a Rotina : 1-Inclusao / 2-Exclusao
02	Considerar Notas : 1 - Compra , 2 - Devolução
03	Data Inicial para Filtro das NF Originais
04	Data Final para Filtro das NF originais
05	Cod. Fornecedor para Filtro das NF Originais
06	Loja Fornecedor para filtro das NF Originais
07	Utiliza Formulario proprio ? 1-Sim,2-Nao
08	Num. da NF de Conhecimento de Frete
09	Serie da NF de COnhecimento de Frete
10	Codigo do Fornecedor da NF de FRETE
11	Loja do Fornecedor da NF de Frete
12	Tes utilizada na Classificacao da NF
13	Valor total do Frete sem Impostos
14	Estado de Origem do Frete
15	Aglutina Produtos : .T. , .F
16	Base do Icms Retido
17	Valor do Icms Retido
18	Filtra nota com conhecimento frete .F. , .T.
19	Espécie da Nota Fiscal
20	Natureza de Rendimento

05. RETORNO

Nome	Tipo	Descrição
lRet	Logico	.T. = Continua / .F. = Aborta

06. EXEMPLO DE UTILIZAÇÃO

ADVPL

#Include 'Protheus.ch'
/*/{Protheus.doc} MT116TEL
Insere parâmetros ao array no Conhecimento de Frete.
@type     function
@author      
@since       19/09/2024
/*/
User Function MT116TEL()


Local lRet := .T.


//Customizações do cliente


aAdd(aParametros,1)             // 01o.parâmetro: Define a Rotina : 1-Inclusao / 2-Exclusao
aAdd(aParametros,1)             // 02o.parâmetro: Considerar Notas : 1 - Compra , 2 - Devolução
aAdd(aParametros,date()-100)    // 03o.parâmetro: Data Inicial para Filtro das NF Originais
aAdd(aParametros,date())        // 04o.parâmetro: Data Final para Filtro das NF originais
aAdd(aParametros,SPACE(6))      // 05o.parâmetro: Cod. Fornecedor para Filtro das NF Originais
aAdd(aParametros,SPACE(2))      // 06o.parâmetro: Loja Fornecedor para Fltro das NF Originais
aAdd(aParametros,2)             // 07o.parâmetro: Utiliza Formulário próprio ? 1-Sim,2-Nao
aAdd(aParametros,SPACE(9))      // 08o.parâmetro: Num. da NF de Conhecimento de Frete
aAdd(aParametros,SPACE(3))      // 09o.parâmetro: Serie da NF de Conhecimento de Frete
aAdd(aParametros,SPACE(6))      // 10o.parâmetro: Código do Fornecedor da NF de FRETE
aAdd(aParametros,SPACE(2))      // 11o.parâmetro: Loja do Fornecedor da NF de Frete
aAdd(aParametros,SPACE(3))      // 12o.parâmetro: Tes utilizada na Classificação da NF
aAdd(aParametros,0)             // 13o.parâmetro: Valor total do Frete sem Impostos
aAdd(aParametros,SPACE(2))      // 14o.parâmetro: Estado de Origem do Frete
aAdd(aParametros,.F.)           // 15o.parâmetro: Aglutina Produtos : .T. , .F.
aAdd(aParametros,0)             // 16o.parâmetro: Base do Icms Retido
aAdd(aParametros,0)             // 17o.parâmetro: Valor do Icms Retido
aAdd(aParametros,.F.)           // 18o.parâmetro: Filtra nota com conhecimento frete .F. , .T.
aAdd(aParametros,SPACE(5))      // 19o.parâmetro: Espécie da Nota Fiscal
aAdd(aParametros,SPACE(5))      // 20o.parâmetro: Natureza de Rendimento


If  ! l116Auto  //  Caso não executando rotina automática    


      //-- Tela do usuário para exibição / alteração dos parâmetros (opcional)
//-- Ex. de pergunta (podem ser botões) p/ Cancelar ou Confirmar a execução da rotina (recurso obrigatório para o ponto de entrada)


      lRet := ( Aviso('ATENÇÃO','Executa a rotina Conhecimento de Frete?',{'Cancela','Confirma'}) == 2 )
EndIf
Return lRet

Árvore de páginas