Ponto-de-Entrada: OC001AVI - Alteração no vetor aVetInfo.
| Abrangências: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Este ponto de entrada altera o vetor aVetInfo com as informações de cabeçalho da consulta.
Eventos
User Function OC001AVI()
MsgInfo(“Ponto de Entrada OC001AVI ",”Atencao”)
return
Programa Fonte
OFIXC001
Sintaxe
OC001AVI - Alteração no vetor aVetInfo. ( [ ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| Array of Record |
Retorno
-
()
Observações
// ########################################################################
// # Montagem do vetor com informacoes adicionais #
// ########################################################################
aVetInfo := {}
aAdd(aVetInfo,{STR0001, 'FM_PRODSBZ(SB1->B1_COD,"SB5->B5_LOCALIZ")', NIL, "@!"})
aAdd(aVetInfo,{STR0002, "OC001RSIT()", NIL, "@!"})
aAdd(aVetInfo,{STR0003, "OC001RPRE()", "OC001BPRECO()" , "@E 999,999,999.99"})
aAdd(aVetInfo,{STR0004, "OC001REST()", "OC001BESTOQUE()", "@E 999999"})
aAdd(aVetInfo,{STR0005, "SB1->B1_ESTSEG", NIL, "@E 999999"})
aAdd(aVetInfo,{STR0006, "OC001RCLAS()", NIL, "@!"})
aAdd(aVetInfo,{STR0007, "SB5->B5_CODCAI", NIL, "@!"})
if GetNewPar("MV_CUSBAL","S") == "S"
aAdd(aVetInfo,{STR0008, "SB2->B2_CM1", NIL, "@E 999,999,999.99"})
Endif
aAdd(aVetInfo,{STR0009, "SB1->B1_PRV1", NIL, "@E 999,999,999.99"})
aAdd(aVetInfo,{STR0010, "SB1->B1_QE", NIL, "@E 999999"})
aAdd(aVetInfo,{STR0011, "SB1->B1_PESO", NIL, "@E 999,999.999"})
aAdd(aVetInfo,{STR0012, "SB1->B1_GRUDES", NIL, "@!"})
// ########################################################################
// # Montagem do vetor com informacoes adicionais #
// ########################################################################
// PONTO DE ENTRADA PARA ALTERACAO DO VETOR aVetInfo
If ExistBlock("OC001AVI")
ExecBlock("OC001AVI",.f.,.f.)
EndIf
// ########################################################################
// # Montagem das informacoes de posicionamento da consulta #
// ########################################################################
aInfo := { aSizeHalf[ 1 ], aSizeHalf[ 2 ],aSizeHalf[ 3 ] ,aSizeHalf[ 4 ], 3, 3 }// Tamanho total da tela
AAdd( aObjects, { 0, 04, .T., .f. } )
AAdd( aObjects, { 0, 08, .T., .f. } )
AAdd( aObjects, { 0, 08, .T., .f. } )
for nCntFor := 1 to Len(aVetInfo) step 2
AAdd( aObjects, { 0, 08, .T., .f. } )
next
AAdd( aObjects, { 0, 08, .T., .T. } )
aPos := MsObjSize( aInfo, aObjects )
dyc := (aPos[1,4] - aPos[1,2])
dyc2 := (aPos[1,4] - aPos[1,2]) / 2 // step horizontal
_nSpc := 40
_nLarg := dyc2 - _nSpc - 10
nBtnSize := 25
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |