Árvore de páginas

Versões comparadas

Chave

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

...

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âmetrosnenhum
Retorno:
NomeTipoDescriçãoObrigatório
aRetCli[1]caracterCódigo do ClienteSim
aRetCli[2]caracterLoja do ClienteSim
aRetCli[3]caracterCPF/CNPJSimNão
aRetCli[4]lógicoTela Customizada ou omitida?
Se retorno .T., o protheus não mostra
a tela padrão.
Caso .F., mesmo retornando as informações
a tela será mostrada 
SimNão
aRetCli[5]caracterNome do ClienteNão
aRetCli[6]caracterEndereço do clienteNão
aRetCli[7]caracterPlaca do Carro ( somente se usa Template de Combustíveis )Não
aRetCli[8]caracterQuilometragem ( somente se usa Template de Combustíveis )Não

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