Acionar a Posição do Cliente em uma Customização | Ti Responde 031

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:

//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
 
    //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.

Dan (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

Deixe uma resposta