Versão atual:

Rest usando Classes TLPP

Boa tarde!

Estou tentando montar um WS usando fonte .tlpp para buscar um campo no cadastro de clientes. É o primeiro rest em tlpp que montamos aqui, então nosso único exemplo é do TDN. Montei como estava lá até o ponto em que precisei de funções de banco, essas não estão funcionando. Alguém poderia dar um auxilio ou uma dica?

Segue o código:

#include 'protheus.ch'
#include 'topConn.ch'
#include 'tlpp-core.th'
#include 'tlpp-object.th'
#include 'tlpp-rest.th'

class ZDA_PNE
    private data jPathParams

    public data cReturn

    public method new()

    @Get("/pne/ZDA_PNE/:rca")
    public method GetRCACCusto()
endClass

method new() class ZDA_PNE
    ::cReturn := ""
return self

method GetRCACCusto() class ZDA_PNE
    Local cRCA := ""

    jPathParams := oRest:getPathParamsRequest()

    if jPathParams <> Nil 
        cRCA := jPathParams['rca']

        DBSelectArea("SA3")
        SA3->( DBSetOrder(1) )
        If SA3->( DBSeek( xFilial("SA3") + cRCA ) )
            ::cReturn := SA3->A3_X_CC
        Else
            ::cReturn := "RCA não encontrado!"
        EndIf

        SA3->( DBCloseArea() )
    endif

    oRest:setResponse(::cReturn)
return .T.

Versão (1):

Ver a versão formatada

Rest usando Classes TLPP

Comentário

new question