Histórico da Página
...
Existe um ponto de entrada disponível no TECA700 (AT700PRO) que pode ser utilizado para customizações. Abaixo encontra-se um link com a documentação e um exemplo prático de como fazer exemplo que fará com que o conteúdo do campo memo ir automaticamente para a Ordem de serviço utilizando o ponto de entrada."notas" do grid da etapa do projeto (tabela ABI) seja inserido automaticamente no campo "Obs. Ocorrenc" da ordem de serviço (tabela AB7) gerada após a programação do projeto.
Exemplo de ponto de entrada:
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 |
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas