Histórico da Página

...

Local cEscrit    := "RJ   "

cDEFPRD := ParamIXB[1, 2] + ';' //vpiCodUser
cDEFPRD += ParamIXB[1, 3] + ';' //vpiNumFatura
cDEFPRD += ParamIXB[1, 4] + ';' //vpiOrganizacao
cDEFPRD += ParamIXB[1, 5] + ';' //vpcNoSocioFatura
cDEFPRD += ParamIXB[1, 6] + ';' //vpiCliente
cDEFPRD += ParamIXB[1, 7] + ';' //vpcPreFaturaMinuta
cDEFPRD += ParamIXB[1, 8] + ';' //vpcExibirLogo
cDEFPRD += ParamIXB[1, 9] + ';' //vpcDadosDeposito
cDEFPRD += ParamIXB[1,10] + ';' //vpcContraApresentacao
cDEFPRD += Iif(FunName() == "JURA204","N",ParamIXB[1,11]) + ';' //vpcFaturaRateada
cDEFPRD += ParamIXB[1,17] + ';' //vpcAssinaturaEletron
cDEFPRD += ParamIXB[1,18] + ';' //vpcRedator

lSepPrd := ChkPrdRJ(ParamIXB[1, 4], ParamIXB[1, 3])

If lSepPrd

        cMODCAR := AllTrim(Posicione("NXA",1,xFilial("NXA") + ParamIXB[1, 4] + ParamIXB[1, 3] ,"NXA_CCARTA"))
        cMODCAR := AllTrim(Posicione("NRG",1,xFilial("NRG") + cMODCAR, "NRG_ARQ"))
        cMODCAR := Iif(Empty(cMODCAR),"JU203A",IIf(At(".",cMODCAR) > 0,SubStr(cMODCAR,1,At(".",cMODCAR) - 1),cMODCAR))
     
        cParams := cDEFPRD + StrTran(ParamIXB[1,20],";C;",";" + cEscrit + ";")

        If ParamIXB[1,19] <> "4" .And. ParamIXB[1,19] <> "2"
            CallCrys(cMODCAR, cParams, ParamIXB[1,1] + cArquivo + "-" + IIf(cEscrit == "RJ", "2", "1"), .T., .F.) // Exexuta relatório em Crystal Reports (Customizado)
        EndIf

EndIf
   
RestArea(aAREATU)

Return Nil

//-------------------------------------------------------------------
/*/{Protheus.doc} ChkPrdRJ
Verifica se o cliente da fatura utiliza a configuracao de separar a
producao do RJ
 
@Param cCodEscr   - Codigo do Escritorio da Fatura
               cNumFatura - Numero da Fatura

/*/
//-------------------------------------------------------------------
Static Function ChkPrdRJ(cCodEscr, cNumFatura)
Local aArea  := GetArea()
Local cChave := ""
Local lRet   := .T.

cChave := xFilial("NXA") + PadR(cCodEscr  ,TamSX3("NXA_CESCR")[1]) + PadR(cNumFatura,TamSX3("NXA_COD")[1])

NXA->(DbSetOrder(1)) //NXA_FILIAL + NXA_CESCR + NXA_COD

If lRet := NXA->( DbSeek(cChave) )

NUH->(DbSetOrder(1)) //NUH_FILIAL + NUH_COD + NUH_LOJA

    If lRet := ( NUH->( DbSeek(xFilial("NUH")+NXA->NXA_CLIPG+NXA->NXA_LOJPG) )
        lRet := (AllTrim(NUH->NUH_CESCR) == "RJ")
    EndIf
EndIf

RestArea(aArea)
Return lRet

...