Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include 'protheus.ch' #include 'parmtype.ch' //Ponto de entrada para ajustar Tipo de Operação com a Integração com o GFE. user function OMSCPL7E() Local cCodViag := PARAMIXB[1] //Viagem Local cOperaca := PARAMIXB[2] //cTipOper Local cCodRegi := PARAMIXB[3] //Regional Local cOperFrg := SuperGetMv("MV_CDTPOP",.F.,"") dbSelectArea("DK1") DK1->(dbSetOrder(1)) If DK1->(dbSeek(xFilial("DK1")+ cCodRegi+cCodViag)) While DK1->(!Eof()) .AND. xFilial("DK1") == DK1->DK1_FILIAL .AND. DK1->DK1_REGID == cCodRegi .AND. DK1->DK1_VIAGID == cCodViag IF DK1->DK1_FILPED == "01001" cOperaca := cOperFrg exit EndIF DK1->(DbSkip()) EndDo EndIF return cOperaca |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas