Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#Include 'TOTVS.CH' User Function GVOrdFld() Local aHeader := PARAMIXB[1] //Array com os os campos e todos os dados do cabeçalho que serão encaminhados para a gravação do Pedido de Venda. Local aItems := PARAMIXB[2] //Array com os dados dos Itens e todos os dados que serão encaminhados para a gravação do Pedido de Venda. Local nOpc := PARAMIXB[3] //Número da Operação realizada (Inclusão, Alteração ou Exclusão). Local nX := 1 Local aRet := {} //Validar a operação IF nOpc == 3 .Or. nOpc == 4 //Adicionar campo customizado C5_XPGV no cabeçalho do Pedido Aadd( aHeader , { "C5_XPGV" , "Incluido peloReg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } ) //Percorrer todos os itens desse Pedido For nX:= 1 To Len(aItems) //Adicionar campo customizado 'C6_XPGV' no item 1itens do Pedido Aadd( aItems[ aItems[1] ] nX], { "C6_XPGV" , "Incluido peloReg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } ) Next EndIf aRet :={ aHeader, aItems } Return aRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas