//Exemplo de implementação da função de envio de documento para o GRR
//Função para resgatar os documentos vinculados a NF
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) | 