#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"

User Function EXEC103()

Local aCab := {}
Local aItem := {}
Local aItens := {}
//Local aAutoImp := {}
Local aItensRat := {}
Local aCodRet := {}
Local aParamAux := {}
Local nOpc := 3
//Local nI := 0
Local nX := 0
//Local nReg := 1
Local cNum := ""

Conout("Inicio: " + Time())

Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "COM"

cNum := GetSxeNum("SF1","F1_DOC")
SF1->(dbSetOrder(1))
While SF1->(dbSeek(xFilial("SF1")+cNum))
ConfirmSX8()

cNum := GetSxeNum("SF1","F1_DOC")
EndDo

//cSerie := "01"
//cNum   := NxtSX5Nota(cSerie)

cNum := "017072024"
cSerie := "002"
cForn:= "000001"
cLja:= "01"

///Cabeçalho
//SF1->(dbSetOrder(1)) //F1_FILIAL, F1_DOC, F1_SERIE, F1_FORNECE, F1_LOJA, F1_TIPO, R_E_C_N_O_, D_E_L_E_T_
//If SF1->(DbSeek(xFilial('SF1')+cNum+cSerie+cForn+cLja)) 

aadd(aCab,{"F1_TIPO" ,"D" ,NIL})
aadd(aCab,{"F1_FORMUL" ,"N" ,NIL})
aadd(aCab, {"F1_DOC" , cNum, NIL})
aadd(aCab,{"F1_SERIE" ,cSerie,NIL})
aadd(aCab,{"F1_EMISSAO" ,DDATABASE ,NIL})
aadd(aCab,{"F1_DTDIGIT" ,DDATABASE ,NIL})
aadd(aCab, {"F1_FORNECE",cForn, NIL})
aadd(aCab, {"F1_LOJA" , cLja, NIL})
aadd(aCab,{"F1_ESPECIE" ,"NFE  " ,NIL})
aadd(aCab,{"F1_COND" ,"001" ,NIL})
aadd(aCab,{"F1_DESPESA" ,0 ,NIL})
aadd(aCab,{"F1_MOEDA" , 1 ,Nil})
aadd(aCab,{"F1_TXMOEDA" , 1 ,Nil})
aadd(aCab,{"F1_STATUS" , "A" ,Nil})
//aadd(aCab,{"E2_NATUREZ" , "001       " ,Nil}) //NECESSÁRIO PARA O CÁLCULO DO IRRF!!!!!*/
//ENDIF

//Itens
For nX := 1 To 1
          aItem := {}
          aadd(aItem,{"D1_ITEM" ,StrZero(nX,4) ,NIL})
          aadd(aItem,{"D1_COD" ,"MP-0025",NIL})
          aadd(aItem,{"D1_UM" ,"UN" ,NIL})
          aadd(aItem,{"D1_LOCAL" ,"01" ,NIL})
          //aAdd(aItem,{"D1_PEDIDO","000130",Nil})
          //aAdd(aItem,{"D1_ITEMPC","0001",Nil})
          aadd(aItem,{"D1_QUANT" ,10,NIL})
          aadd(aItem,{"D1_LOTECTL" ,"ABC003",NIL})
          aadd(aItem,{"D1_VUNIT" ,1,NIL})
          aadd(aItem,{"D1_TOTAL" ,10,NIL})
          aadd(aItem,{"D1_TES" ,"001" ,NIL})
          aadd(aItem,{"D1_NFORI" ,"000110" ,NIL})
          aadd(aItem,{"D1_SERIORI" ,"1" ,NIL})
          aadd(aItem,{"D1_ITEMORI" ,"01" ,NIL})
          aadd(aItem,{"D1_NUMLOTE" ,"000012" ,NIL})
          //aadd(aItem,{"D1_RATEIO" ,"1" ,NIL})
          //aAdd(aItem,{"D1_CC" ,"02" ,Nil})
          //aadd(aItens,aItem)
          //aadd(aItens[Len(aItens)], {'D1_PEDIDO ', '000085' ,}) // Número do Pedido de Compras
          //aadd(aItens[Len(aItens)], {'D1_ITEMPC ', '0001' ,}) // Item do Pedido de Compras

         if(nOpc == 4)//Se for classificação deve informar a variável LINPOS

              aAdd(aItem, {"LINPOS" , "D1_ITEM",  StrZero(nX,4)}) //ou SD1->D1_ITEM  se estiver posicionado.

        endIf

       aAdd(aItens,aItem)
Next nX

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//3-Inclusão / 4-Classificação / 5-Exclusão ---- COM TELA    |
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
MSExecAuto({|x,y,z,k,a,b| MATA103(x,y,z,,,,k,a,,,b)},aCab,aItens,nOpc,aParamAux,aItensRat,aCodRet)

If !lMsErroAuto

 Else

MostraErro()

ConOut("Erro na inclusao!")

EndIf

ConOut("Fim: " + Time())

//RESET ENVIRONMENT

RETURN