Árvore de páginas

Versões comparadas

Chave

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

Alteração da informação enviada no campo serviceType do Cockpit Logístico

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE - Gestão de Frete Embarcador

Ponto de Entrada GFEXWSCPL2

Descrição:

Ponto de entrada para alterar a informação enviado para o campo ServiceType do Cockpit Logístico

Localização:

 GFEXWSCPL.PRW
Programa Fonte:GFEXWSCPL2.PRW
Função:User Function GFEXWSCPL2()
Parâmetros
NomeTipoDescrição
cTypeCharTipo de operação 

GV9_FILIAL

CharFilial

GV9_CDEMIT

CharCódigo Emitente

GV9_NRTAB

CharNúmero Tabela

GV9_NRNEG

CharNúmero Negociação

Retorno:

 cType

Nome

Tipo

Descrição

Obrigatório

 cType

Char

Novo campo enviado

Sim

Bloco de código
languagedelphi
linenumberstrue
#Include 'Protheus.ch'

User Function GFEXWSCPL2()
    Local cType := PARAMIXB[1]
    Local cFilGV9 := PARAMIXB[2]
    cTypeLocal cCdemit := PARAMIXB[3]
    Local cNrTab := (::cAliasTab)PARAMIXB[4]
    Local cNrNeg := PARAMIXB[5]
    Local ctpLota := ""

	dbSelectArea("GV9")
	GV9->(dbSetOrder(1))
	If dbSeek(cFilGV9 + cCdemit + cNrTab + cNrNeg)
        ctpLota := GV9->GV9_TPLOTA

    EndIf

Return cTypecTpLota