TOTVS DevForum - Moderar question

Versão atual:

Problema com X3_INIBRW - Browse Contas a Receber

Senhores, bom dia.

Fiz a seguinte função:


User Function TUR06M06()
    Local dRet      := CriaVar("E5_DTDISPO", .F.)
    Local cQry      := ""

    cQry += "SELECT TOP 1 E5_DTDISPO "
    cQry += "FROM "+RetSqlName("SE5")+" SE5 (NOLOCK) "
    cQry += "WHERE SE5.D_E_L_E_T_ = ' ' "
    cQry += "    AND E5_FILIAL = '"+SE1->E1_FILIAL+"' "
    cQry += "    AND E5_PREFIXO = '"+SE1->E1_PREFIXO+"' "
    cQry += "    AND E5_NUMERO = '"+SE1->E1_NUM+"' "
    cQry += "    AND E5_PARCELA = '"+SE1->E1_PARCELA+"' "
    cQry += "    AND E5_TIPO = '"+SE1->E1_TIPO+"' "
    cQry += "    AND E5_CLIENTE = '"+SE1->E1_CLIENTE+"' "
    cQry += "    AND E5_LOJA = '"+SE1->E1_LOJA+"' "
    cQry += "   ORDER BY E5_DATA"

    TcQuery cQry New Alias "QRYSE5"

    DbSelectArea("QRYSE5")
    QRYSE5->(dbGoTop())

    if !QRYSE5->(Eof())
        dRet := SToD(QRYSE5->E5_DTDISPO)
    endif

    QRYSE5->(DbCloSeArea())

Return dRet

Porém ao clicar em imprimir o browse na tela do contas a receber, está gerando o erro em anexo.

Valeu pela força.

advpl

Versões (4):

Ver a versão formatada

Problema com X3_INIBRW - Browse Contas a Receber

Senhores, bom dia.

Fiz a seguinte função:


User Function TUR06M06()
    Local dRet      := CriaVar("E5_DTDISPO", .F.)
    Local cQry      := ""

    cQry += "SELECT TOP 1 E5_DTDISPO "
    cQry += "FROM "+RetSqlName("SE5")+" SE5 (NOLOCK) "
    cQry += "WHERE SE5.D_E_L_E_T_ = ' ' "
    cQry += "    AND E5_FILIAL = '"+SE1->E1_FILIAL+"' "
    cQry += "    AND E5_PREFIXO = '"+SE1->E1_PREFIXO+"' "
    cQry += "    AND E5_NUMERO = '"+SE1->E1_NUM+"' "
    cQry += "    AND E5_PARCELA = '"+SE1->E1_PARCELA+"' "
    cQry += "    AND E5_TIPO = '"+SE1->E1_TIPO+"' "
    cQry += "    AND E5_CLIENTE = '"+SE1->E1_CLIENTE+"' "
    cQry += "    AND E5_LOJA = '"+SE1->E1_LOJA+"' "
    cQry += "   ORDER BY E5_DATA"

    TcQuery cQry New Alias "QRYSE5"

    DbSelectArea("QRYSE5")
    QRYSE5->(dbGoTop())

    if !QRYSE5->(Eof())
        dRet := SToD(QRYSE5->E5_DTDISPO)
    endif

    QRYSE5->(DbCloSeArea())

Return dRet

Porém ao clicar em imprimir o browse na tela do contas a receber, está gerando o erro em anexo.

Valeu pela força.

advpl

advpl

criado 4 weeks ago

Helio Couto Vespaziano
2 pontos

Comentário

new question

Ver a versão formatada

Problema com X3_INIBRW - Browse Contas a Receber

Senhores, bom dia.

Fiz a seguinte função abaixo, e inseri ela no X3_INIBRW de um campo na virtual na SE1, E1_ZDTDISP, porém ao clicar para imprimir o Browse, está um erro em anexo.


User Function TUR06M06()
    Local dRet      := CriaVar("E5_DTDISPO", .F.)
    Local cQry      := ""

    cQry += "SELECT TOP 1 E5_DTDISPO "
    cQry += "FROM "+RetSqlName("SE5")+" SE5 (NOLOCK) "
    cQry += "WHERE SE5.D_E_L_E_T_ = ' ' "
    cQry += "    AND E5_FILIAL = '"+SE1->E1_FILIAL+"' "
    cQry += "    AND E5_PREFIXO = '"+SE1->E1_PREFIXO+"' "
    cQry += "    AND E5_NUMERO = '"+SE1->E1_NUM+"' "
    cQry += "    AND E5_PARCELA = '"+SE1->E1_PARCELA+"' "
    cQry += "    AND E5_TIPO = '"+SE1->E1_TIPO+"' "
    cQry += "    AND E5_CLIENTE = '"+SE1->E1_CLIENTE+"' "
    cQry += "    AND E5_LOJA = '"+SE1->E1_LOJA+"' "
    cQry += "   ORDER BY E5_DATA"

    TcQuery cQry New Alias "QRYSE5"

    DbSelectArea("QRYSE5")
    QRYSE5->(dbGoTop())

    if !QRYSE5->(Eof())
        dRet := SToD(QRYSE5->E5_DTDISPO)
    endif

    QRYSE5->(DbCloSeArea())

Return dRet

Valeu pela força.

advpl

advpl

criado 4 weeks ago

Helio Couto Vespaziano
2 pontos

Comentário

Mais infos.

Ver a versão formatada

Problema com X3_INIBRW - Browse Contas a Receber

Senhores, bom dia.

Fiz a seguinte função abaixo, e inseri ela no X3_INIBRW de um campovirtual na SE1, E1_ZDTDISP, porém ao clicar para imprimir o Browse, está gerando um erro em anexo.


User Function TUR06M06()
    Local dRet      := CriaVar("E5_DTDISPO", .F.)
    Local cQry      := ""

    cQry += "SELECT TOP 1 E5_DTDISPO "
    cQry += "FROM "+RetSqlName("SE5")+" SE5 (NOLOCK) "
    cQry += "WHERE SE5.D_E_L_E_T_ = ' ' "
    cQry += "    AND E5_FILIAL = '"+SE1->E1_FILIAL+"' "
    cQry += "    AND E5_PREFIXO = '"+SE1->E1_PREFIXO+"' "
    cQry += "    AND E5_NUMERO = '"+SE1->E1_NUM+"' "
    cQry += "    AND E5_PARCELA = '"+SE1->E1_PARCELA+"' "
    cQry += "    AND E5_TIPO = '"+SE1->E1_TIPO+"' "
    cQry += "    AND E5_CLIENTE = '"+SE1->E1_CLIENTE+"' "
    cQry += "    AND E5_LOJA = '"+SE1->E1_LOJA+"' "
    cQry += "   ORDER BY E5_DATA"

    TcQuery cQry New Alias "QRYSE5"

    DbSelectArea("QRYSE5")
    QRYSE5->(dbGoTop())

    if !QRYSE5->(Eof())
        dRet := SToD(QRYSE5->E5_DTDISPO)
    endif

    QRYSE5->(DbCloSeArea())

Return dRet

Valeu pela força.

advpl

advpl

criado 4 weeks ago

Helio Couto Vespaziano
2 pontos

Comentário

Infos complementares

Ver a versão formatada

Problema com X3_INIBRW - Browse Contas a Receber

Senhores, bom dia.

Fiz a seguinte função abaixo, e inseri ela no X3_INIBRW de um campo virtual na SE1, E1_ZDTDISP, porém ao clicar para imprimir o Browse, está gerando um erro em anexo.


User Function TUR06M06()
    Local dRet      := CriaVar("E5_DTDISPO", .F.)
    Local cQry      := ""

    cQry += "SELECT TOP 1 E5_DTDISPO "
    cQry += "FROM "+RetSqlName("SE5")+" SE5 (NOLOCK) "
    cQry += "WHERE SE5.D_E_L_E_T_ = ' ' "
    cQry += "    AND E5_FILIAL = '"+SE1->E1_FILIAL+"' "
    cQry += "    AND E5_PREFIXO = '"+SE1->E1_PREFIXO+"' "
    cQry += "    AND E5_NUMERO = '"+SE1->E1_NUM+"' "
    cQry += "    AND E5_PARCELA = '"+SE1->E1_PARCELA+"' "
    cQry += "    AND E5_TIPO = '"+SE1->E1_TIPO+"' "
    cQry += "    AND E5_CLIENTE = '"+SE1->E1_CLIENTE+"' "
    cQry += "    AND E5_LOJA = '"+SE1->E1_LOJA+"' "
    cQry += "   ORDER BY E5_DATA"

    TcQuery cQry New Alias "QRYSE5"

    DbSelectArea("QRYSE5")
    QRYSE5->(dbGoTop())

    if !QRYSE5->(Eof())
        dRet := SToD(QRYSE5->E5_DTDISPO)
    endif

    QRYSE5->(DbCloSeArea())

Return dRet

Valeu pela força.

advpl

advpl

criado 4 weeks ago

Helio Couto Vespaziano
2 pontos

Comentário

mais infos