Histórico da Página

Ponto de Entrada

Exemplo #1

#include "protheus.ch"

User Function LjRetCli()
Local aRet := {"","","",.F.,"","","",""}

//

import.css=/download/attachments/327912/newLayout.css

...

...

LOJXFUND.PRW

...

[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

...

...