Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagejava
themeMidnight
title EFDCON03SPDF500A.PRW
linenumberstrue
#include 'protheus.ch'
#include 'parmtype.ch'

User Function SPDF500A()

    Local cFrom := ParamIxb[1]
    Local cWhere := ParamIxb[2]
    Local aQuery := {}   

    cFrom += " LEFT JOIN " + RetSqlName("SF2")
    cFrom += " SF2 ON(SF2.F2_FILIAL='" + xFilial("SF2") + "' "  
    cFrom += "AND SF2.F2_DOC=SFT.FT_NFISCAL "
    cFrom += "AND SF2.F2_SERIE=SFT.FT_SERIE "
    cFrom += "AND SF2.F2_CLIENTE=SFT.FT_CLIEFOR "
    cFrom += "AND SF2.F2_LOJA=SFT.FT_LOJA "
    cFrom += "AND SF2.D_E_L_E_T_=' ')" 

    cWhere += "SFT.FT_TIPOMOV='S' "

    aAdd(aQuery,cFrom)
    aAdd(aQuery,cWhere)

Return aQuery

...