Perguntas fina060 - MarkBrowse

Bom dia, meu amigos!

Na função MarkBrowse do FINA060, logo que seleciono o titulo, do tipo cheque, que deve compor o bordero,
faço a devida pergunta:

IF (cAlias)->E1_TIPO == 'CH '

if MSGYESNO( "Bordero de Custoria (SIM) ou Depósito(NA0)?", "Tipo de Bordero" )
cCust_b := "C"
Else
cCust_b := "D"
Endif

Endif
(cAlias)->E1_YTPBORD := cCust_b
Return lRet

Mas nada grava, o que é preciso para persistir este dado?

Pedro, não entendi bem sua pergunta mas se não me engano o campo E1_TIPO tem o tamanho 3. Tenta fazer utilzando o Alltrim para retirar os espaços.

Espero que ajude.

Não amigo, o E1_TIPO == 'CH ' é apenas para garantir o tipo do título que se trata de cheque, mas o que preciso GRAVAR na tabela SE1 no campo E1_YTPBORD, é o retorno da variável.

A rotina é executada perfeitamente, mas não me dá qualquer erro e também não grava nada no campo.

Entende?

Fiz o teste, mas não gravou...

Contas a Receber->Funções a Receber->bordero...esse é ponto de entrada, caso você consiga testar...estou apelando, muito obrigado.

#include 'totvs.ch'
#Include "Protheus.Ch"
#Include "TopConn.Ch"
#Include "TbiConn.Ch"
#include "RWMAKE.CH"

User Function FA060VLD()


Local cMarca := ParamIxb[1]
Local cAlias := ParamIxb[2]
Local lRet := .T.
Local cCust_b := " "


IF (cAlias)->E1_TIPO == 'CH '

if MSGYESNO( "Bordero de Custoria (SIM) ou Depósito(NA0)?", "Tipo de Bordero" )
cCust_b := "C"
Else
cCust_b := "D"
Endif

Endif
If RecLock(cAlias,.F.)
(cAlias)->E1_YTPBORD := cCust_b
MSUnlock()
Endif
Return lRet