PE - MA960DUP - Cria Duplicata no Contas a Pagar na geração da GNRE

User Function MA960DUP()
    Local cAlias     := "SF6"
    Local cNatureza  := ""
    Local cPref      := "UN "
    Local cTipo      := "TX "
    Local aArray     := {}
 
    Private lMsErroAuto := .F.

    //Natureza
    Do Case 
    Case (cAlias)->F6_TIPOIMP == "1"
        cNatureza := "ICMS"
    Case (cAlias)->F6_TIPOIMP == "2
        cNatureza := "ISS"
    Case (cAlias)->F6_TIPOIMP == "3"
        cNatureza := "ICMS/ST"
    Case (cAlias)->F6_TIPOIMP == "4"
        cNatureza := "FUNRURAL"
    Case (cAlias)->F6_TIPOIMP == "5"
        cNatureza := "SIMPLES FEDERAL"
    Case (cAlias)->F6_TIPOIMP == "6"
        cNatureza := "FUNDERSUL"
    Case (cAlias)->F6_TIPOIMP == "7"
        cNatureza := "SIMPLES NACIONAL"
    Case (cAlias)->F6_TIPOIMP == "8"
        cNatureza := "FUST/FUNTTEL"
    Case (cAlias)->F6_TIPOIMP == "9"
        cNatureza := "SENAR"
    EndCase

    aArray := { { "E2_PREFIXO"  , cPref                , NIL },;
                { "E2_NUM"      , (cAlias)->F6_NUMERO  , NIL },;
                { "E2_TIPO"     , cTipo                , NIL },;
                { "E2_NATUREZ"  , cNatureza            , NIL },;
                { "E2_FORNECE"  , (cAlias)->F6_CLIFOR  , NIL },;
                { "E2_EMISSAO"  , (cAlias)->F6_DTARREC , NIL },;
                { "E2_VENCTO"   , (cAlias)->F6_DTVENC  , NIL },;
                { "E2_VENCREA"  , CtoD("30/05/2020")   , NIL },;
                { "E2_VALOR"    , (cAlias)->F6_VALOR   , NIL } }

    MsExecAuto({ |x,y,z| FINA050(x,y,z) } ,aArray , ,3)  //3 - Inclusao, 4 - Alteração, 5 - Exclusão

    If lMsErroAuto
        MostraErro()
    Else
        Alert("Título incluído com sucesso!")
    Endif

Return