Ponto de Entrada
Descrição: | Customização para Tela de CPF/CNPJ da venda | ||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Localização: | Venda Assistida (LOJA701) / Frente de Lojas (FRTA271) | ||||||||||||||||||||||||||||||||||||
Eventos: | Este ponto de entrada permite omitir a tela de CPF/CNPJ e/ou incluir o retorno automático das informações ( em substituição a tela padrão do sistema ) | ||||||||||||||||||||||||||||||||||||
Programa Fonte: | LOJXFUND | ||||||||||||||||||||||||||||||||||||
Função: | LJRETCLI | ||||||||||||||||||||||||||||||||||||
Parâmetros | nenhum | ||||||||||||||||||||||||||||||||||||
Retorno: |
| ||||||||||||||||||||||||||||||||||||
Fontes do Pacote: | LOJXFUND.PRW 25/10/2016 18:14:09 | ||||||||||||||||||||||||||||||||||||
Pacote: | CH TVZDC3.zip |
Exemplo #1
#include "protheus.ch"
User Function LjRetCli()
Local aRet := {"","","",.F.,"","","",""}
//[1] - Código do cliente
//[2] - Loja do cliente
//[3] - CPF/CNPJ
//[4] - Logico, tela customizada no PE (se .T. não mostra a tela padrão, se .F. mostra a tela padrão)
//[5] - Nome do cliente
//[6] - Endereco do cliente
//[7] - Se usar Template de Combustiveis deve mostrar a placa do carro
//[8] - Se usar Template de Combustiveis deve mostrar a kilometragem do carro
aRet[1] := "2 "
aRet[2] := "01"
aRet[3] := "52840975483"
aRet[4] := .T.
aRet[5] := "CLIENTE 2 "
aRet[6] := "RUA XXXX,78 "
aRet[7] := "ABC-1234"
aRet[8] := "5000 Km"
Return aRet
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Exemplo #2
#include "protheus.ch"
User Function LjRetCli()
Local aRet := {"","","",.F.,"","","",""}
Local aPlacaCli := {}
Local aAreaTotal:= {}
Local aAreaSL1 := {}
aAreaTotal := GetArea()
DbSelectArea("SA1")
aAreaSL1 := SA1->(GetArea())
// Criação de uma regra para a pesquisa de clientes
SA1->(DbSetOrder(1))
If Type("M->LQ_CLIENTE") <> "U"
SA1->(MsSeek(xFilial("SA1")+M->LQ_CLIENTE))
Else
SA1->(MsSeek(xFilial("SA1")+SL1->L1_CLIENTE))
EndIf
aRet[1] := SA1->A1_COD
aRet[2] := SA1->A1_LOJA
aRet[3] := SA1->A1_CGC
aRet[4] := .T.
aRet[5] := SA1->A1_NOME
aRet[6] := SA1->A1_END
//Somente inserir esse trecho, se usar o Template de Combustíveis
If ExistTemplate("TpPclPqLEH")
/*
Escolher uma das duas opções abaixo:
- Pesquisa pela função do Template
ou
- retorno por outro meio (Tela, etc)
*/
aPlacaCli := T_TpPclPqLEH(SA1->A1_COD , SA1->A1_LOJA) //usar a função do Template que efetua a pesquisa da placa
aPlacaCli := {"PROTHEUS","ABC-1234"} //ou inserir valor padrão
aRet[7] := aPlacaCli[2]
aRet[8] := "5000 Km" //Inserir uma forma de capturar essa quilometragem
EndIf
RestArea(aAreaSL1)
RestArea(aAreaTotal)
Return aRet