Histórico da Página

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