F050DOCS - Após gravação da manutenção dos documentos vinculados ao título -- 108970

Ponto de entrada após gravar a manutenção dos documentos vinculados ao título a pagar.Não possui retorno.

FINA050.PRX

F050DOCS - Após gravação da manutenção dos documentos vinculados ao título ( [ cChave ], [ aCols ], [ aHeader ] )

(nulo)

User Function F050Docs()Local cChave	:= PARAMIXB[1]		//Chave do registro (título a pagar) da tabela SE2 Local aCols	:= PARAMIXB[2]		//Array com as linhas (aCols) dos registros gravados na tabela FRDLocal aHeader	:= PARAMIXB[3]		//Array com as colunas (aHeader) dos campos dos registros gravados na tabela FRDLocal aArea	:= {}Local aAreaSE2	:= {}Local nX	:= 0Local cDado	:= ""aArea := GetArea()		//Guarda a area ativaIf Select("SE2") > 0	aAreaSE2 := SE2->(GetArea())		//Guarda a area da tabela SE2, caso a mesma esteja abertaEndIfdbSelectArea("SE2")dbSetOrder(1)		//E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJAIf dbSeek(cChave)	MsgAlert("Registro encontrado - SE2! "+cChave)EndIfMsgAlert("Registro gravado - FRD:")//Exibe uma mensagem para cada coluna/linha que foi gravada na tabela FRDFor nX := 1 To Len(aHeader)	Do Case			Case ValType(aCols[nX]) == "D"			cDado := "Campo: "+aHeader[nX]+" Dado: "+DtoS(aCols[nX])		Case ValType(aCols[nX]) == "N"			cDado := "Campo: "+aHeader[nX]+" Dado: "+cValToChar(aCols[nX])		Case ValType(aCols[nX]) == "C"			cDado := "Campo: "+aHeader[nX]+" Dado: "+aCols[nX]		Otherwise			nX++			Loop	EndCase	MsgAlert(cDado)	Next nXReturn()