ER PCREQ-144 Pamcard

Regras

 Rotina

1. Tratamento dos novos campos criados

Será necessário fazer o tratamento dos campos DUJ_TITFRE e DUJ_BXAPDG na função: TMSContrFor.

Deverá ser criada duas variáveis que serão acrescentadas no array aRetorno.

Essas variáveis receberão os conteúdos dos campos DUJ_TITFRE e DUJ_BXAPDG. 

Mesmo que os campos não existam na base, as variáveis serão acrescentadas ao array aRetorno, obviamente vazias(” ”). 

TMSContrFor()

2. Tratamento do retorno da função TMSContrFor()

A função TMSCalFrePag (), deverá armazenar em duas variáveis o conteúdo das posições 9 e 10 do array aRet. O aRet é justamente o retorno da função TMSCalFrePag ().

Essas variáveis deverão ser acrescentadas posteriormente no vetor aret, no momento em que o vetor for recriado. 

AAdd(aRet, {cTabFre, cTipTab, nValFre, nQtdOco, nPesOco, nQtdDoc, nDiaSem, nQtdKm, nDiaFimSem, cGerTitPDG, cDedPDG, nBasImp, cTabCar, cGerPC, cGerTitCont, cTitFrete, cBxTitPdg             })

TMSCalFrePag ()

3. Tratamento da variável aDadosCtc

A rotina TMSA250Proc deverá ser utilizada para guardar, acrescentar ao array aDadosCTC o conteúdo dos novos campos criados.

O array aDatosCTC, receberá nas posições 36 e 37 o conteúdo das posições 16 e 17 do array aRet, retornado pela função TMSCALFrePag().

TMSA250Proc ()

4.  Tratamento Função TMSA250Qbr

A função TMSA250Qbr(), deve analisar a posição 36 do adadosCTC, além da posição 25 que já é analisada hoje.

!aDadosCTC[nCntFor][25].Or.aDadosCTC[nCntFor][36] == '1'.

Caso a condição acima seja atendida, a gravação do título deve acontecer por meio da função TMSA250Se2() e posteriormente A050ManSE2().

Além de definir a gravação do título financeiro a função TMSA250Qbr, definirá se o título de pedágio será baixado automaticamente, para isto, será passado o conteúdo da posição 37 do array aDadosCTC para a função A250TitPdg. 

TMSA250QBR()

5.  Tratamento da função A250TitPdg

A rotina A250TitPdg receberá por parâmetro a variável que definirá se o título de pedágio será baixado automaticamente.

Se o conteúdo da variável estiver diferente de <> ‘2’, a baixa do título de pedágio não será realizada automaticamente.

A250TitPdg()

6.  Tratamento Função A240AtuSDG().

Na inclusão do agendamento da viagem a partir da rotina A240ATUSDG, deve-se verificar se no contrato do fornecedor, o campo PAMovBc (DUJ_PAMOVB) é igual á SIM.

Sendo positivo, deve-se passar um novo parâmetro lógico para a função A050ManSE2(), o conteúdo do parâmetro passado deverá ser .T., informando que o título de adiantamento terá movimentação bancária gerada automaticamente, após sua inclusão no financeiro.

Caso negativo, o parâmetro deve ser passado para a função A050ManSe2(), porém seu conteúdo deverá ser .F., para que o título de adiantamento não tenha movimentação bancária gerada automaticamente.

A240AtuSDG()

7.  Tratamento Função A050MANSE2()

Na função 050MANSE2(), deverá ser definido um novo parâmetro da função que indicará se o título de PA terá movimentação bancária.

O default deste parâmetro será .T..

A050MANSE2()

8. Tratamento Função FINA050()

No Fina050 receber o novo parâmetro passado pela 050MANSE2, o default do parâmetro deverá ser .T..

Caso o conteúdo do parâmetro seja .F., os perguntes mv_par09 e mv_par05 deverão ter o conteúdo 2.

Desta forma, não será gerada movimentação bancária para o PA.

Caso o parâmetro esteja .T., os perguntes mV_par09 e mv_par05, não serão alterados. 

FINA050()