||Descrição|| Criado o Ponto de Entrada P720BPAD para alterar a Busca Padrão do campo BD5_LOCATE
||Observações||
||Exemplos||
User Function P720BPAD
Local aDadRda := paramixb[1]
aDadRda[18] := "007006" //Indicando para qual posição a consultar
msgStop("Ponto de Entrada - Alterando o código Local Atendimento: " + aDadRda[18],"PE - Rede Locais de Atendimento")
Return(aDadRda)
||Preview||
||Veja também||
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus10
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates||
||Parâmetros||
{.T.,; //01
BAU->BAU_CODIGO, //02
BAW->BAW_CODANT,; //03
BAU->(BAU->BAU_ESTCR+BAU->BAU_CONREG+BAU->BAU_SIGLCR),;//04
BAU->BAU_CODBB0,; //05
BAU->BAU_NOME,; //06
BAU->BAU_NREDUZ,; //07
BAU->BAU_TIPPE,; //08
BAU->BAU_DATBLO,; //09
BAU->BAU_CODBLO,; //10
.F.,; //11
BB8->BB8_CODLOC,; //12
BB8->BB8_LOCAL,; //13
cCodInt,; //14
BAX->BAX_CODESP,; //15
BAU->BAU_CPFCGC,; //16
BAQ->BAQ_DESCRI,; //17
BB8->(BB8_CODLOC+BB8_LOCAL),;//18
BB8->BB8_DESLOC,; //19
AllTrim(BB8->BB8_END)+"+"+AllTrim(BB8->BB8_NR_END)+"-"+AllTrim(BB8->BB8_COMEND)+"-"+AllTrim(BB8->BB8_BAIRRO),;//20
BAX->BAX_CODSUB,; //21
BA0->BA0_GRUOPE,; //22
BB8->BB8_OBRCLI,; //23
cTrtExe,; //24
BAU->BAU_CATHOS,; //25
aCarRDA,; //26
BAU->BAU_TIPPRE,; //27
BAU->BAU_CODOPE,; //28
lRdaInt,; //29
BAU->BAU_ALTCUS,; //30
BAU->BAU_SIGLCR,; //31
BAU->BAU_CONREG} //32
||Retorno|| aDadRda(array_of_record)
||Eventos de chamada do Ponto de Entrada||
||Variáveis||
||Programa Fonte|| PLSA720 |