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.