Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada localizado na opção Replicar da Rotina de Formas de Descontos (Criterios de Descontos). Executado no momento do SQL para o levantamento dos possíveis Critérios de Descontos que estarão disponiveis para seleção na réplica. Pode ser utilizado para adicionar um filtro no SQL da tabela VEM. O padrão filtra todos os registros da tabela VEM que estão válidos (não deletados) e que for diferente do posicionado no browse que é a base para réplica.

Localização:

Cadastro / Cad Gestao / Criterios de Descontos

Eventos:

...

cQuery := "SELECT R_E_C_N_O_ AS RECVEM , VEM_FILIAL , VEM_NOMCRI"

cQuery += " FROM "+RetSqlName("VEM")

cQuery += " WHERE R_E_C_N_O_ <> "+Alltrim(str(nRecVEM))

cQuery += " AND D_E_L_E_T_=' '"

if ExistBlock("OX005QRP")

cQueryAux := ExecBlock("OX005QRP",.f.,.f.)

If !Empty(cQueryAux)

cQuery += " AND ( "+cQueryAux+" )"

EndIf

endif

cQuery += " ORDER BY VEM_FILIAL , VEM_NOMCRI"

...

Programa Fonte:

OFIXX005.PRW

Função:

OFX0050011_REPLICARCADASTRO()

Parâmetros:

N/A


Retorno:
NomeTipoDescrição

cQueryAux

Caractere

Where complementar da Query

Exemplo:

Include totvs.ch

/*


OX005QRP - OFIXX005 - Criterio de Descontos


Ponto de Entrada localizado na opção Replicar da Rotina de Formas de Descontos (OFIXA017)

Executado no momento do SQL para o levantamento dos possíveis Critérios de Descontos que

estarão disponiveis para seleção na réplica. Pode ser utilizado para adicionar um filtro

no SQL da tabela VEM.

O padrão filtra todos os registros da tabela VEM que estão válidos (não deletados) e que

for diferente do posicionado no browse que é a base para réplica.


Exemplo: Trazer somente os registros da Filial do Criterio Base ( posicionado no Browse )


cRet := " VEM_FILIAL='"+VEM->VEM_FILIAL+"'"


*/

User Function OX005QRP()

Local cRet := ""


MsgAlert("Ponto de Entrada OX005QRP executado com sucesso!","Atenção")


Return cRet