Bom dia!
O seguinte código a parte da tabela SZL e a parte referente a SA1, ele preenche o conteúdo dos campos, mas não grava na tabela alguém saberia me informar o detalhe do por que isso estar ocorrendo.
If uLret .and. Altera
If (M->A1_ULIMCRE = 'M') .and. ;
( (M->A1_LC <> SA1->A1_LC) .or. (M->A1_RISCO <> SA1->A1_RISCO) )
// Tela de informações.
While lContinua
_cSolic := Tela_Info()
IF !Empty(AllTrim(_cSolic))
lContinua := .F.
Endif
Enddo
dbSelectArea("SZL")
Reclock("SZL",.T.)
SZL->ZL_FILIAL := xFilial("SZL")
SZL->ZL_CLIENTE := SA1->A1_COD
SZL->ZL_LOJA := SA1->A1_LOJA
SZL->ZL_NOME := SA1->A1_NOME
SZL->ZL_DATA := dDataBase
SZL->ZL_HORA := Time()
SZL->ZL_CDSOLIC := _cSolic
SZL->ZL_NMSOLIC := _cNome
SZL->ZL_CREDSOL := _nCrdSolic
SZL->ZL_CREDANT := SA1->A1_LC
SZL->ZL_CREDATU := M->A1_LC
SZL->ZL_RISCANT := SA1->A1_RISCO
SZL->ZL_RISCATU := M->A1_RISCO
SZL->ZL_HISTOR := _cHist
SZL->ZL_USURESP := cUserName
Msunlock()
dbSelectArea("SA1")
Reclock("SA1",.F.)
SA1->A1_XSOLCRD := ""
SA1->A1_XNOMSOL := ""
SA1->A1_XVALSOL := 0
SA1->A1_XHISSOL := "TESTEEEEE"
SA1->A1_XNMREMP := _cSolic
Msunlock()
Endif
Endif
Return uLret
A parte da SA1 não está gravando, é isso? Já verificou se a tabela está posicionada corretamente? A função RecLock retorna um valor lógico, já verificou se ela está retornando falso?
— Daniel Mendes 08 de Nov de 2021Acredito que sim. Verifiquei agora que a ele está ficando gravado apenas na oldsa1
— marcelo.duarteeee 08 de Nov de 2021Mas parece que ambos os alias apontam para a mesma tabela.
— Daniel Mendes 08 de Nov de 2021Já fiz diversos testes realmente não consegui entender o motivo ainda.
— marcelo.duarteeee 08 de Nov de 2021Alguma sugestão provavelmente é algo bobo.
— marcelo.duarteeee 08 de Nov de 2021Quando eu utilizo o replace with ele substitui nas duas tabelas mas não grava as alterações.
— marcelo.duarteeee 08 de Nov de 2021