Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Beatriz Martins

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Otavio de Albergaria B. Favarelli

Gravado em

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 obrigatórios e de escolha que não podem ser configurados no DPM para geração dos items do pedido corretamente.

Localização:

 

Eventos:

   {"C7_FLUXO" , "S" , Nil},; // Fluxo de Caixa (S/N)

{"C7_LOCAL" , self:cArmDes , Nil},; // Localizacao

{"C7_DDATCRI", dDataBase , Nil},;

{"C7_PEDFAB" , oDadosItem:GetValue("C7_PEDFAB") , Nil},;

{"C7_DLINORI", oDadosItem:GetVAlue("C7_DLINORI") , Nil} ; //

}

// {"C7_ITEPED" , "" , Nil} ; // não vem no DPMORD ?!?!?!?

//

// Campos customizáveis entram aqui

//

aCust := IIF(ExistBlock('VCLSAP2'), ExecBlock("VCLSAP2",.f.,.f.), {})

//

for nIdxC := 1 to LEN(aCust)

If aCust[nIdxC][1] == "FORMULA"

AADD(aItem, {"C7_PRECO", FG_FORMULA( aCust[nIdxC][2]), Nil})

Else

AADD(aItem, {aCust[nIdxC][1] , aCust[nIdxC][2], Nil}) // 1 = campo 2 = valor

EndIf

next

//

aadd(aItems, aItem)

Next

lMsErroAuto := .f.

MSExecAuto({|v,x,y,z| MATA120(v,x,y,z)},1,aCab,aItems,3)

 

Programa Fonte:

VEICLSAP                                                                                                                                              

Função:

 

Retorno:

Array com padrão campo valor, a formula deve ser passada como "FORMULA" no array para geração do valor das peças para compra.

 

Exemplo:

User Function VCLSAP2()

Return {;

{"FORMULA", "000003"};

}