Histórico da Página
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#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:
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
/*--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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas