Ponto de Entrada
Descrição: | Ponto de Entrada feito para incluir novas tabelas e tabelas customizadas ao alterar o chassi de um veículo a partir da rotina de Alteração do Código de Chassi(VEIVA360). | ||||||||||||
Localização: | Atualizações \ Cadastro de Veículos \ Alt. Código Chassi | ||||||||||||
Eventos: | If Empty(cChaAtu) MsgStop(STR0023) // Data/Hora Return(.f.) EndIf If ExistBlock("VE360TAB") aAdd( aTabAlt, cArquivo) aAdd( aTabAlt, cArqCha ) aAdd( aTabAlt, cArqCod ) aTabAlt := ExecBlock("VE360TAB",.f.,.f.,{aTabAlt}) cArquivo := aTabAlt[1] cArqCha := aTabAlt[2] cArqCod := aTabAlt[3] Endif cChaAnt := VV1->VV1_CHASSI If Empty(cChaAnt) FS_ALTCHAINT(cChaAtu,cArqCha,cArqCod) Return(.t.) ENDIF | ||||||||||||
Programa Fonte: | VEIVA360.PRW | ||||||||||||
Função: | FS_ALTCHASSI() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
|
Exemplo:
Include totvs.ch
User Function VE360TAB()
Local cChassi := "" // Tabelas onde o campo é Alias->CHASSI
Local cChaint := "" // Tabelas onde o campo é Alias->CHAINT
Local cCod := "" // Tabelas onde o campo é Alias->COD
Local aAltTab := ParamIXB[1]
cChassi := "Z01/"
cChaint := "Z01/Z02/"
cCod := "Z01/Z02/Z03/"
aAltTab[1] := aAltTab[1] + cChassi
aAltTab[2] := aAltTab[2] + cChaint
aAltTab[3] := aAltTab[3] + cCod
Return(aAltTab)