VE360TAB Ponto de Entrada 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)

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:

Nome	Tipo	Descrição
aAltTab	Array	Tabelas que serão consultadas e alteradas com o campo Chassi, Chaint e Cod.

Retorno:

Nome	Tipo	Descrição
ParamIXB[1]	Array	São as tabelas que tem após o alias CHASSI
ParamIXB[2]	Array	São as tabelas que tem após o alias CHAINT
ParamIXB[3]	Array	São as tabelas que tem após o alias COD

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)

Árvore de páginas

VE360TAB Ponto de Entrada 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)

Ponto de Entrada