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)

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 para DOUGLAS O T CHAGAS Cancelar 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