Histórico da Página
...
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| ||||
Segmento: |
| ||||
Módulo: | SIGAFAT - Faturamento | ||||
Função: | MATN410A - Pedido Pedidos de VendasVenda | ||||
Abrangências: | Microsiga Protheus 12 | ||||
Versões: | Microsiga Protheus 12 | ||||
Compatível Países: | Todos | ||||
Sistemas Operacionais: | Todos | ||||
Compatível com as Bases de Dados: | Todos | ||||
Nível de Acesso: | Nível 1 (Acesso Clientes) | ||||
Idiomas: | Todos |
...
Ponto de Entrada utilizado para permitir a alteração do filtro de pesquisa das Notas Fiscais de Entrada, na rotina de Devolução de Compras do Pedido opção de Retornar da rotina de Pedidos de Venda.
03. SINTAXE
A410RNF( ) ---> cQuery
04. PARÂMETROS
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
---|---|---|---|---|---|
aParamIXB | Vetor | Vetor com os dados para montagem do filtro de pesquisa, sendo: [ 1 ] - dDataDe - Data Inicial - Tipo: Data - Formato: dd/mm/aaaa [ 2 ] - dDataAte - Data Final - Tipo: Data - Formato: dd/mm/aaaa [ 3 ] - lForn - Fornecedor (.T.) ou Cliente (.F.) - Tipo: Lógico [ 4 ] - lFornece - Fornecedor (.T.) ou Documento (.F.) - Tipo: Lógico [ 5 ] - lMantemQry - Indica se deve manter a Query padrão (Para manter o padrão atribuir .T.) - Tipo: Lógico |
05. RETORNO
Retorno | Tipo | Descrição | Obrigatório |
---|---|---|---|
cQuery | Caractere | Filtro para seleção das notas fiscais que serão apresentadas na Tela |
06. EXEMPLO
Bloco de código | ||||
---|---|---|---|---|
| ||||
#INCLUDE 'Protheus.ch'
#INCLUDE "TOPCONN.CH"
User Function A410RNF
Local dDataDe := PARAMIXB[1] // Data Inicial
Local dDataAte:= PARAMIXB[2] // Data Final
Local lForn := PARAMIXB[3] // Fornecedor (.T.) ou Cliente (.F.)
Local lFornece := PARAMIXB[4] // Fornecedor (.T.) ou Documento (.F.)
Local lMantemQry := PARAMIXB[5] // Indica se deve manter a Query padrão (Para manter o padrão atribuir .T.)
Local cQuery := ""
Local cFornece := "000001"
Local cLoja := "02"
// Caso deseje manter a query Padrão do sistema, atribuir .T. na variável lMantemQry, caso contrário será utilizada a query retornada em cQuery
lMantemQry := .T.
If !lMantemQry
IF lFornece // Foi escolhido por fornecedor, o filtro deverá ser efetuado em codebase (SQL)
cQuery := " SELECT * "
cQuery += " FROM " + RetSqlName("SF1")
cQuery += " WHERE F1_FILIAL = '" + xFilial("SF1") + "' "
cQuery += " AND F1_FORNECE = '" + cFornece + "' "
cQuery += " AND F1_LOJA = '" + cLoja + "' "
cQuery += " AND F1_DTDIGIT BETWEEN '" + DtoS(dDataDe) + "' AND '" + DtoS(dDataAte) + "' "
cQuery += " AND F1_STATUS <> '" + Space(Len(SF1->F1_STATUS)) + "' "
If lForn
cQuery += " AND F1_TIPO NOT IN ('D','B')
Else
cQuery += " AND F1_TIPO IN ('D','B')
EndIf
cQuery += " AND D_E_L_E_T_ = ' ' "
Else // O filtro deverá ser em AdvPL
cQuery := " SF1->F1_FILIAL == '" + xFilial("SF1") + "' "
cQuery += " .And. SF1->F1_FORNECE == '" + cFornece + "' "
cQuery += " .And. SF1->F1_LOJA == '" + cLoja + "' "
cQuery += " .And. DtoS(SF1->F1_EMISSAO) >= '" + DtoS(dDataDe) + "'"
cQuery += " .And. DtoS(SF1->F1_EMISSAO) <= '" + DtoS(dDataAte) + "' "
If lForn
cQuery += " .And. !(SF1->F1_TIPO $ 'DB') "
Else
cQuery += " .And. SF1->F1_TIPO $ 'DB'
EndIf
EndIf
EndIf
Return cQuery
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas