Boa tarde, pessoal.
Tenho a seguinte situação onde o registro da SC5 deixa de ficar posicionado no momento da execução do Reclock. Se fizer sem o FOR para um único registro grava normalmente, se fizer uma static function dentro do FOR para isolar a gravação também não funciona. A SC5 está selecionada e o DbSetOrder é o 1. O parâmetro .T. no dbSelect coloquei porque posicionava um registro antes.
Parte do fonte em anexo.
Desde já agradeço.
Ola luciano, faltou colocar o DBSKIP() antes de passar para o proximo lock registro
aPedVen := StrToKarr(cBuff,',') //cBuff = '003001','000011','002022'
for i := 1 to len(aPedVen)
if SC5->(dbSeek(xFilial("SC5") + aPedVen[i],.T.))
RecLock("SC5", .F.) //após executar volta para o primeiro registro da SC5
SC5->C5_VEND1 := aRET[2]//código fixo do vendedor selecionado na parambox
MsUnlock()
lAlter := .T.
nCont++
endif
SC5->(DBSkip()) //adcionando o dbskip
next
Murilo, obrigado pelo retorno mas é um FOR não precisa do DBSkip() e apesar de exemplo que coloquei não ter, mas no meu fonte está Next i
— luciano.aol74 08 de Sep de 2020Boa tarde,
Provavelmente seu problema está relaciona ao seu próximo registro que deseja posicionar está acima do que foi posiconado.
Antes do seu dbseek coloque um SC5->(dbgotop())
aPedVen := StrToKarr(cBuff,',') //cBuff = '003001','000011','002022'
for i := 1 to len(aPedVen)
SC5->(DbGoTop())
if SC5->(dbSeek(xFilial("SC5") + aPedVen[i],.T.))
RecLock("SC5", .F.) //após executar volta para o primeiro registro da SC5
SC5->C5_VEND1 := aRET[2]//código fixo do vendedor selecionado na parambox
MsUnlock()
lAlter := .T.
nCont++
endif
next iMaike, agradeço o retorno, o problema ainda é o mesmo, como eu disse o fato de estar dentro de um FOR pode ser o problema.
— luciano.aol74 08 de Sep de 2020Acho muito improvável ser o for, faça o seguinte no seu msunlock coloque sc5->(msunlock ()). Se ainda assim não der posta seu fonte todo para tentarmos te ajudar.
— Maike Ramos de Oliveira 08 de Sep de 2020Não acredito que haja erro neste trecho, poste a rotina completa. Pode ser que o cBuff esteja trazendo espaços em branco
