Histórico da Página

#include 'protheus.ch'

/*/{Protheus.doc} F989CPQY()  

	Ponto de Entrada acionado antes de enviar título para integração com o TAF.
	
	@param ParamIxb[1] - jDadosTit - Tipo: Json - (Dados do título conforme estrutura abaixo)
						   jDadosTit["TABELA"] -  Tipo: Caractere - (Tabela do título) Tipo: Character // Ex.: 'SE2'
    	    	           jDadosTit["CHAVE"] -  Tipo: Caractere - (Chave do título) Tipo: Character  // Ex.: 'D MG 01 |GUI|TESTE3001| |NF |RNF001|01'
	                 	   jDadosTit["IDDOC"] -  Tipo: Caractere - (ID Doc do título na FK7) Tipo: Character // Ex.: '63F4444D399A4011BF6CD8CB8AD2DD59'
 	@param ParamIxb[2] - cIdDocInt - Tipo: Caractere - (ID Doc utilizada na integração com o TAF. Poderá ser IDDOC da FK7 ou IDFK2 da FK2) // Ex.: '3B3297B6419A4011BF6CD8CB8AD2DD59'
 	@param ParamIxb[3] - cOperacao - Tipo: Caractere - (Tipo de operação: 1 - Inclusão, 2 - Alteração, 3 - Exclusão, 4 - Baixa, 5 - Cancelamento da Baixa) // Ex.: '1'
  	@param ParamIxb[4] - cTipoReg - Tipo: Caractere - (Tipo de regi stro: 1 - MIT, 2 - REINF) // Ex.: '2'

	@return cRetlRet (logical) - Query modificada pelo ponto de entrada Retorna .T. para continuar a integração ou .F. para abortar.
/*/

User Function F989CPQYRNFINTEG() local lRet      := .T.
    local aArea     := {}
    Local cQuery local aAreaTit  := {}
    local jDadosTit := ParamIXB[1] //Query padrão

    //Adiciona filtro por natureza
    cQuery += " AND SE2.E2_NATUREZ = '000001' "  

Return cQuery PARAMIXB[1]
    local cIdDocInt := PARAMIXB[2]
    local cOperacao := PARAMIXB[3]
    local cTipoReg  := PARAMIXB[4]
    local cSeekTit  := strTran(jDadosTit['CHAVE'], '|', '') //Ex.: 'D MG 01 GUITESTE3001 NF RNF00101'

    if jDadosTit['TABELA'] == 'SE2' .and. cTipoReg == '2'
        lRet := .F.
        aArea    := getArea()
        aAreaTit := SE2->(getArea())

        dbSelectArea('SE2')
        dbSetOrder(1) //E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA
        if SE2->(dbSeek(cSeekTit))
            conout('Gui - ' + SE2->E2_NATUREZ)
            lRet := SE2->E2_NATUREZ $ 'RNF000001 /RNF000002 /RNF000003 '
        endIf        

        restArea(aAreaTit)
        restArea(aArea)
    endIf

return lRet