Histórico da Página
...
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 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 // A variável lMantemQry que possui seu valor padrão como .F. If !lForn lMantemQry := .T. EndIf 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