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: |
|
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