Agro - Linha Protheus - AGR - Ponto de Entrada para as rotinas da Gestão Agrícola

Tempo aproximado para leitura: 00:04:00 min

Dúvida
O que indica a tabela Ponto de Entrada para as rotinas da Gestão Agrícola?

Ambiente
TOTVS Agro - TOTVS Agro - Comercialização (Linha Protheus) - Originação de Grãos (OG) - Versão 12

Solução
Características do Requisito:

Linha de Produto:	Microsiga Protheus
Segmento:	Agroindústria
Módulo:	SIGAAGR
Rotina:	Rotina Nome Técnico AGRA010 Previsões de Aplicações. Rotina Nome Técnico AGRA040 Cadastro de mensagens para as notas fiscais de saída e/ou documento de entrada. Rotina Nome Técnico AGRA100 Inclusão de compromisso futuro. Rotina Nome Técnico AGRA105 Inclusão de contratos financeiros. Rotina Nome Técnico AGRA200 Inclusão de previsão de aplicação. Rotina Nome Técnico AGRA205 Inclusão de retorno de aplicações. Rotina Nome Técnico AGRA280 Rotina de romaneio de entrada. Rotina Nome Técnico AGRA045 Manutenção de locais de estoque.
Pontos de entrada:	AGRA010G, AGRA040IT, AGRA100DP, AGRA100PR, AGRA100RA, AGRA105E2, AGRA105IC, AGRA105RP, AGRA200MO, AGRA200PD, AGRA205EQ, AGRA205GE, AGRA205MO, AGRA205PD, AGRA205RA, AGRA280EX, AGRA280IN, CMA150AMNU
País(es):	Todos

Ponto de Entrada:

Descrição:	Ponto de Entrada após gravação da tabela NN4.
Localização:	Rotina auxiliar para montagem da tela de cadastro.
Programa Fonte:	AGRA010
Função:	AGRA010G

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA010G ()

nOpcA      local := PARAMIXB[1]

    Se nOpcA == 1

        Alert("Opções escolhidas, Incluir, Alterar, Excluir")

    Outro

        Alert("Exemplo de Alerta após gravação da tabela NN4")

    FimSe

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Descrição:	Permite a manipulação de campos para o cadastro histórico padrão.
Localização:	GetDados para cadastro de Históricos Padrão.
Programa Fonte:	AGRA040
Função:	AGRA040IT
Retorno:	Nome Tipo Descrição Obrigatório aCampos  Variedade Parâmetros enviados: { aCampos } Não

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA040IT ()

aCampos      locais  := PARAMIXB[1]

    aAdd(aCampos, 'NNL_SEQ')

    aAdd(aCampos, 'NNL_MENS')

   // Personalizações abaixo // 

    Retorno ( aCampos) 

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA100DP ()

    Alert("Exemplo de Alerta após gerar título no financeiro")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA100PR ()

    Alert("Exemplo de Alerta após gerar título provisório no financeiro")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA100RA ()

    Alert("Exemplo de Alerta após rotina para inclusão de coletas antecipadas.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA105E2 ()

    Alert("Exemplo de Alerta após rotina para gravação de dados. Geração de títulos a Pagar.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA105IC ()

    Alert("Exemplo de Alerta após inclusão do contrato financeiro.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA105RP ()

    Local lRetorno := .T.

    Local nExemp1 := 5

    Local nExemp2 := 5

    If aExemp1 == aExemp2
        Alert("Irá obrigação com a seleção de parcelas a serem alteradas")    
    Else
        lRetorno := .F. // Não será obrigatória a seleção de parcelas a serem alteradas
    EndIf

   // Personalizações abaixo // 

    Retorno lRetorno

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA200MO ()

    aCposMO local := PARAMIXB[1]

    Se aCposMO[1] ==  'NP2_ITEM'

       aAdd(aCposMO , 'NP2_MARCA')

    FimSe

   // Personalizações abaixo // 

    Retorno (aCposMO) 

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA200PD ()

    aCposPD local:= PARAMIXB[1]

    Se aCposPD[1] ==  'NP2_ITEM'

       aAdd(aCposPD, 'NP2_MARCA')

    FimSe

   // Personalizações abaixo // 

    Retorno (aCposPD) 

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA200PD ()

    aCposEQ local:= PARAMIXB[1]

    Se aCposEQ[1] ==  'NP2_ITEM'

       aAdd(aCposEQ, 'NP2_MARCA')

    FimSe

   // Personalizações abaixo // 

    Retorno (aCposEQ) 

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA205GE ()

    Local lAGRA205GE:= .T.

    Local nExemp1 := 5

    Local nExemp2 := 5

    If aExemp1 == aExemp2
        Alert("Ira obrigação com o  estorno do fechamento na aplicação. ")      
    Else
        lAGRA205GE:= .F. // Não haverá obrigação com  o estorno do fechamento na aplicação.
    FimSe

   // Personalizações abaixo // 

    Devolver lAGRA205GE

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA205MO ()

    aCposMO local := PARAMIXB[1]

    Se aCposMO[1] ==  'NP6_ITEM'

       aAdd(aCposMO , 'NP6_VAZAO')

    FimSe

   // Personalizações abaixo // 

    Retorno (aCposMO) 

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA205PD ()

    aCposPD local:= PARAMIXB[1]

    Se aCposPD[1] ==  'NP6_ITEM'

       aAdd(aCposPD, 'NP6_VAZAO')

    FimSe

   // Personalizações abaixo // 

    Retorno (aCposPD)

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA205RA ()

    Alert("Exemplo de Alerta anterior a atualização dos itens do estorno.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA280EX ()

    Alert("Exemplo de Alerta para o tratamento da exclusão do frete.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir função de usuário  ' Protheus.ch ' AGRA280IN ()

    Alert("Exemplo de Alerta para o tratamento da inclusão do frete.")

   // Personalizações abaixo // 

    Retornar

Ponto de Entrada:

Exemplo:

#Incluir ' Protheus.ch '

Função de usuário CMA150AMNU ()

aRotAdic local:= PARAMIXB[1]

aAdd( aRotAdic, { "TESTE PNT ENT.", "AGR750EXEMP ", 0, 4, 0, Nulo } )  
Retorna (aRotAdic)