Perguntas Campo em branco

Bom dia galera!

Estou fazendo um fonte que pega os dados da tabela SRA e grava na tabela SZF fiz uns testes e 1 campo ele não está puxando o

RA_NOME tentei colocar o RANOMECMP porém não touxe.

Segue o fonte em anexo.

Atenciosamente.

Boa tarde,

Veja que você está trabalhando apenas com as variáveis de memória da função específica, caso ela não trate - e acredito que seja o caso - do campo RA_NOME, ela o trará em branco. Aconselho a mudar a rotina de forma a declarar as variáveis em branco, dar um dBselectarea("SRA") e referenciar M->RA_NOME.

Ex:

Local cNome := space(20)

dbSelectArea("SRA")
dbSetOrder(1)

cNome := Alltrim(M->RA_NOME)

RecLock('SZF',.T.)

SZF->ZF_NOME := cNome

Atenciosamente,

Saulo Rodrigues Vieira
Analista de Sistemas JR
Grupo Tiradentes

Muito obrigado Saulo Vieira. Segue o fonte.

#Include 'Protheus.ch'

User Function GP010VALPE()

Local lRet := .T. // Retorna que o arquivo é de inclusão
Local cMat := (M->RA_MAT) // Matricula do colaborador
Local cNome := (M->RA_NOME) // Nome do Colaborador
Local cAutom := 'UPDAUTOMATICO' //Retorna que é criado automáticamente

// Grava os compo RA_MAT e RA_NOME na tabela SZF

DbSelectArea('SZF')
DbsetOrder(1)

RecLock('SZF',.F.)

SZF->ZF_MATR := cMat
SZF->ZF_NOME := cNome
SZF->ZF_USRINCL := cAutom

MsUnlock()

// Fim do Programa

Return lRet

Atenciosamente.