Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

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