Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada esta localizado na rotina de Pedidos de Maquinas, é utilizado para informar quais campos devem ser replicados (pré-digitados) na tela de inclusão. As informações replicadas são correspondentes ao registro posicionado na grid de pedidos.

Localização:

Atualizações \ Mov Saida \ Pedidos de Veiculo (VEIVM190)

Eventos:

If nOpcVQ0 == 3 // Incluir

aAux[1,19] := xFilial("VV9")

aAux[1,22] := space(TamSX3("VV1_FILENT")[1])

If !Empty(aPedid[nLinVQ0,2]) .and. ExistBlock("VM190REP") // Se existir o PE, retorna os campos a serem replicados no "Incluir Replicando" do VQ0

nOpcAviso := Aviso(STR0050,; // "Atenção"

"Inclusão de Pedidos",;

{"Novo",; // Novo"

"Replicando",; // "Replicando"

STR0041},2) // "Cancelar"

If nOpcAviso == 1 // Novo

// Ok - Inclusao normal (padrão)

ElseIf nOpcAviso == 2 // Incluir com campos pre digitados

// Layout do vetor aPedid/aAux

aHeadVet := { "VQ0_NUMPED" ,; // 01

"VQ0_DATPED" ,; // 02

"x" ,; // 03

"VQ0_CODMAR" ,; // 04

"VQ0_MODVEI" ,; // 05

"VQ0_CORVEI" ,; // 06

"VQ0_FATDIR" ,; // 07

"VQ0_VALCUS" ,; // 08

"VQ0_VALINI" ,; // 09

"VQ0_DESNEG" ,; // 10

"VQ0_DATVEN" ,; // 11

"VQ0_DATENT" ,; // 12

"x" ,; // 13

"x" ,; // 14

"VQ0_DATFDD" ,; // 15

"VQ0_CONFIG" ,; // 16

"x" ,; // 17

"x" ,; // 18

"VQ0_FILPED" ,; // 19

"x" ,; // 20

"x" ,; // 21

"VV1_FILENT" ,; // 22

"VQ0_BASCFD" ,; // 23

"VQ0_DATPRE" ,; // 24

"x" ,; // 25

"x" ,; // 26

"VQ0_FLUXO" ,; // 27

"VQ0_DATFLU" ,; // 28

"VQ0_DATORS" ,; // 29

"VQ0_FILREL" ,; // 30

"VQ0_EVENTO" ,; // 31

"x" } // 32

//

DbSelectArea("VQ0")

DbGoto(aPedid[nLinVQ0,17])

//

aCposRep := ExecBlock("VM190REP",.f.,.f.)

For nCntFor := 1 to len(aCposRep)

nPosVet := aScan(aHeadVet,aCposRep[nCntFor])

If nPosVet > 0

aAux[1,nPosVet] := aPedid[nLinVQ0,nPosVet] // insere os dados replicados para aparecer na tela

EndIf

Next

//

Else // Cancelar a operação

Return

Endif

Endif

Inclui := .t.

nLinVQ0 := 0

Programa Fonte:

VEIVM190.PRW

Função:

FS_VQ0()

Parâmetros:

N/A

Retorno:
NomeTipoDescrição

aRet

Vetor

Vetor com os campos do VQ0 que vão ser replicados (pré-digitados) na tela de inclusão de um pedido.

Exemplo:

Include totvs.ch

/////////////////////////////////////////////////////////////////////////////////////////////////////

// Retorna os campos que se deseja replicar ao "Incluir Replicando" do Pedido de Maquinas VEIVM190 //

/////////////////////////////////////////////////////////////////////////////////////////////////////

User Function VM190REP()

Local aRet := {}

/*

Todos os campos possiveis:

aRet := { "VQ0_NUMPED" ,;

"VQ0_DATPED" ,;

"VQ0_CODMAR" ,;

"VQ0_MODVEI" ,;

"VQ0_CORVEI" ,;

"VQ0_FATDIR" ,;

"VQ0_VALCUS" ,;

"VQ0_VALINI" ,;

"VQ0_DESNEG" ,;

"VQ0_DATVEN" ,;

"VQ0_DATENT" ,;

"VQ0_DATFDD" ,;

"VQ0_CONFIG" ,;

"VQ0_FILPED" ,;

"VV1_FILENT" ,; // este nome esta correto - o unico campo da VV1

"VQ0_BASCFD" ,;

"VQ0_DATPRE" ,;

"VQ0_FLUXO" ,;

"VQ0_DATFLU" ,;

"VQ0_DATORS" ,;

"VQ0_FILREL" ,;

"VQ0_EVENTO" }

//

Atencao: Campos reais customizados na VQ0 tambem podem ser inseridos no vetor aRet para serem replicados

//

*/

aRet := { "VQ0_NUMPED" ,;

"VQ0_DATPED" ,;

"VQ0_CODMAR" ,;

"VQ0_MODVEI" ,;

"VQ0_CORVEI" }


Return aRet