Linha Microsiga Protheus

Árvore de páginas

Versões:Microsiga Protheus 11, Microsiga Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Idiomas:Todos


Descrição: O ponto de entrada MA261TRD3 realiza atualizações adicionais nas tabelas envolvidas na movimentação interna de transferência modelo II - MATA261.

Localização: função a261Inclui() - responsável pela digitação e inclusão das informações para a transferência.

Em que ponto: após a chamada da função a261Grava() em um ponto externo à transação do banco de dados.

Programa fonte: MATA261.PRX

Sintaxe: MA261TRD3() --> Nil

Pontos de Entrada relacionados: MA261CPO e MA261IN.

Parâmetros: 

NOME
TIPO
DESCRIÇÃO
OBRIGATÓRIO


PARAMIXB[1]


Array of records

Vetor contendo em cada posição um par de identificadores Recno()

da tabela SD3, referentes a cada linha da transferência recém gerada.

O primeiro número Recno() se refere ao registro SD3 de Requisição (RE4) e o segundo número Recno() ao registro de Devolução (DE4).



X

 

Retorno: Nil

Exemplo
#Include 'Protheus.ch'

User Function MA261TRD3()

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Recebe os identificadores Recno() gerados na tabela SD3      ³
//³ para que seja feito o posicionamento                         ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Local aRecSD3 := PARAMIXB[1]
Local nX := 1
Local cScan := Ascan(AHEADER,{ |x| x[2] == 'D3_QUANT'})

For nX := 1 To Len(aRecSD3)

	SD3->(DbGoto(aRecSD3[nX][1])) // Requisicao RE4
	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//³ Customizacoes de usuario      ³
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

	IF cScan > 0
        RecLock('SD3', .F.)
		SD3->D3_OBS := aCols[nX,cScan]
        MsUnlock()
	Endif
	
	SD3->(DbGoto(aRecSD3[nX][2])) // Devolucao DE4
	//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
	//³ Customizacoes de usuario      ³
	//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

	IF cScan > 0
		RecLock('SD3', .F.)
		SD3->D3_OBS := aCols[nX,cScan]
        MsUnlock()
	Endif

Next nX

Return Nil

Veja também

MA261CPO - Inclui campos para digitação em array  /  MA261IN - Exibe valores de campos na tela