Histórico da Página

...

#Include 'Protheus.ch'

User Function F998BRFLTF998IMPREC()

     Local querySelect aRecibos := ParamixbPARAMIXB[1]
   Local queryWhere := Paramixb[2]

   Local queryOption := Paramixb[3]
   Local whereNew := " AND SEL.EL_RECIBO >= 0040"
   Local queryNew := ""   IF queryOption == 'complete'
         queryNew := " SELECT " + querySelect + " AS totalreceipts FROM " + RetSqlName("SEL")
         queryNew += +" SEL WHERE " + queryWhere + whereNew
   ELSEIF queryOption == 'where'
         queryNew := queryWhere + whereNew
   ENDIF
RETURN queryNew   MSGALERT("Se imprimió el recibo "+ aRecibos[6]+aRecibos[5] +" por PE.")

Return

...