OM430FIM Verificações no final do Processo de Transferência e Transferência Agrupada da Rotina Transf. de Pecas (OFIOM430)

Descrição:

Este Ponto de Entrada será executado na rotina Transf. de Pecas (OFIOM430) e permite criar verificações no final do processo de Transferência e Transferência Agrupada.

Eventos:

lRet := FS_GERATRANS(@aItensNew,@aParam)

If lRet

// MsgInfo("Movimentação efetuada com sucesso" + Chr(13) + Chr(13) + "Da Filial : "+aItens[nLinha,2] + Chr(13)+ "Para Filial : "+cFilialAte+ Chr(13) +"Notas Saida/Serie : "+cNumNotaFis+" "+cSerisFis+ Chr(13)+"Notas de Entrada/Serie :"+cNumNotaFis+" "+cSerisFis+ Chr(13)+"",STR0084)

if ! lAutoE

MsgInfo(STR0040)

endIf

dbSelectArea("VS1")

RecLock("VS1",.f.)

VS1->VS1_STATUS := "X"

VS1->VS1_NUMNFI := SF2->F2_DOC

VS1->VS1_SERNFI := SF2->F2_SERIE

MsUnlock()

DBSelectArea("SF2")

reclock("SF2",.f.)

cPrefAnt := SF2->F2_PREFIXO

SF2->F2_PREFORI := cPrefBAL

cPrefNF := &(GetNewPar("MV_1DUPREF","cSerie"))

SF2->F2_PREFIXO := cPrefNF

msunlock()

If !Empty(SF2->F2_DUPL)

cQuery := "SELECT SE1.R_E_C_N_O_ RECSE1 "

cQuery += "FROM "+RetSqlName("SE1")+" SE1 "

cQuery += "WHERE SE1.E1_FILIAL='"+xFilial("SE1")+"' AND SE1.E1_PREFIXO = '"+cPrefAnt+"' AND SE1.E1_NUM = '"+SF2->F2_DUPL+"' AND "

cQuery += "SE1.D_E_L_E_T_=' '"

dbUseArea( .T., "TOPCONN", TcGenQry( ,, cQuery ), cAliasSE1, .F., .T. )

While ( cAliasSE1 )->(!Eof())

DbSelectArea("SE1")

DbGoTo(( cAliasSE1 )->RECSE1)

RecLock("SE1",.f.)

SE1->E1_PREFIXO := SF2->F2_PREFIXO

SE1->E1_PREFORI := SF2->F2_PREFORI

msunlock()

( cAliasSE1 )->(DbSkip())

Enddo

( cAliasSE1 )->( dbCloseArea() )

EndIf

dbSelectArea("VS1")

If FindFunction("FM_GerLog")

//grava log das alteracoes das fases do orcamento

FM_GerLog("F",VS1->VS1_NUMORC)

EndIF

Endif

//

If ExistBlock("OM430FIM")

ExecBlock("OM430FIM",.f.,.f.,{lRet})

EndIf

//

Return lRet

Função:

OM430GeraNF()