Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

 

 

 

 

 

 

 

 

Ponto de Entrada

Descrição:

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:

#Include 'Protheus.ch'

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"} ;

}