SFAPV007 - Inclusão de objetos

Ponto-de-Entrada: SFAPV007 - Inclusão de objetos

Versões:

Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10

Descrição:

Ponto de entrada disponibilizado no final da montagem da DIALOG do Pedido de Venda  no HandHeld, antes do ACTIVATE DIALOG, permitindo a inclusão de novos objetos nesta DIALOG, Inibição de Outros, etc
Observação: Este mesmo ponto pode ser usado para customizar a tela de pedido modelo 2
Exemplo:
Function U_SFAPV007(PARAMIXB)
Local oCab  := PARAMIXB[1]
Local aCabPed := PARAMIXB[2]
Local aObj  := PARAMIXB[3]
// Incluindo Tipo de Entrega no Array Padrao de Cabecalho do Pedido
// Incluindo Forma de Pagamentoo Array Padrao de Cabecalho do Pedido
// Incluindo Tipo de Cliente no Array Padrao de Cabecalho do Pedido
// Se for Inclusao ou Ult. Pedidos
If aCabPed[2,1] == 1 .Or. aCabPed[2,1] == 4
 AADD( aCabPed, { '1' , HC5->(FieldPos('HC5_TIPENT')) } )
 AADD( aCabPed, { 'BOL' , HC5->(FieldPos('HC5_CDPG')) } )
 AADD( aCabPed, { 'F' , HC5->(FieldPos('HC5_TIPOCL')) } )
Else
 AADD( aCabPed, { HC5->HC5_TIPENT , HC5->(FieldPos('HC5_TIPENT')) } )
 AADD( aCabPed, { HC5->HC5_CDPG  , HC5->(FieldPos('HC5_CDPG')) } )
 AADD( aCabPed, { HC5->HC5_TIPOCL , HC5->(FieldPos('HC5_TIPOCL')) } )
 If HC5->HC5_TIPOCL == 'L'
  nOpcTCL := 2
 ElseIf HC5->HC5_TIPOCL == 'R'
  nOpcTCL := 3
 ElseIf HC5->HC5_TIPOCL == 'S'
  nOpcTCL := 4
 ElseIf HC5->HC5_TIPOCL == 'X'
  nOpcTCL := 5
 EndIf
EndIf
//Desabilitando campos objetos que não serão usados
DisableControl(aObj[2,09])
DisableControl(aObj[2,10])
DisableControl(aObj[2,11])
HideControl(aObj[2,12])
HideControl(aObj[2,12])
Return Nil

Programa Fonte

.PRW

Sintaxe

SFAPV007 - Inclusão de objetos ( < PARAMIXB> ) --> Nil

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB

Array of Record

1-oCab - Folder Principal2-aCabPed - Array com os conteudos de Gets do Cabeçalho do Pedido [1,1] - Código do Pedido [2,1] - Operacao ( 1/2/3/4 ) [3,1]- Codigo do Cliente [4,1] - Loja do Cliente [5,1] - Codigo da Rota [6,1] - Codigo do Roteiro [7,1] - Cond. de Pagto. [8,1] - Tabela de Preco [9,1] - Observacao [10,1] - Data de Entrega (Esse campo sera gravado na Tabela HC6) [11,1] - Total do Pedido [12,1] - Total Arredondado do Pedido [13,1] - Tranportadora do Pedido [14,1] - Valor da Indenizacao [15,1] - Forma de Pagamento [16,1] - Tipo de Frete [17,1] - Peso do Pedido [18,1] - DESC1 [19,1] - DESC2 [20,1] - DESC3 [21,1] - DESC4 3-aObj - Array contendo Objetos de Tela (Gets, Buttons, etc) aObj[2][1] - Get Cond Pag aObj[2][2] - Botao Cond Pag aObj[2][3] - Get Tab Preco aObj[2][4] - Botao Tab Preco aObj[2][5] - Get Data aObj[2][6] - Botao Data aObj[2][7] - Get Transp aObj[2][8] - Botao Transp aObj[2][9] - Get FPagto aObj[2][10] - Botao FPagto aObj[2][11] - Say Inden Se MV_SFAIND = T aObj[2][12] - Get Inden Se MV_SFAFRE = T aObj[2][13] - Say Frete aObj[2][14] - Combo Frete Se MV_SFAPESO = T aObj[2][15] - Label Peso aObj[2][16] - Get Peso Se MV_FOLDDES == "T" aObj[2][17] - Desconto 1 aObj[2][18] - Botao Desconto 1 aObj[2][19] - Desconto 2 aObj[2][20] - Botao Desconto 2 aObj[2][21] - Desconto 3 aObj[2][22] - Boato Desconto 3 aObj[2][23] - Desconto 4 aObj[2][24] - Botao Desconto 4 Se VISUALIZAÇÃO aObj[3][5] - Botao D Se INCLUSAO,ALTERAÇÃO aObj[3][2] - Botao N aObj[3][3] - Botao A aObj[3][4] - Botao E aObj[3][5] - Botao D FOLDER OBS aObj[4][1] - Get Observacao Objetos comuns a todos os folders aObj[1][1] - Get Cliente aObj[1][2] - Botao de gravar aObj[1][3] - Botao de Cancelar aObj[1][4] - Get Total

X

Retorno

Nil

Nil

Home

Linha Microsiga Protheus

Páginas filhas