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: |
| ||||||
Retorno: |
|
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