Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Gisele Aparecida da Silva

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

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

Pagetitle
OC001AVI - Alteração no vetor aVetInfo.
OC001AVI - Alteração no vetor aVetInfo.

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:
NomeTipoDescriçãoDefaultObrigatórioReferê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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão