Histórico da Página

Ponto de Entrada

Descrição:Informe o Menu em que estará localizada a rotina	Este Ponto de Entrada é utilizado para preenchimento de campos customizados do cabeçalho do pedido.
Localização:Informe o Submenu em que estará localizada a rotina
Eventos:	Informe o Título da rotina
Programa Fonte:	Informe o Fonte da rotina
Função:	Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”
Retorno:

Exemplo:

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab

aCab := {; {"C7_NUM" , cNumero , Nil},; // Numero do Pedido {"C7_EMISSAO" , dDataBase , Nil},; // Data de Emissao {"C7_FORNECE" , SA2->A2_COD , Nil},; // Fornecedor {"C7_LOJA" , SA2->A2_LOJA , Nil},; // Loja do Fornecedor {"C7_CONTATO" , " " , Nil},; // Contato {"C7_FILENT" , self:cOrigem , Nil} ; // Filial Entrega } // // Campos customizáveis entram aqui // aCabCus := IIF(ExistBlock('VCLSAP1'), ExecBlock("VCLSAP1",.f.,.f.), {}) for nIdxC := 1 to LEN(aCabCus) AADD(aCab, {aCabCus[nIdxC][1], aCabCus[nIdxC][2], Nil} ) // campos customizados e obrigatórios next //
Programa Fonte:	VEICLSAP
Função:
Retorno:	Array de arrays no padrão { {campo, valor}, {campo, valor},{campo, valor} }

Exemplo:

User Function VCLSAP1()

Return {;

{"C7_COND", "01"} ;

}