Histórico da Página

...

#include 'protheus.ch'
#include 'FWMVCDEF.CH'
#include 'parmtype.ch'

User Function PLATVASS()
       Local aRet := Paramixb[1]                                 //aRet[1] São os Códigos RGI que o sistema buscou no módulo Ativo (N1_CODRGI)                aRet[2] Traz do Ativo se ele é ou não Próprio       aRet[3] Esta informação que manipulamos abaixo.
       Local aRetAux:= {'5648','8547','3252'}              //Array com os códigos RGI que são assistenciais informados pelo cliente.
       Local nI := 0

...

2) Após ter a realizado a contabilização com as contas acima, rodamos o Extrator "Migr PLS para Central" (PLSDIOPSPL) o sistema exportará a movimentação de títulos à pagar que atendam os seguintes critérios:

- Composição dos itens das guias relacionados com títulos à pagar; BD7_CHKSE2 = E2_FILIAL + '|' + E2_PREFIXO + '|' + E2_NUM + '|' + E2_PARCELA + '|' + E2_TIPO + '|' + E2_FORNECE + '|' + E2_LOJA

- Data de conhecimento da guia menor ou igual a data limite do trimestre; BD7_DTDIGI <= Último dia do Trimestre

- Situação da guia diferente de bloqueado (‘2’);          BD7_SITUAC <> '2'

- Bloqueio de pagamento diferente de bloqueado (‘1’);

...

- Relacionamento do contrato do beneficiário com o tipo de contrato, sendo que o tipo de contrato à considerar são os tipos 2 (Col.Empresarial) e 3 (Col.Adesão).

SELECT BD7.R_E_C_N_O_ AS RECEVE,SE2.R_E_C_N_O_ AS RECTIT,BD7_VLRPAG AS VALOR,BII_TIPPLA,BT5_AGR309,'P' AS TIPO,CV3_VLR01,CV3_DC,CV3_DEBITO,CV3_CREDIT,BD7_CODPLA,BD7_OPEUSR FROM SE2990 SE2
INNER JOIN BD7990 BD7 ON BD7_FILIAL = ' ' AND BD7_CHKSE2 = E2_FILIAL + '|' + E2_PREFIXO + '|' + E2_NUM + '|' + E2_PARCELA + '|' + E2_TIPO + '|' + E2_FORNECE + '|' + E2_LOJA AND BD7_SITUAC <> '2' AND BD7_DTDIGI <= '20210930' AND BD7.D_E_L_E_T_ = ' '
INNER JOIN CV3990 CV3 ON CV3_FILIAL = '01' AND CV3.CV3_TABORI = 'BD7' AND CV3.CV3_RECORI = BD7.R_E_C_N_O_ AND CV3.D_E_L_E_T_ = ' '
INNER JOIN CT2990 CT2 ON CT2.R_E_C_N_O_ = CV3.CV3_RECDES AND CT2.D_E_L_E_T_ = ' '
INNER JOIN BT5990 BT5 ON BT5_FILIAL=' ' AND BT5_CODINT=BD7.BD7_OPEUSR AND BT5_CODIGO=BD7.BD7_CODEMP AND BT5_NUMCON=BD7.BD7_CONEMP AND BT5_VERSAO=BD7.BD7_VERCON AND BT5_INFANS = '1' AND BT5.D_E_L_E_T_ = ' '
INNER JOIN BII990 BII ON BII_FILIAL=' ' AND BII_CODIGO=BT5.BT5_TIPCON AND BII_TIPPLA IN ('2' , '3') AND BII.D_E_L_E_T_ = ' ' WHERE E2_FILIAL = '01' AND E2_TIPO NOT IN ('AB-','CF-','CS-','FC-','FE-','FU-','I2-','IM-','IN-','IR-','IS-','PI-','FC-','FE-','IR-','IN-') AND SE2.E2_EMISSAO BETWEEN '20210701' AND '20210930' AND SE2.D_E_L_E_T_ = ' ' AND BD7_FILIAL = ' ' AND BD7_SITUAC <> '2' AND BD7_BLOPAG <> '1' AND BD7_DTDIGI > ' ' AND BD7_DTDIGI <= '20210930' AND BD7.D_E_L_E_T_ = ' ' ORDER BY TIPO, BII_TIPPLA, BT5_AGR309, RECTIT, RECEVE

Na sequência, o sistema exportará a movimentação de títulos à receber que atendam os seguintes critérios:

...