Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • HEXPSA1B - Manipula exportação de Cliente e Consumo

Ponto-de-Entrada: HEXPSA1B - Manipula exportação de Cliente e Consumo
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Idiomas: Português (Brasil)
Descrição: 
O ponto de entrada HEXPSA1B altera a query de exportação de cliente e consumo do mesmo, sendo disparado em dois momentos: Na exportação do cliente, quando deve ser adicionados os filtros necessários.Na exportação do consumo do cliente, quando deve ser retonada a query e não os filtros, pois o ponto é executado após a montagem da query.
Programa Fonte 
HHMOBEXP.PRW
Sintaxe

HEXPSA1B - Manipula exportação de Cliente e Consumo ( < ParamIxb> ) --> cQuery

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb Array of Record ParamIxb[1]= Query X
Retorno
    cQuery(caracter)
  • No momento de exportação de cliente deve ser retornados os filtros e no momento de exportação de consumo deve ser retonado a query a ser executada.
Exemplos 
User Function HEXPSA1B()Local	cQuery := ParamIxb[01]If AT( "ORDER BY", cQuery )==0	cQuery += " AND SA1.A1_RISCO<>'I' "	cQuery += " AND SA1.A1_RISCO<>'F' "	cQuery += " AND SA1.A1_RISCO<>'D' "	cQuery += " AND SA1.A1_RISCO<>'C' "Else  	cQuery := "SELECT A1_COD,A1_LOJA " 	cQuery += "FROM SA1990 SA1 "	cQuery += "WHERE SA1.A1_FILIAL='  ' AND SA1.A1_VEND = '000001' AND SA1.D_E_L_E_T_ = ' ' "	cQuery += "AND SA1.A1_RISCO<>'I' AND SA1.A1_RISCO<>'F' AND SA1.A1_RISCO<>'D' AND SA1.A1_RISCO<>'C' " 	cQuery += "ORDER BY A1_COD" EndifReturn(cQuery)