Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • 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:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Array of Record 1 - aCabPed, array com conteudo dos Gets
2 - aObj, array contendo cada um dos objetos da tela (Gets, Buttons, etc.)		 X
Retorno
    Nil(nulo)
  • Nil