Histórico da Página
Ponto de Entrada
Descrição: |
Informe o Menu em que estará localizada a rotina
Localização:
Informe o Submenu em que estará localizada a rotina
Eventos:
Informe o Título da rotina
Programa Fonte:
Informe o Fonte da rotina
Função:
Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”
Retorno:
Nome | Tipo | Descrição | Obrigatório |
|
|
|
|
|
|
|
|
|
|
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCabEste ponto de entrada tem a finalidade de permitir que o cliente dê manutenção na parambox da opção de Remessa para Manutenção Externa na rotina de Requisição de Peças (OFIOM020). | |||||||
Localização: | Atualizações / Mov. Oficina / Req. Peças (OFIOM020) | ||||||
Eventos: | If lCtrlLote .and. aScan(aPeca, { |x| !Empty(x[PECA_LOTECT]) } ) <> 0 Return .f. EndIf Pergunte(cGrpSX1,.f.,,,,.f.) cMVPar06 := MV_PAR06 cFatParRem := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),VO1->VO1_FATPAR+VO1->VO1_LOJA,VO1->VO1_PROVEI+VO1->VO1_LOJPRO) nTamX3Cli := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_FATPAR")[1],TamSX3("VO1_PROVEI")[1]) nTamX3Loj := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_LOJA")[1],TamSX3("VO1_LOJPRO")[1]) SetMVValue(cGrpSX1, "MV_PAR04", Subs(cFatParRem,1,nTamX3Cli)) SetMVValue(cGrpSX1, "MV_PAR05", Subs(cFatParRem,nTamX3Cli+1,nTamX3Loj)) If ExistBlock("OM020PAR") ExecBlock("OM020PAR",.f.,.f., cGrpSX1) EndIf Pergunte(cGrpSX1,.T.,,,,.f.) | ||||||
Programa Fonte: | OFIOM020.PRW | ||||||
Função: | OM020REM() | ||||||
Retorno: | Não há. | ||||||
| Parâmetro: |
|
Exemplo:
Include totvs.ch
User Function OM020PAR()
cGrpSX1 := ParamIxb
SetMVValue(cGrpSX1, "MV_PAR03", '000001') // alteração do parâmetro de fórmulas.
MsgInfo("Ponto de entrada OM020PAR executado com sucesso!")
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas