Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro


02. DESCRIÇÃO

Permite a manipulação de registros da tabela SE3 - Comissões de vendas, no momento da exclusão de um título de contas a pagar que possua amarração com comissão.

Parâmetros:

NomeTipoDescriçãoDefaultObrigatorio
ParamIxbArrayArray contendo o Recno() do registro da tabela SE3 que tem amarração com o título que está sendo excluído.
X


Retorno:

  • Array contendo duas posições, sendo: [1] - Data de pagamento da comissão (E3_DATA); [2] - Flag da amarração com título a pagar (E3_PROCCOM)


03. EXEMPLO DE UTILIZAÇÃO


F050DSE3
#Include 'Protheus.ch'
 
User Function F050DSE3()
    Local aArea := GetArea()
	Local aAreaSE3 := SE3->(GetArea()) 
    Local nRecno := ParamIXB[1]  // Array contendo o recno da tabela SE3
    Local aRet := {}
 
    SE3->(DbGoto(nRecno))
    If SE3->E3_VEND == "000001"
        aRet := {Ctod(""),""}
    Endif        

    RestArea(aArea)
	RestArea(aAreaSE3)
 
Return aRet

Importante

Quando o ponto de entrada tem a possibilidade de alterar o posicionamento das tabelas, é imprescindível que a workarea seja guardada e restaurada, conforme exemplo acima.



04. DEMAIS INFORMAÇÕES

Não há


05. ASSUNTOS RELACIONADOS

  • Não há