EMP650 - Ponto de Entrada

ÍNDICE

1. Visão Geral
2. Exemplo de utilização

01. VISÃO GERAL

Localização: Function MontEstru() - Responsável por montar array com estrutura do produto.

Em que ponto: É chamado antes de iniciar a gravação dos empenhos na abertura de uma ordem de produção. Utilizado para incluir, alterar ou excluir itens que sejam empenhados na abertura da Ordem de Produção.

Finalidade: Alteração de Itens Empenhados na Abertura da OP.

Programa fonte: MATA650.PRX

Sintaxe: EMP650 - Edição de Itens Empenhados na Abertura da OP ( [ ] )

Observações:

Não recebe parâmetros, porém neste momento o array aCols que é apresentado na alteração de empenhos quando se abre uma Ordem de Produção está disponível para alterações.
O aCols apresenta neste momento as linhas e colunas preenchidas, de acordo com o empenho padrão a ser efetuado no Sistema.
Basta alterar ou incluir o conteúdo deste array para alterar as informações dos empenhos. A estrutura básica do array aCols é apresentada da seguinte forma:

aCols[n,npos] - Onde o n e o  número da linha  e nPos  pode ser: 

Na acols a ultima coluna define se a linha está deletada (.T.) ou não (.F.)
Como a rotina sofreu alterações, e passou a ter alguma colunas dinâmicas, para pegar a posição da última coluna, indicamos utilizar a busca pelo Acols através da função Len  Exemplo:

 LEN(ACOLS[n])

Vale ressaltar que as colunas que não forem preenchidas, devem ser inicializadas com a função Criavar dos respectivos campos. Basta pesquisar qual o campo tomado como base para criação das colunas.

Para mais informações pode ser consultado a variável "aHeader" que contém os dados do cabeçalho da Grid de empenhos onde:

02. EXEMPLO DE UTILIZAÇÃO

#INCLUDE 'PROTHEUS.CH'

User function EMP650()

    Local aArea  := GetArea()
    local nx
    For nx := 1 to len(Acols) // Percorre todas as linhas da acols

         IF ! Acols[nx][len(acols[nx])] // Verifica se linha nao esta Deletada

            Conout("Linha não deletada: "+ cValTochar(nx))
        EndIF

       Conout("Produto :"+ acols[nx,nPoscod] + " Descrição : " +acols[nx,nPosDescr] )
    Next nx

    RestArea(aArea)

Return

/*--Também fica disponível o array aOpcCam, que deve ser atualizado juntamente com o array aCols, para correto cálculo de opcionais.--*\

//Exemplo:

#include "rwmake.ch"

User Function EMP650()

Local nQtdDel := Len(aColsDele)
Local nx      := 0

If Len(aColsDele) > 0

    For nx:= nQtdDel To 1 Step -1
        aDel(aCols, aColsDele[nx])
        aDel(aOpcCam, aColsDele[nx])
    Next nx
    
    aSize(aCols, Len(aCols) - Len (aColsDele))
    aSize(aOpcCam, Len(aOpcCam) - Len (aColsDele))
    aSize(aColsDele,0)
    
EndIf

Return