Histórico da Página

...

02. DESCRIÇÃO

Este ponto de entrada deve ser é utilizado no momento de da emissão de fatura ou no momento de refazer a da carta da fatura, para executar a impressão de um relatório de carta de fatura customizado.

...

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.) // Executa 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")
cChave + = PadR(cCodEscr  ,TamSX3("NXA_CESCR")[1])
cChave += 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 := NXA( NUH->( DbSeek(xFilial(cChave) )
    cChave := "NUH")+NXA->NXA_CLIPG  //deve considerar o cliente do título
    cChave += NXA->NXA_LOJPG
   
    If lRet := ( NUH->( DbSeek(xFilial("NUH")+cChave) )
        lRet := (AllTrim(NUH->NUH_CESCR) == "RJ")
    EndIf
Else
    ConOut("Fatura Não localizada: '"+ cChave + "'" )  
EndIf

RestArea(aArea)
Return lRet

...