import.css=/download/attachments/327912/newLayout.css |
Ponto-de-Entrada: F050DOCS - Após gravação da manutenção dos documentos vinculados ao título
Descrição:
Ponto de entrada após gravar a manutenção dos documentos vinculados ao título a pagar.Não possui retorno.
Programa Fonte
FINA050.PRX
Sintaxe
F050DOCS - Após gravação da manutenção dos documentos vinculados ao título ( [ cChave ], [ aCols ], [ aHeader ] )
Parâmetros:
Retorno
Exemplos
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()
Variáveis
|