Histórico da Página

//Exemplo de implementação da função de envio de documento no RdMake (pdfpara o GRR

//Função para resgatar os documentos vinculados ao título
Static Function GetAnexo(cNF)

Local aAnexos := {}
Local aBol := {}
Local i         := 0
Local cUrlGRR := GRRGetUrlBankSlip()

// Busca arquivo PDF da nota fiscal
If File(cDirNFSE+"\NF_"+cNF+".pdf") // Se arquivo de NF existe
// Copia para servidor
CpyT2S(cDirNFSE+"\NF_"+cNF+".pdf",cDirSrv)

// Copia da NF para pasta do GRR
CpyT2S(cDirNFSE+"\NF_"+cNF+".pdf",cUrlGRR)

If File(cDirSrv+"\NF_"+cNF+".pdf")
aAdd(aAnexos,cDirSrv+"\NF_"+cNF+".pdf")
lNf := .T.
Endif
Endif

// Verifica os arquivos do diretório
aBol := Directory(cDirBol+"\BOL_"+cNF+"*.PDF")

For i := 1 To Len(aBol)
If "BOL_"+cNF $ aBol[i][1] // Se nome de arquivo contém número de NF
// Busca arquivo PDF do boleto
If File(cDirBol+"\"+aBol[i][1]) // Se arquivo de NF existe
// Copia para servidor
CpyT2S(cDirBol+"\"+aBol[i][1],cDirSrv)

// Copia para servidor
CpyT2S(cDirBol+"\"+aBol[i][1],cUrlGRR)

If File(cDirSrv+"\"+aBol[i][1])
aAdd(aAnexos,cDirSrv+"\"+aBol[i][1])
lBol := .T.
Endif
Endif
Endif
Next

Return aAnexos

//Pega o caminho do boleto
Local cUrlGRR := GRRGetUrlBankSlip()

// Copia da NF para pasta do GRR
CpyT2S(cDirNFSE+"\NF_"+cNF+".pdf",cUrlGRR)