Validação no Documento de Saída

Exemplo de validação na rotina de Documento de Saída:

/*
=============================================================
Rotina : M460MARK
————————————————————————————————-
Autor : Thiago Coimbra
————————————————————————————————-
Descricao : Ponto de entrada na rotina de Documento de Saída (MATA460)
no momento em que é pressionado o botão Prepara Docs
ThisMark() retorna a chave C9_OK para descobrir os itens
que foram marcados pelo usuário.
————————————————————————————————-
Partida : MATA460 (Documento de Saída)
=============================================================
*/
#include “Protheus.ch”
#include “topconn.ch”

//—————————————————————————
User Function M460MARK()
//—————————————————————————

Local lRet := .T.
Local cQuery
Local cAlias := CriaTrab(Nil,.F.)

cQuery := “SELECT DISTINCT ”
cQuery += ” C9_PEDIDO ”
cQuery += “FROM ”
cQuery += RETSQLNAME(“SC9″)+” ”
cQuery += “WHERE ”
cQuery += ” C9_FILIAL = ‘”+xFilial(“SC9″)+”‘ ”
cQuery += ” AND D_E_L_E_T_ = ” ”
cQuery += ” AND C9_NFISCAL = ” ”
cQuery += ” AND C9_OK = ‘”+ThisMark()+”‘ ”

TCQuery cQuery NEW ALIAS (cAlias)
(cAlias)->(dbGoTop())

While !(cAlias)->(Eof())

//**********************************************************
// Validação aqui a partir de (cAlias)->C9_PEDIDO
//
// lRet := .F.
// Break
//**********************************************************

(cAlias)->(dbSkip())

EndDo

(cAlias)->(dbCloseArea())

Return(lRet)

Anúncios

6 thoughts on “Validação no Documento de Saída

  1. Estava utilizando um tratamento semelhante ao seu, porem, quando o usuário realiza a seleção através do inverter seleção, cabeçalho da coluna, a condição não funciona.

    Teria alguma sugestão para realizar o tratamento, quando o paramixb[2] := .t., que é o indicador do inverter.

      1. NESSA SITUAÇÃO NAO GRAVA O THISMARK() NO C9_OK, VEM VAZIO, ASSIM NÃO HÁ COMO COMPARAR ESSE CAMPO NA VALIDAÇÃO. COMO PEGAR OS MARCADOS NESSA CONDIÇÃO?

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão /  Alterar )

Google photo

Está a comentar usando a sua conta Google Terminar Sessão /  Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão /  Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão /  Alterar )

Connecting to %s