...
A tabela ZA4 seve como auxilio para filtrar o país.
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
user function AtuSXStrQuery() Local cVersion := "000001" Local cProject := "000001" Local cPackage := Space( 6 ) Local cTable := "ZB1" Local cQuery := "" Local cAliasTmp := "" //Aqui faremos a Query para retornar as Strings do AtuSX //Os campos Filial foram incluídos principalmente para melhorar a performance da query cQuery += "SELECT * FROM "+RetSqlName("ZB1")+" ZB1 " cQuery += "INNER JOIN "+RetSqlName("ZB0")+" ZB0 " cQuery += "ON ZB1.ZB1_IDZB0 = ZB0.R_E_C_N_O_ " cQuery += "INNER JOIN "+RetSqlName("ZA0")+" ZA0 " cQuery += "ON ZB1.ZB1_FILIAL = '" + xFilial("ZB1") + "' AND " cQuery += "ZB0.ZB0_FILIAL = '" + xFilial("ZB0") + "' AND " cQuery += "ZA0.ZA0_FILIAL = '" + xFilial("ZA0") + "' AND ZB0.ZB0_IDZA0 = ZA0.R_E_C_N_O_ AND " //A função ASXVerFil retorna o filtro de versão, projeto e pacote levando em consideração as heranças cQuery += ASXVerFil(3, cTable, cVersion, cProject, cPackage, AsxUniqKey( cTable ), cTable ) + " AND " //Aqui filtro apenas o pais Brasil, módulo SIGAFAT e textos em portogues que estão iguais em espanhol cQuery += " ZB1.ZB1_IDZA4 = 1 AND ZA0.ZA0_NOME = 'SIGAFAT' AND ZB1.ZB1_TXTPOR = ZB1.ZB1_TXTSPA " cAliasTmp := getNextAlias() dbUseArea( .T., "TOPCONN", TcGenQry( ,, ChangeQuery( cQuery ) ), cAliasTmp, .F., .T. ) return |
...