Versão atual:

Erro ao executar

Erro que aparece na tela :

THREAD ERROR ([5228], agnes.santos, 01TI011) 06/12/2023 16:44:14 argument #0 error, expected D->C, function dtoc on FTITULOS(SRFAT004.PRW) 06/12/2023 16:39:15 line : 23

static function fTitulos(cCodCli,cLjCli)

    Local aArea        :=    GetArea()
    Local aRet        :=    {}
    Local cAlias    :=    GetNextAlias()
    Local cStat        :=    ""
    Local cStat1    :=    ""

    BeginSql Alias cAlias

        SELECT     E1_PREFIXO, 
                E1_NUM, 
                E1_VENCREA, 
                E1_SALDO
        FROM     %TABLE:SE1%
        WHERE     %NOTDEL% AND
                E1_CLIENTE = E1_CLIENTE AND
                E1_LOJA = %EXP:cLjCli% AND
                E1_SALDO > 0

    EndSql

    dbSelectArea(cAlias)
    (cAlias)->(dbGoTop())
    While (cAlias)->(!eof())

        If (cAlias)->E1_VENCREA <= dtoc(ddatabase)
            cStat    :=    "Sim"
        Else
            cStat    :=    "Não"
        EndIf
            cStat1    +=    (cAlias)->E1_PREFIXO +"/"+ (cAlias)->E1_NUM +"/"+ dToc((cAlias)->E1_VENCREA) + "/" + Transform(E1_SALDO,"@E 999,999,999.99")
        (cAlias)-> (DBSKIP( ))
    EndDo    
    aAdd(aRet,{cStat,cStat1})
    RestArea(aArea) 
return aRet

Versões (3):

Ver a versão formatada

Erro ao executar

Comentário

new question