ID;PW2W 3000;N;E
P;PGeneral
P;FSegoe UI;M160
P;FCourier New;M160
B;Y140;X2
F;G;M255
F;W1 1 10
F;W2 2 255
F;SLRTM0;FG0C;Y1;X1
C;K"#"
F;SLRTBM0;FG0L;Y1;X2
C;K"Text"

F;SLRTBM1;FG0L;Y2;X1
C;K1
F;SLTRBM1;FG0L;Y2;X2
C;K" "
F;SLRTBM1;FG0L;Y3;X1
C;K2
F;SLTRBM1;FG0L;Y3;X2
C;K"/***************************************************************************************************************************  "
F;SLRTBM1;FG0L;Y4;X1
C;K3
F;SLTRBM1;FG0L;Y4;X2
C;K"* DESCRIÇÃO  : PROCEDURE UTILIZADA PARA SENSIBILIZAR O FINANCEIRO DA INTEGRAÇÃO DE NFE ATRAVÉS DO XML DE DISTRIBUIÇÃO       "
F;SLRTBM1;FG0L;Y5;X1
C;K4
F;SLTRBM1;FG0L;Y5;X2
C;K"* RESPONSÁVEL: MARCEL BOCHEMI       "
F;SLRTBM1;FG0L;Y6;X1
C;K5
F;SLTRBM1;FG0L;Y6;X2
C;K"* DATA       : 16/08/2010       "
F;SLRTBM1;FG0L;Y7;X1
C;K6
F;SLTRBM1;FG0L;Y7;X2
C;K"* VERSÃO     : 10.4.8.0       "
F;SLRTBM1;FG0L;Y8;X1
C;K7
F;SLTRBM1;FG0L;Y8;X2
C;K"****************************************************************************************************************************   "
F;SLRTBM1;FG0L;Y9;X1
C;K8
F;SLTRBM1;FG0L;Y9;X2
C;K"* DESCRIÇÃO  : ADEQUAÇÕES PARA INTEGRAÇÃO DE XML DE ORIGINADA DE CLIENTE "
F;SLRTBM1;FG0L;Y10;X1
C;K9
F;SLTRBM1;FG0L;Y10;X2
C;K"* RESPONSÁVEL: SARA "
F;SLRTBM1;FG0L;Y11;X1
C;K10
F;SLTRBM1;FG0L;Y11;X2
C;K"* DATA       : 14/07/2016 "
F;SLRTBM1;FG0L;Y12;X1
C;K11
F;SLTRBM1;FG0L;Y12;X2
C;K"* VERSÃO     : 11.10.18.0 "
F;SLRTBM1;FG0L;Y13;X1
C;K12
F;SLTRBM1;FG0L;Y13;X2
C;K"***************************************************************************************************************************/         "
F;SLRTBM1;FG0L;Y14;X1
C;K13
F;SLTRBM1;FG0L;Y14;X2
C;K"/*       "
F;SLRTBM1;FG0L;Y15;X1
C;K14
F;SLTRBM1;FG0L;Y15;X2
C;K"IF EXISTS (SELECT * FROM INFORMATION_SCHEMA.ROUTINES WHERE ROUTINE_NAME='SP_ERP_INSERE_FINANCEIRO_NPROC')       "
F;SLRTBM1;FG0L;Y16;X1
C;K15
F;SLTRBM1;FG0L;Y16;X2
C;K"BEGIN       "
F;SLRTBM1;FG0L;Y17;X1
C;K16
F;SLTRBM1;FG0L;Y17;X2
C;K"  DROP PROCEDURE DBO.SP_ERP_INSERE_FINANCEIRO_NPROC       "
F;SLRTBM1;FG0L;Y18;X1
C;K17
F;SLTRBM1;FG0L;Y18;X2
C;K"END       "
F;SLRTBM1;FG0L;Y19;X1
C;K18
F;SLTRBM1;FG0L;Y19;X2
C;K"*/       "
F;SLRTBM1;FG0L;Y20;X1
C;K19
F;SLTRBM1;FG0L;Y20;X2
C;K"CREATE PROCEDURE SP_ERP_INSERE_FINANCEIRO_NPROC       "
F;SLRTBM1;FG0L;Y21;X1
C;K20
F;SLTRBM1;FG0L;Y21;X2
C;K" @PCOD_EMP          INT,      /* CODIGO DA EMPRESA */       "
F;SLRTBM1;FG0L;Y22;X1
C;K21
F;SLTRBM1;FG0L;Y22;X2
C;K" @PCOD_DIV          INT,      /* CODIGO DA FILIAL */       "
F;SLRTBM1;FG0L;Y23;X1
C;K22
F;SLTRBM1;FG0L;Y23;X2
C;K" @PCOD_FORN         INT,      /* CODIGO DO FORNECEDOR / CLIENTE */       "
F;SLRTBM1;FG0L;Y24;X1
C;K23
F;SLTRBM1;FG0L;Y24;X2
C;K" @PCOD_TITULO_NPROC INT,      /* CODIGO DO TITULO NA TABELA DE FINANCEIRO NPROC */        "
F;SLRTBM1;FG0L;Y25;X1
C;K24
F;SLTRBM1;FG0L;Y25;X2
C;K" @PCOD_TITULO       INT,      /* CÓDIGO QUE TÍTULO DEVE ASSUMIR - QUANDO CONTAS A RECEBER */  "
F;SLRTBM1;FG0L;Y26;X1
C;K25
F;SLTRBM1;FG0L;Y26;X2
C;K" @PFINANC_TIPO      CHAR(1),  /* TIPO DE INTEGRAÇÃO FINANCEIRA : [P]AGAR OU [R]ECEBER */        "
F;SLRTBM1;FG0L;Y27;X1
C;K26
F;SLTRBM1;FG0L;Y27;X2
C;K" @PUSER_INC         CHAR(30), /* USUÁRIO DE INCLUSÃO */       "
F;SLRTBM1;FG0L;Y28;X1
C;K27
F;SLTRBM1;FG0L;Y28;X2
C;K" @PDT_INC           DATETIME  /* DATA DA INCLUSÃO */       "
F;SLRTBM1;FG0L;Y29;X1
C;K28
F;SLTRBM1;FG0L;Y29;X2
C;K"AS       "
F;SLRTBM1;FG0L;Y30;X1
C;K29
F;SLTRBM1;FG0L;Y30;X2
C;K"BEGIN     "
F;SLRTBM1;FG0L;Y31;X1
C;K30
F;SLTRBM1;FG0L;Y31;X2
C;K" DECLARE @VCOD_LANC  INT   "
F;SLRTBM1;FG0L;Y32;X1
C;K31
F;SLTRBM1;FG0L;Y32;X2
C;K" SELECT @VCOD_LANC=ISNULL(MAX(LANC),1) FROM CE_MOVIM WHERE COD_EMP = @PCOD_EMP       "
F;SLRTBM1;FG0L;Y33;X1
C;K32
F;SLTRBM1;FG0L;Y33;X2
C;K"     "
F;SLRTBM1;FG0L;Y34;X1
C;K33
F;SLTRBM1;FG0L;Y34;X2
C;K" IF @PFINANC_TIPO = 'P'  -- [P]AGAR       "
F;SLRTBM1;FG0L;Y35;X1
C;K34
F;SLTRBM1;FG0L;Y35;X2
C;K" BEGIN       "
F;SLRTBM1;FG0L;Y36;X1
C;K35
F;SLTRBM1;FG0L;Y36;X2
C;K"  INSERT INTO CP_TITULOS(       "
F;SLRTBM1;FG0L;Y37;X1
C;K36
F;SLTRBM1;FG0L;Y37;X2
C;K"   COD_EMP,       "
F;SLRTBM1;FG0L;Y38;X1
C;K37
F;SLTRBM1;FG0L;Y38;X2
C;K"   COD_FORN,       "
F;SLRTBM1;FG0L;Y39;X1
C;K38
F;SLTRBM1;FG0L;Y39;X2
C;K"   TITULO,       "
F;SLRTBM1;FG0L;Y40;X1
C;K39
F;SLTRBM1;FG0L;Y40;X2
C;K"   TIPO_TITULO,       "
F;SLRTBM1;FG0L;Y41;X1
C;K40
F;SLTRBM1;FG0L;Y41;X2
C;K"   COD_DIV,       "
F;SLRTBM1;FG0L;Y42;X1
C;K41
F;SLTRBM1;FG0L;Y42;X2
C;K"   DT_EMISSAO,       "
F;SLRTBM1;FG0L;Y43;X1
C;K42
F;SLTRBM1;FG0L;Y43;X2
C;K"   VR_TOTAL,       "
F;SLRTBM1;FG0L;Y44;X1
C;K43
F;SLTRBM1;FG0L;Y44;X2
C;K"   CENTRO_CUSTOS,       "
F;SLRTBM1;FG0L;Y45;X1
C;K44
F;SLTRBM1;FG0L;Y45;X2
C;K"   OBS,       "
F;SLRTBM1;FG0L;Y46;X1
C;K45
F;SLTRBM1;FG0L;Y46;X2
C;K"   FPG,       "
F;SLRTBM1;FG0L;Y47;X1
C;K46
F;SLTRBM1;FG0L;Y47;X2
C;K"   SITUACAO,       "
F;SLRTBM1;FG0L;Y48;X1
C;K47
F;SLTRBM1;FG0L;Y48;X2
C;K"   FLAG,       "
F;SLRTBM1;FG0L;Y49;X1
C;K48
F;SLTRBM1;FG0L;Y49;X2
C;K"   USUARIO,       "
F;SLRTBM1;FG0L;Y50;X1
C;K49
F;SLTRBM1;FG0L;Y50;X2
C;K"   DT_ALTERA,       "
F;SLRTBM1;FG0L;Y51;X1
C;K50
F;SLTRBM1;FG0L;Y51;X2
C;K"   OPERACAO,       "
F;SLRTBM1;FG0L;Y52;X1
C;K51
F;SLTRBM1;FG0L;Y52;X2
C;K"   DT_INC,       "
F;SLRTBM1;FG0L;Y53;X1
C;K52
F;SLTRBM1;FG0L;Y53;X2
C;K"   USUARIO_INC,   "
F;SLRTBM1;FG0L;Y54;X1
C;K53
F;SLTRBM1;FG0L;Y54;X2
C;K"   DOC,   "
F;SLRTBM1;FG0L;Y55;X1
C;K54
F;SLTRBM1;FG0L;Y55;X2
C;K"   ESPECIE,   "
F;SLRTBM1;FG0L;Y56;X1
C;K55
F;SLTRBM1;FG0L;Y56;X2
C;K"  SERIE,   "
F;SLRTBM1;FG0L;Y57;X1
C;K56
F;SLTRBM1;FG0L;Y57;X2
C;K"   COD_CUSTOS,   "
F;SLRTBM1;FG0L;Y58;X1
C;K57
F;SLTRBM1;FG0L;Y58;X2
C;K"  CONTA_RESULTADO_RED,   "
F;SLRTBM1;FG0L;Y59;X1
C;K58
F;SLTRBM1;FG0L;Y59;X2
C;K"  COD_HIST_PADRAO,   "
F;SLRTBM1;FG0L;Y60;X1
C;K59
F;SLTRBM1;FG0L;Y60;X2
C;K"  TIPO_INCLUSAO   "
F;SLRTBM1;FG0L;Y61;X1
C;K60
F;SLTRBM1;FG0L;Y61;X2
C;K"  )       "
F;SLRTBM1;FG0L;Y62;X1
C;K61
F;SLTRBM1;FG0L;Y62;X2
C;K"  SELECT       "
F;SLRTBM1;FG0L;Y63;X1
C;K62
F;SLTRBM1;FG0L;Y63;X2
C;K"   COD_EMP,       "
F;SLRTBM1;FG0L;Y64;X1
C;K63
F;SLTRBM1;FG0L;Y64;X2
C;K"   COD_FORN,       "
F;SLRTBM1;FG0L;Y65;X1
C;K64
F;SLTRBM1;FG0L;Y65;X2
C;K"   @VCOD_LANC, --TITULO   "
F;SLRTBM1;FG0L;Y66;X1
C;K65
F;SLTRBM1;FG0L;Y66;X2
C;K"   TIPO_TITULO,       "
F;SLRTBM1;FG0L;Y67;X1
C;K66
F;SLTRBM1;FG0L;Y67;X2
C;K"   COD_DIV,       "
F;SLRTBM1;FG0L;Y68;X1
C;K67
F;SLTRBM1;FG0L;Y68;X2
C;K"   DT_EMISSAO,       "
F;SLRTBM1;FG0L;Y69;X1
C;K68
F;SLTRBM1;FG0L;Y69;X2
C;K"   VR_TOTAL,       "
F;SLRTBM1;FG0L;Y70;X1
C;K69
F;SLTRBM1;FG0L;Y70;X2
C;K"   CENTRO_CUSTOS,       "
F;SLRTBM1;FG0L;Y71;X1
C;K70
F;SLTRBM1;FG0L;Y71;X2
C;K"   OBS,       "
F;SLRTBM1;FG0L;Y72;X1
C;K71
F;SLTRBM1;FG0L;Y72;X2
C;K"   FPG,       "
F;SLRTBM1;FG0L;Y73;X1
C;K72
F;SLTRBM1;FG0L;Y73;X2
C;K"   'A',       "
F;SLRTBM1;FG0L;Y74;X1
C;K73
F;SLTRBM1;FG0L;Y74;X2
C;K"   'F',       "
F;SLRTBM1;FG0L;Y75;X1
C;K74
F;SLTRBM1;FG0L;Y75;X2
C;K"   USUARIO,       "
F;SLRTBM1;FG0L;Y76;X1
C;K75
F;SLTRBM1;FG0L;Y76;X2
C;K"   DT_ALTERA,       "
F;SLRTBM1;FG0L;Y77;X1
C;K76
F;SLTRBM1;FG0L;Y77;X2
C;K"   OPERACAO,       "
F;SLRTBM1;FG0L;Y78;X1
C;K77
F;SLTRBM1;FG0L;Y78;X2
C;K"   @PDT_INC,       "
F;SLRTBM1;FG0L;Y79;X1
C;K78
F;SLTRBM1;FG0L;Y79;X2
C;K"   @PUSER_INC,   "
F;SLRTBM1;FG0L;Y80;X1
C;K79
F;SLTRBM1;FG0L;Y80;X2
C;K"   DOC,   "
F;SLRTBM1;FG0L;Y81;X1
C;K80
F;SLTRBM1;FG0L;Y81;X2
C;K"   ESPECIE,   "
F;SLRTBM1;FG0L;Y82;X1
C;K81
F;SLTRBM1;FG0L;Y82;X2
C;K"  SERIE,   "
F;SLRTBM1;FG0L;Y83;X1
C;K82
F;SLTRBM1;FG0L;Y83;X2
C;K"   COD_CUSTOS,   "
F;SLRTBM1;FG0L;Y84;X1
C;K83
F;SLTRBM1;FG0L;Y84;X2
C;K"  CONTA_RESULTADO_RED,   "
F;SLRTBM1;FG0L;Y85;X1
C;K84
F;SLTRBM1;FG0L;Y85;X2
C;K"  COD_HIST_PADRAO,   "
F;SLRTBM1;FG0L;Y86;X1
C;K85
F;SLTRBM1;FG0L;Y86;X2
C;K"  '0'       "
F;SLRTBM1;FG0L;Y87;X1
C;K86
F;SLTRBM1;FG0L;Y87;X2
C;K"  FROM NF_TITULOS_NPROC       "
F;SLRTBM1;FG0L;Y88;X1
C;K87
F;SLTRBM1;FG0L;Y88;X2
C;K"  WHERE COD_EMP   = @PCOD_EMP       "
F;SLRTBM1;FG0L;Y89;X1
C;K88
F;SLTRBM1;FG0L;Y89;X2
C;K"  AND COD_FORN    = @PCOD_FORN       "
F;SLRTBM1;FG0L;Y90;X1
C;K89
F;SLTRBM1;FG0L;Y90;X2
C;K"  AND TITULO      = @PCOD_TITULO_NPROC       "
F;SLRTBM1;FG0L;Y91;X1
C;K90
F;SLTRBM1;FG0L;Y91;X2
C;K"  AND COD_DIV     = @PCOD_DIV       "
F;SLRTBM1;FG0L;Y92;X1
C;K91
F;SLTRBM1;FG0L;Y92;X2
C;K"  AND FINANC_TIPO = @PFINANC_TIPO       "
F;SLRTBM1;FG0L;Y93;X1
C;K92
F;SLTRBM1;FG0L;Y93;X2
C;K" END       "
F;SLRTBM1;FG0L;Y94;X1
C;K93
F;SLTRBM1;FG0L;Y94;X2
C;K" ELSE --[R]ECEBER       "
F;SLRTBM1;FG0L;Y95;X1
C;K94
F;SLTRBM1;FG0L;Y95;X2
C;K" BEGIN       "
F;SLRTBM1;FG0L;Y96;X1
C;K95
F;SLTRBM1;FG0L;Y96;X2
C;K" INSERT INTO CR_TITULO(        "
F;SLRTBM1;FG0L;Y97;X1
C;K96
F;SLTRBM1;FG0L;Y97;X2
C;K"   COD_EMP,       "
F;SLRTBM1;FG0L;Y98;X1
C;K97
F;SLTRBM1;FG0L;Y98;X2
C;K"   COD_CLI,       "
F;SLRTBM1;FG0L;Y99;X1
C;K98
F;SLTRBM1;FG0L;Y99;X2
C;K"   TITULO,   "
F;SLRTBM1;FG0L;Y100;X1
C;K99
F;SLTRBM1;FG0L;Y100;X2
C;K"   TIPO,       "
F;SLRTBM1;FG0L;Y101;X1
C;K100
F;SLTRBM1;FG0L;Y101;X2
C;K"   COD_DIV,       "
F;SLRTBM1;FG0L;Y102;X1
C;K101
F;SLTRBM1;FG0L;Y102;X2
C;K"   DATA,       "
F;SLRTBM1;FG0L;Y103;X1
C;K102
F;SLTRBM1;FG0L;Y103;X2
C;K"   VALOR,  "
F;SLRTBM1;FG0L;Y104;X1
C;K103
F;SLTRBM1;FG0L;Y104;X2
C;K"   SITUACAO,      "
F;SLRTBM1;FG0L;Y105;X1
C;K104
F;SLTRBM1;FG0L;Y105;X2
C;K"   OBS,       "
F;SLRTBM1;FG0L;Y106;X1
C;K105
F;SLTRBM1;FG0L;Y106;X2
C;K"   COD_PAGTO,       "
F;SLRTBM1;FG0L;Y107;X1
C;K106
F;SLTRBM1;FG0L;Y107;X2
C;K"   USUARIO,       "
F;SLRTBM1;FG0L;Y108;X1
C;K107
F;SLTRBM1;FG0L;Y108;X2
C;K"   DT_ALTERA,       "
F;SLRTBM1;FG0L;Y109;X1
C;K108
F;SLTRBM1;FG0L;Y109;X2
C;K"   OPERACAO,       "
F;SLRTBM1;FG0L;Y110;X1
C;K109
F;SLTRBM1;FG0L;Y110;X2
C;K"   DT_INC,       "
F;SLRTBM1;FG0L;Y111;X1
C;K110
F;SLTRBM1;FG0L;Y111;X2
C;K"   USUARIO_INC, "
F;SLRTBM1;FG0L;Y112;X1
C;K111
F;SLTRBM1;FG0L;Y112;X2
C;K"   COD_VEND, "
F;SLRTBM1;FG0L;Y113;X1
C;K112
F;SLTRBM1;FG0L;Y113;X2
C;K"   SERIE)       "
F;SLRTBM1;FG0L;Y114;X1
C;K113
F;SLTRBM1;FG0L;Y114;X2
C;K"  SELECT       "
F;SLRTBM1;FG0L;Y115;X1
C;K114
F;SLTRBM1;FG0L;Y115;X2
C;K"   NF.COD_EMP,       "
F;SLRTBM1;FG0L;Y116;X1
C;K115
F;SLTRBM1;FG0L;Y116;X2
C;K"   NF.COD_FORN,       "
F;SLRTBM1;FG0L;Y117;X1
C;K116
F;SLTRBM1;FG0L;Y117;X2
C;K"   @PCOD_TITULO,    --TITULO   "
F;SLRTBM1;FG0L;Y118;X1
C;K117
F;SLTRBM1;FG0L;Y118;X2
C;K"   NF.TIPO_TITULO,          "
F;SLRTBM1;FG0L;Y119;X1
C;K118
F;SLTRBM1;FG0L;Y119;X2
C;K"   NF.COD_DIV,       "
F;SLRTBM1;FG0L;Y120;X1
C;K119
F;SLTRBM1;FG0L;Y120;X2
C;K"   NF.DT_EMISSAO,       "
F;SLRTBM1;FG0L;Y121;X1
C;K120
F;SLTRBM1;FG0L;Y121;X2
C;K"   NF.VR_TOTAL,   "
F;SLRTBM1;FG0L;Y122;X1
C;K121
F;SLTRBM1;FG0L;Y122;X2
C;K"   'A',     "
F;SLRTBM1;FG0L;Y123;X1
C;K122
F;SLTRBM1;FG0L;Y123;X2
C;K"   ISNULL(NF.OBS,'') + ' MOVIM ENTRADA LANC ' + CAST(@VCOD_LANC AS VARCHAR(10)), "
F;SLRTBM1;FG0L;Y124;X1
C;K123
F;SLTRBM1;FG0L;Y124;X2
C;K"   NF.FPG,       "
F;SLRTBM1;FG0L;Y125;X1
C;K124
F;SLTRBM1;FG0L;Y125;X2
C;K"   NF.USUARIO,       "
F;SLRTBM1;FG0L;Y126;X1
C;K125
F;SLTRBM1;FG0L;Y126;X2
C;K"   NF.DT_ALTERA,       "
F;SLRTBM1;FG0L;Y127;X1
C;K126
F;SLTRBM1;FG0L;Y127;X2
C;K"   NF.OPERACAO,       "
F;SLRTBM1;FG0L;Y128;X1
C;K127
F;SLTRBM1;FG0L;Y128;X2
C;K"   @PDT_INC,       "
F;SLRTBM1;FG0L;Y129;X1
C;K128
F;SLTRBM1;FG0L;Y129;X2
C;K"   @PUSER_INC, "
F;SLRTBM1;FG0L;Y130;X1
C;K129
F;SLTRBM1;FG0L;Y130;X2
C;K"   CLI.VENDEDOR, "
F;SLRTBM1;FG0L;Y131;X1
C;K130
F;SLTRBM1;FG0L;Y131;X2
C;K"   NF.SERIE "
F;SLRTBM1;FG0L;Y132;X1
C;K131
F;SLTRBM1;FG0L;Y132;X2
C;K"  FROM NF_TITULOS_NPROC NF "
F;SLRTBM1;FG0L;Y133;X1
C;K132
F;SLTRBM1;FG0L;Y133;X2
C;K"  INNER JOIN TCLIENTES CLI ON(NF.COD_EMP = CLI.COD_EMP AND NF.COD_FORN = CLI.COD_CLI)        "
F;SLRTBM1;FG0L;Y134;X1
C;K133
F;SLTRBM1;FG0L;Y134;X2
C;K"  WHERE NF.COD_EMP   = @PCOD_EMP      "
F;SLRTBM1;FG0L;Y135;X1
C;K134
F;SLTRBM1;FG0L;Y135;X2
C;K"  AND   NF.COD_FORN   = @PCOD_FORN       "
F;SLRTBM1;FG0L;Y136;X1
C;K135
F;SLTRBM1;FG0L;Y136;X2
C;K"  AND   NF.TITULO     = @PCOD_TITULO_NPROC       "
F;SLRTBM1;FG0L;Y137;X1
C;K136
F;SLTRBM1;FG0L;Y137;X2
C;K"  AND   NF.COD_DIV     = @PCOD_DIV       "
F;SLRTBM1;FG0L;Y138;X1
C;K137
F;SLTRBM1;FG0L;Y138;X2
C;K"  AND   NF.FINANC_TIPO = @PFINANC_TIPO       "
F;SLRTBM1;FG0L;Y139;X1
C;K138
F;SLTRBM1;FG0L;Y139;X2
C;K" END       "
F;SLRTBM1;FG0L;Y140;X1
C;K139
F;SLTRBM1;FG0L;Y140;X2
C;K"END       "
E