Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada é utilizado para preenchimento de campos obrigatórios e de escolha que não podem ser configurados no DPM para geração dos items do pedido corretamente. |
Localização: | |
Eventos: | {"C7_FLUXO" , "S" , Nil},; // Fluxo de Caixa (S/N) {"C7_LOCAL" , self:cArmDes , Nil},; // Localizacao {"C7_DDATCRI", dDataBase , Nil},; {"C7_PEDFAB" , oDadosItem:GetValue("C7_PEDFAB") , Nil},; {"C7_DLINORI", oDadosItem:GetVAlue("C7_DLINORI") , Nil} ; // } // {"C7_ITEPED" , "" , Nil} ; // não vem no DPMORD ?!?!?!? // // Campos customizáveis entram aqui // aCust := IIF(ExistBlock('VCLSAP2'), ExecBlock("VCLSAP2",.f.,.f.), {}) // for nIdxC := 1 to LEN(aCust) If aCust[nIdxC][1] == "FORMULA" AADD(aItem, {"C7_PRECO", FG_FORMULA( aCust[nIdxC][2]), Nil}) Else AADD(aItem, {aCust[nIdxC][1] , aCust[nIdxC][2], Nil}) // 1 = campo 2 = valor EndIf next // aadd(aItems, aItem) Next lMsErroAuto := .f. MSExecAuto({|v,x,y,z| MATA120(v,x,y,z)},1,aCab,aItems,3)
|
Programa Fonte: | VEICLSAP |
Função: | |
Retorno: | Array com padrão campo valor, a formula deve ser passada como "FORMULA" no array para geração do valor das peças para compra. |
Exemplo:
User Function VCLSAP2()
Return {;
{"FORMULA", "000003"};
}
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: |
|
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 aCab