Função ordenar um vetor conforme o dicionário para uso em, por exemplo, rotinas de MSExecAuto.

FWVetByDic ( < aVetor >, < cTable >, [ lItens ], [ nCpoPos ] )

Parâmetros/Elementos






Nome
Tipo
Descrição
Obrigatório
Referência


aVetor
Array of Character
Vetor a ser ordenado
X



cTable
Caracter
Referência da tabela do Dicionário
X



lItens
Lógico
.T. é um vetor de itens / .F. não é um vetor de itens




nCpoPos
Numérico
Posição da coluna onde está o nome do campo. Default 1









Exemplo:

#include 'protheus.ch'
#include 'parmtype.ch'
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

User Function EXP0003()
  
	Local aProduto := {}
	
	Private lMsErroAuto := .F. 
	Private lMsHelpAuto := .T.

	aAdd(aProduto, {"B1_COD", "000001", Nil})
	aAdd(aProduto, {"B1_DESC", "PRODUTO 000001", Nil})
	aAdd(aProduto, {"B1_TIPO", "PA", Nil})
	aAdd(aProduto, {"B1_UM", "CC", Nil})
	aAdd(aProduto, {"B1_PESBRU", 4, Nil})
	aAdd(aProduto, {"B1_PESO", 3, Nil})
	aAdd(aProduto, {"B1_LOCPAD", "01", Nil})
	aAdd(aProduto, {"B1_FABRIC", "0", Nil})
	aAdd(aProduto, {"B1_TIPOCQ", "Q", Nil})
	aAdd(aProduto, {"B1_PE", 12, Nil})
	aAdd(aProduto, {"B1_ESPECIF", "PRODUTO 000001", Nil})
	aAdd(aProduto, {"B1_DESC_GI", "PRODUTO 000001", Nil})
	aAdd(aProduto, {"B1_DESC_I", "PRODUCT 000001", Nil})
	aAdd(aProduto, {"B1_CONV", 0, Nil})
	aAdd(aProduto, {"B1_TIPCONV", "M", Nil})
	aAdd(aProduto, {"B1_IMPORT", "N", Nil})
	aAdd(aProduto, {"B1_QB", 0, Nil})
	aAdd(aProduto, {"B1_CONTRAT", "N", Nil})
	aAdd(aProduto, {"B1_NUMCQPR", 0, Nil})
	aAdd(aProduto, {"B1_QE", 0, Nil})
	aAdd(aProduto, {"B1_IPI", 0, Nil})
	aAdd(aProduto, {"B1_INSS", "N", Nil})
	aAdd(aProduto, {"B1_PIS", "2", Nil})
	aAdd(aProduto, {"B1_COFINS", "2", Nil})
	aAdd(aProduto, {"B1_CSLL", "2", Nil})
		
	aProduto := FWVetByDic(aProduto, "SB1")
	
	MSExecAuto({|x,y| Mata010(x,y)}, aProduto, 3)
	
	If lMsErroAuto   
		MostraErro()
	Else   
		MsgInfo("Produto cadastrado com sucesso!","Sucesso")
	Endif	 
   
Return