Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada usado é 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:Informe o Submenu em que estará localizada a rotina | ||||
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: | Informe o Fonte da rotina | Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | |
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"};
}