Requisição RE5 Ponto de Entrada MT103IPC - SIGAPMS
O Exemplo a seguir pode ser utilizado para apontar automaticamente o projeto que foi selecionado na solicitação de compras, sem a necessidade do usuário apontar novamente. A necessidade deste ponto de entrada se deve ao fato do usuário poder selecionar (no produto padrão ) se o item da NF de entrada vai ser requisitado automaticamente ao projeto ou não. Ou seja, no produto padrão quando uma NF de Entrada é digitada, o sistema entende que a mesma terá entrada primeiramente no estoque para posterior requisição, mesmo que a Solicitação de Compras ou o Contrato tenha sido apontado ao Projeto. O sistema apenas requisita e custeia o projeto na entrada da NF se o usuário apontar o projeto atrávés do botão na barra de ferramentas ( por item ). Com este ponto de entrada compilado, o sistema faz a alimentação automática destas informações de acordo com os projetos / tarefas apontadas na Solicitação de Compras;ou no Contrato de Parceria. Com pequenas alterações neste exemplo pode-se também incluir alertas ou perguntas nesta customização questionando ao usuário se ele deseja enviar a mercadoria ao estoque para posterior requisição ( e custeio do projeto ), ou fazer a requisição no momento da entrada (que é o default do exemplo).
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
User Function MT103IPC()Local n := ParamIXB[1]
Local nPosItem := aScan(aHeader,{|x| Alltrim(x[2]) == 'D1_ITEM'})
Local aSavCols := aClone(aCols)
Local aSavHeader := aClone(aHeader)
Local nPosRat := aScan(aRatAFN,{|x| x[1] == aCols[n][nPosItem]})
aHeader := {}
If nPosRat == 0
aAdd(aRatAFN,{aCols[n][nPosItem],{}})
nPosRat := Len(aRatAFN)
Else
aRatAFN[nPosRat][2] := {}
EndIf
If !Empty(SC7->C7_NUMSC)
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Montagem do aHeader ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea('SX3')
dbSetOrder(1)
MsSeek('AFN')
While !EOF() .And. (x3_arquivo == 'AFN')
IF X3USO(x3_usado) .AND. cNivel >= x3_nivel
AADD(aHeader,{ TRIM(x3titulo()), x3_campo, x3_picture,;
x3_tamanho, x3_decimal, x3_valid,;
x3_usado, x3_tipo, x3_arquivo,x3_context } )
Endif
If AllTrim(x3_campo) == 'AFN_QUANT'
nPosPerc := Len(aHeader)
EndIf
dbSkip()
End
If ( !Empty(SC7->C7_NUMSC) )
If ( SC7->C7_TIPO==1 )
If ( Empty(SC7->C7_NUMCOT) )
dbSelectArea('SC1')
dbSetOrder(1)
If MsSeek(xFilial('SC1')+SC7->C7_NUMSC+SC7->C7_ITEMSC)
dbSelectArea('AFG')
dbSetOrder(2)
MsSeek(xFilial()+SC1->C1_NUM+SC1->C1_ITEM)
nPosRat := aScan(aRatAFN,{|x| x[1] == aCols[n][nPosItem]})
While !Eof() .And. xFilial()+SC1->C1_NUM+SC1->C1_ITEM==;
AFG_FILIAL+AFG_NUMSC+AFG_ITEMSC
If AFG->AFG_REVISA==PmsAF8Ver(AFG->AFG_PROJET)
aADD(aRatAFN[nPosRat][2],Array(Len(aHeader)+1))
For ny := 1 to Len(aHeader)
Do Case
Case Alltrim(aHeader[ny][2]) == 'AFN_PROJET'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_PROJET
Case Alltrim(aHeader[ny][2]) == 'AFN_TAREFA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_TAREFA
Case Alltrim(aHeader[ny][2]) == 'AFN_REVISA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_REVISA
Case Alltrim(aHeader[ny][2]) == 'AFN_QUANT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_QUANT
Case Alltrim(aHeader[ny][2]) == 'AFN_TRT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_TRT
EndCase
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][Len(aHeader)+1] := .F.
Next ny
EndIf
dbSelectArea('AFG')
dbSkip()
End
EndIf
Else
dbSelectArea('SC8')
dbSetOrder(3)
If MsSeek(xFilial('SC8')+SC7->C7_NUMCOT+SC7->C7_PRODUTO+SC7->C7_FORNECE+SC7->C7_LOJA+SC7->C7_NUM+SC7->C7_ITEM)
dbSelectArea('SC1')
dbSetOrder(5)
MsSeek(xFilial('SC1')+SC8->C8_NUM+SC8->C8_PRODUTO+SC8->C8_IDENT)
While ( !Eof() .And. xFilial('SC1') == SC1->C1_FILIAL .And.;
SC8->C8_NUM == SC1->C1_COTACAO .And.;
SC8->C8_PRODUTO == SC1->C1_PRODUTO .And.;
SC8->C8_IDENT == SC1->C1_IDENT )
dbSelectArea('AFG')
dbSetOrder(2)
MsSeek(xFilial()+SC1->C1_NUM+SC1->C1_ITEM)
While !Eof() .And. xFilial()+SC1->C1_NUM+SC1->C1_ITEM==;
AFG_FILIAL+AFG_NUMSC+AFG_ITEMSC
If AFG->AFG_REVISA==PmsAF8Ver(AFG->AFG_PROJET)
aADD(aRatAFN[nPosRat][2],Array(Len(aHeader)+1))
For ny := 1 to Len(aHeader)
Do Case
Case Alltrim(aHeader[ny][2]) == 'AFN_PROJET'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_PROJET
Case Alltrim(aHeader[ny][2]) == 'AFN_TAREFA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_TAREFA
Case Alltrim(aHeader[ny][2]) == 'AFN_REVISA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_REVISA
Case Alltrim(aHeader[ny][2]) == 'AFN_QUANT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_QUANT
Case Alltrim(aHeader[ny][2]) == 'AFN_TRT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFG->AFG_TRT
EndCase
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][Len(aHeader)+1] := .F.
Next ny
EndIf
dbSelectArea('AFG')
dbSkip()
End
dbSelectArea('SC1')
dbSkip()
EndDo
EndIf
EndIf
Else
dbSelectArea('SC3')
dbSetOrder(1)
If MsSeek(xFilial('SC3')+SC7->C7_NUMSC+SC7->C7_ITEMSC)
dbSelectArea('AFL')
dbSetOrder(2)
MsSeek(xFilial()+SC3->C3_NUM+SC3->C3_ITEM)
nPosRat := aScan(aRatAFN,{|x| x[1] == aCols[n][nPosItem]})
While !Eof() .And. xFilial()+SC3->C3_NUM+SC3->C3_ITEM==;
AFL_FILIAL+AFL_NUMCP+AFL_ITEMCP
If AFL->AFL_REVISA==PmsAF8Ver(AFL->AFL_PROJET)
aADD(aRatAFN[nPosRat][2],Array(Len(aHeader)+1))
For ny := 1 to Len(aHeader)
Do Case
Case Alltrim(aHeader[ny][2]) == 'AFN_PROJET'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFL->AFL_PROJET
Case Alltrim(aHeader[ny][2]) == 'AFN_TAREFA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFL->AFL_TAREFA
Case Alltrim(aHeader[ny][2]) == 'AFN_REVISA'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFL->AFL_REVISA
Case Alltrim(aHeader[ny][2]) == 'AFN_QUANT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFL->AFL_QUANT
Case Alltrim(aHeader[ny][2]) == 'AFN_TRT'
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][ny] := AFL->AFL_TRT
EndCase
aRatAFN[nPosRat][2][Len(aRatAFN[nPosRat][2])][Len(aHeader)+1] := .F.
Next ny
EndIf
dbSelectArea('AFL')
dbSkip()
End
EndIf
EndIf
EndIf
EndIf
aCols := aClone(aSavCols)
aHeader := aClone(aSavHeader)
Return
Nível 1 (Acesso Clientes)
Inglês
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas