Alguém tem um exemplo do ponto de entrada GVOrdFld onde pego o conteúdo informado em um campo customizado na tela do portal de vendas do protheus para gravar no pedido de venda no protheus?
Exemplo GVOrdFld
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
1 resposta
-
> #Include 'TOTVS.CH' User Function GVOrdFld() Local aHeader := PARAMIXB[1] //Array com os campos e valores do cabeçalho que serão encaminhados para a gravação do Pedidos de Vendas. Local aItems := PARAMIXB[2] //Array com os Itens e valores que serão encaminhados para a gravação do Pedidos de Vendas. 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 Pedidos de Vendas com o valor "Reg. Op:3 Portal Gestão de Vendas" Aadd( aHeader, { "C5_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } ) //Percorrer todos os itens desse Pedido de Vendas For nX:= 1 To Len(aItems) //Adicionar campo customizado 'C6_XPGV' em todos os itens do Pedidos de Vendas com o valor "Reg. Op:3 Portal Gestão de Vendas" Aadd( aItems[nX], { "C6_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } ) Next EndIf aRet :={ aHeader, aItems } Return aRethttps://tdn.totvs.com.br/pages/releaseview.action?pageId=709415592
-
