Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Fechamento de Ordem de Serviço, utilizado para retornar se a Condição de Pagamento é Negociada. O padrão é ( SE4->E4_TIPO == "9" ).

Localização:

Atualizações \ Mov Oficina \ Fechamento OS Mod 2

Eventos:

/*/{Protheus.doc} OX1000061_Condicao_Negociada


@description Retorna se a Condição é Negociada ( no padrão verifica apenas tipo "9" )

@author Andre Luis Almeida

@since 18/04/2022

/*/

Static Function OX1000061_Condicao_Negociada()

Local lRet := ( SE4->E4_TIPO == "9" )

//PE para permitir a manipulação do retorno se a Condição é Negociada

If ExistBlock("OX100CNG")

lRet := ExecBlock("OX100CNG",.f.,.f.,{ SE4->E4_TIPO })

EndIf

Return lRet

Programa Fonte:

OFIXX100.PRW

Função:

OX1000061_CONDICAO_NEGOCIADA()

Parâmetros:
NomeTipoDescrição

SE4->E4_TIPO

Caractere

SE4->E4_TIPO - Tipo da Condição de Pagamento.

Retorno:
NomeTipoDescrição

lRet

Lógico

logico ( .t. é Condição Negociada / .f. não é Condição Negociada )

Exemplo:

Include totvs.ch

// Ponto de Entrada na rotina de Fechamento de Ordem de Serviço, utilizado para retornar

// se a Condição de Pagamento é Negociada. O padrão é ( SE4->E4_TIPO == "9" ).

User Function OX100CNG()


Local cE4_TIPO := ParamIXB[1]

Local lRet := ( cE4_TIPO == "9" ) // Padrão - SE4->E4_TIPO == "9"


MsgInfo("Ponto de entrada OX100CNG executado com sucesso!")


Return lRet