Home

Linha Microsiga Protheus

Páginas filhas
  • SFAPV009 - Chamada a Consulta Padrão de Transportadora

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
SFAPV009 - Chamada a Consulta Padrão de Transportadora
SFAPV009 - Chamada a Consulta Padrão de Transportadora

Ponto-de-Entrada: SFAPV009 - Chamada a Consulta Padrão de Transportadora
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Descrição:

Disponível no final da função PvTrocaTra, que efetua a chamada da Consulta Padrão de Transportadora a qual será  escolhida pelo usuário. A mesma permitirá que sejam efetuadas modificações ou preenchimentos automáticos em GETs e outras validações que forem necessárias na tela de pedido de vendas, quando da alteração ou escolha de uma transportadora.

Exempo:

Function U_SFAPV009(PARAMIXB)

 

Local aCabPed            := PARAMIXB[1]

Local aObj                  := PARAMIXB[2]

Local nPosTpEnt         := ScanArray(aCabPed,HC5->(FieldPos('HC5_TIPENT')),,,2)

Local nPosTpTra         := ScanArray(aCabPed,HC5->(FieldPos('HC5_TRANSP')),,,2)

 

If Alltrim((aCabPed[nPosTpTra,1])) = '99'

            aCabPed[nPosTpEnt,1] := '1'

ElseIf Alltrim((aCabPed[nPosTpTra,1])) = '900000'

            aCabPed[nPosTpEnt,1] := '2'

EndIf

 

Return Nil

 

Programa Fonte
.PRW
Sintaxe

SFAPV009 - Chamada a Consulta Padrão de Transportadora ( < PARAMIXB> ) --> Nil

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXBArray of Record1 - aCabPed, array com conteudo dos Gets
2 - aObj, array contendo cada um dos objetos da tela (Gets, Buttons, etc.)
X
Retorno
    Nil(nulo)
  • Nil