Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Localização:

Atualizações \ Mov Pecas \ Transf. de Pecas (OFIOM430)

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

Programa Fonte:

OFIOM430.PRW

Função:

OM430GeraNF()

Parâmetros:
NomeTipoDescrição
lRetLógico

.T. - processo de Transferência ocorreu corretamente 

.F. - houve problema no processo de Transferência

Retorno:

N/A

Exemplo:

Include totvs.ch

// PONTO DE ENTRADA CHAMADO NO FINAL DO PROCESSO DE TRANSFERENCIA SIMPLES E AGRUPADA

//

User Function OM430FIM()

Local lTrfOk := ParamIxb[1] // .T. -> Processo de Transferência ocorreu corretamente | .F. -> Ocorreu erro no Processo de Transferência


If lTrfOk

MsgInfo("Processo de Transferência executado com sucesso!")

Else

MsgInfo("Falha no Processo de Transferência!")

Endif


Return