Complementa gravação de Títulos a Pagar

Exemplo da Rotina:

User Function MT100GE2()
	//Tratativas
Return

Exemplo 1- Gravando informações no Título, conforme Doc de Entrada:

User Function MT100GE2()
	Local aArea    := GetArea()
	Local aAreaSD1 := SD1->(GetArea())
	
	DbSelectArea('SE2')
	DbSelectArea('SD1')
	SD1->(DbSetOrder(1))
	SD1->(DbGoTop())
	
	//Posiciona no primeiro item do documento de entrada
	If SD1->(DbSeek(FWxFilial("SD1") + SF1->(F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA)) )
		RecLock("SE2", .F.)
			SE2->E2_X_CAMPO := SD1->D1_X_CAMPO
		SE2->(MsUnLock())
	EndIf

	RestArea(aAreaSD1)
	RestArea(aArea)
Return

Observações:

• Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
• Se tiver sugestões de rotinas, pode entrar em contato;
• Exemplo enviado por Cássio Winkler;

Referências:

• TDN