No vídeo de hoje, vamos demonstrar em como acionar a tela de Posição do Cliente em uma User Function customizada.

Hoje, a dúvida foi feita pelo grande Luiz, onde ele perguntou em como poderia acionar a tela de Posição do Cliente em uma customização.

Com isso em mente, fiz um vídeo explicando como acionar a função depois de posicionar no cadastro de cliente.

E abaixo o código fonte desenvolvido para exemplificar.

Update – Dezembro de 2022:

Existem 4 parâmetros de Data de/até na rotina, que devem ser atualizados para trazer os dados corretamente, então nós fizemos essa tratativa para atualizar via SetMVValue. O Exemplo abaixo esta atualizado.

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0031
Função que abre a tela de posição do Cliente
@type  Function
@author Atilio
@since 28/04/2022
@param cCodCli, Caractere, Código do Cliente
@param cLojCli, Caractere, Loja do Cliente
/*/

User Function zVid0031(cCodCli, cLojCli)
    Local aArea     := FWGetArea()
    Default cCodCli := ""
    Default cLojCli := ""

    DbSelectArea("SA1")
    SA1->(DbSetOrder(1)) // A1_FILIAL + A1_COD + A1_LOJA

    //Definindo o período de filtro
    dDataDe  := sToD("20170101")
    dDataAte := sToD("20491231")
    SetMVValue("FIC010", "MV_PAR01", dDataDe)  //Emissão De
    SetMVValue("FIC010", "MV_PAR02", dDataAte) //Emissão Até
    SetMVValue("FIC010", "MV_PAR03", dDataDe)  //Vencimento De
    SetMVValue("FIC010", "MV_PAR04", dDataAte) //Vencimento Até

    //Se conseguir posicionar no cliente
    If SA1->(MsSeek(FWxFilial("SA1") + cCodCli + cLojCli))
        Finc010(2)
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus