Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Eduardo Paro de Simoni

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Este ponto de entrada disponibiliza por parâmetros as informações do cabeçalho e itenspermitindo incluir que possibilita a inclusão de novos campos customizados para ser processado que serão processados na gravação de um Orçamento.

03. SINTAXE

GVBudFld () ---> aRet

...

Nome

Tipo

Descrição

Obrigatório

aParamIXBArray

Array com os dados do cabeçalho, itens e operação referente ao Orçamento.

Sim
   aParamIXB[1] ArrayArray com os campos e valores do cabeçalho referente ao Orçamento.Sim
   aParamIXB[2]ArrayArray com os campos e valores dos itens referente ao Orçamento.Sim
   aParamIXB[3]NuméricoNúmero da operação realizada (Inclusão, Alteração ou AlteraçãoExclusão).Sim


05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

aRetArray

Array com os dados e campos customizados do cabeçalho e itens que serão encaminhados para processar o Orçamento.

Sim
   aRet[1] ArrayArray com os campos customizados e valores, referente ao cabeçalho que serão encaminhados para processar o Orçamento.Sim
   aRet[2]ArrayArray com os campos customizados e valores, referente ao itens que serão encaminhados para processar o Orçamento.Sim

...

Bloco de código
languagecpp
titleExemplo
#Include 'TOTVS.CH'
 
User Function GVBudFld()
    Local aHeader   := PARAMIXB[1] //Array com os campos e valores do cabeçalho que serão encaminhados para a gravação do Orçamento.
    Local aItems    := PARAMIXB[2] //Array com os Itens e valores que serão encaminhados para a gravação do Orçamento.
    Local nOpc      := PARAMIXB[3] //Número da Operação realizada (Inclusão, Alteração ou AlteraçãoExclusão).
    Local nX        := 1
    Local aRet      := {}
    
    //Validar a operação
    IF nOpc == 3 .Or. nOpc == 4
        //Adicionar campo customizado CJ_XPGV no cabeçalho do Orçamento com o valor "Reg. Op:3 Portal Gestão de Vendas"         
		Aadd( aHeader, { "CJ_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } )
    
        //Percorrer todos os itens desse Orçamento
        For nX:= 1 To Len(aItems)
            //Adicionar campo customizado 'CK_XPGV' em todos os itens do Orçamento com o valor "Reg. Op:3 Portal Gestão de Vendas"
             Aadd( aItems[nX], { "CK_XPGV" , "Reg. Op:"+cValToChar(nOpc)+" Portal Gestão de Vendas", NIL } )
        Next    
    EndIf
 
    aRet :={ aHeader, aItems }
     
Return aRet

...