http://tdn.totvs.com/pages/viewpage.action?pageId=229769259

• A NF de Origem (NF de entrada) deve estar devidamente lançada nos documentos de Entrada como Tipo Beneficiamento. O campo
• O TES deve controlar Poder de Terceiro caracterizando a Remessa do Cliente/Fornecedor à sua empresa (F4_PODER3 = Remessa);
• A entrada deverá alimentar corretamente os campos D1_IDENTB6 e B6_IDENT
• O TES utilizado na Nota de Entrada deve possuir em seu cadastro o TES compatível, de Saída, caracterizando a Devolução (registrar no F4_TESDV);
• O TES registrado no campo F4_TESDV também deve controlar Poder de Terceiro caracterizando o Retorno de sua empresa ao Cliente/Fornecedor (F4_PODER3 = Devolução);
• O CFOP da NF de Entrada deve ser um CFOP que caracteriza operação de remessa;
• As tabelas SC6 - Itens do PV, SC9 - Liberação e SD2 - Itens Doc. de Saída, não devem conter registros com o campo "XX_NFORI" preenchido para a NF/Item/Quantidade em questão consumindo todo o saldo; caso contrário, o sistema irá associar que já fora realizada a Devolução (Já há outro Pedido de Venda para Devolução dessa Nota) e o processo não será devidamente realizado;
• O ambiente deve estar atualizado conforme Portal do Cliente para contemplar as últimas correções realizadas nos Fontes envolvidos no processo.
  
  Lembrando que que é sumo importância que seja passado no Array os campos (D1_IDENTB6,B6_IDENT) além da nota fiscal de origem e item da nota também .
  
  

  #INCLUDE"PROTHEUS.CH"
  #INCLUDE"TBICONN.CH"
  User Function MyMata103R()
  Local aCabec := {}
  Local aItens := {}
  Local aLinha := {}
  Local cDoc := '1300134 '
  Local dDataBase
  
  Private lMsHelpAuto := .T.
  PRIVATE lMsErroAuto := .F.

  
  

  PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM" TABLES "SF1","SD1","SA1","SA2","SB1","SB2","SF4"
  DbSelectArea("SF1")
  DbSetOrder(1)

  // F1_FILIAL + F1_DOC + F1_SERIE + F1_FORNECE + F1_LOJA + F1_TIPO
  MsSeek(FwXFilial("SF1" + "1300134" + "01 "+ "001 " + "01" + "N"))

  //dbSelectArea("SF1")
  //dbSetOrder(1)

  //If !SF1->(MsSeek(xFilial("SF1")+"1300134",.T.)) //Verificar a existência do fornecedor

  aadd(aCabec,{"F1_TIPO" ,"N",Nil})
  aadd(aCabec,{"F1_FORMUL" ,"N",Nil})
  aadd(aCabec,{"F1_DOC" ,cDoc,Nil})
  aadd(aCabec,{"F1_SERIE" ,"01 ",Nil})
  aadd(aCabec,{"F1_EMISSAO",dDataBase,Nil})
  aadd(aCabec,{"F1_FORNECE","001 "})
  aadd(aCabec,{"F1_LOJA" ,"01",Nil})
  aadd(aCabec,{"F1_ESPECIE","NF ",Nil})
  aadd(aCabec,{"F1_COND","03 ",Nil})
  aadd(aCabec,{"F1_DESPESA" ,10,Nil})
  aadd(aCabec,{"E2_NATUREZ","500 ",Nil})
  
  
  
  aadd(aLinha,{'D1_NFORI',"0000134",NIL})
  aadd(aLinha,{'D1_ITEMORI','0001',NIL})
  aadd(aLinha,{'D1_SERIORI',"01 ",NIL})
  aadd(aLinha,{'D1_COD',"P001 ",NIL})
  aadd(aLinha,{'D1_UM','UN',NIL})
  aadd(aLinha,{"D1_QUANT",1,Nil})
  aadd(aLinha,{"D1_VUNIT",150,Nil})
  aadd(aLinha,{'D1_NFORI',"0000134",NIL})
  aadd(aLinha,{'D1_ITEMORI','0001',NIL})
  aadd(aLinha,{'D1_SERIORI',"01 ",NIL})
  aadd(aLinha,{"D1_IDENTB6",'000090',NIL})
  aadd(aLinha,{'D1_DESC',15,NIL})
  aadd(aLinha,{'D1_DESPESA',350,NIL})
  aadd(aLinha,{'D1_SEGURO',100,NIL})
  aadd(aLinha,{"D1_TOTAL",150,Nil})
  aadd(aLinha,{"D1_TES",'500',NIL})
  aadd(aLinha,{"D1_CF",'1101 ',NIL})
  aadd(aItens,aLinha)
  MSExecAuto({|x,y,z| mata103(x,y,z)},aCabec,aItens,4)

  If !lMsErroAuto
  ConOut(OemToAnsi("Incluido com sucesso! ")+cDoc)
  Else
  ConOut(OemToAnsi("Erro na inclusao!"))
  MOSTRAERRO()
  EndIf
  ConOut(OemToAnsi("Fim : ")+Time())

  RESET ENVIRONMENT
  Return(.T.)