Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function AT700PRO()
Local cTexto := ""
Local cSeekABI := ""
Local aAreaAB7 := AB7->(GetArea())
Local aAreaABI := ABI->(GetArea())
ABI->(DbSelectArea(aAreaABI))
ABI->(DbSetOrder(1))
cSeekABI := xFilial("ABI") + ABH->ABH_PROJET
If ABI->(DbSeek(cSeekABI))
While !ABI->( Eof() ) .And. cSeekABI == ABI->ABI_FILIAL + ABI->ABI_PROJET //Cada ABH pode ter mais de uma ABI
cTexto := MSMM(ABI->ABI_CODMEM,,,,3,,,,) //retorna o campo Memo da ABI
AB7->(DbSelectArea(aAreaAB7))
AB7->(DbSetOrder(1))
AB7->(DbSeek(xFilial("AB7") + ABI->ABI_NUMOS))
RecLock( "AB7", .F. )
MSMM(AB7->AB7_MEMO1,,,cTexto,1,,,"AB7","AB7_MEMO1") //grava o campo memo da ABI na AB7
AB7->( MsUnlock() )
RestArea(aAreaAB7)
ABI->( DbSkip() )
EndDo
EndIf
RestArea(aAreaABI)
Return |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas