Galera, encontrei um topico aqui falando sobre isso, mas o proprio criador respondeu dizendo que ja havia conseguido, porem, nao postou nenhum exemplo pra ajudar. Entao estou abrindo um outro. Alguem teria um exemplo do uso desta API? Ela serve para gerar lote contabil do EMS 2 pro EMS 5 O Nome eh fgl900zl ou fgl900zo, caso nao tenha usado, pelo menos faça uma busca no diretorio de programas ai da sua Empresa, ou cliente onde estiver, por favor!!!! nao vai demora mais do que cinco minutos!! Grato! Massimo
Ola Rogerio, obrigado, ajuda sim.... Mas eu gostaria de um exemplo se for possivel, nao mexo muito com API entao vai dar uma bela facilitada pra mim!!! Muito obrigado
Consegui, segue um exemplo para ajudar quem precisar: {esp/brp/brlm-implanta-lm.i} /*--------------------------- 1) TEMP-TABLE de Lotes Cont beis 1.1. Conter a capa do lote 1.2. NÆo ‚ obrigat¢rio o n£mero do lote, pois o programa de recebimento atribuir o n£mero de lote correto. ---------------------------*/ DEF TEMP-TABLE tt_integr_lote_ctbl_1 no-undo FIELD tta_cod_modul_dtsul AS CHARACTER FORMAT "x(3)" LABEL "M¢dulo" COLUMN-LABEL "M¢dulo" FIELD tta_num_lote_ctbl AS INTEGER FORMAT ">>>,>>>,>>9" LABEL "Lote Cont bil" COLUMN-LABEL "Lote Cont bil" INITIAL 1 FIELD tta_des_lote_ctbl AS CHARACTER FORMAT "x(40)" LABEL "Descri‡Æo Lote" COLUMN-LABEL "Descri‡Æo Lote" FIELD tta_cod_empresa AS CHARACTER FORMAT "x(3)" LABEL "Empresa" COLUMN-LABEL "Empresa" FIELD tta_dat_lote_ctbl AS DATE FORMAT "99/99/9999" LABEL "Data Lote Cont bil" COLUMN-LABEL "Data Lote Cont bil" INITIAL TODAY FIELD ttv_ind_erro_valid AS CHARACTER FORMAT "X(08)" INITIAL "NÆo" FIELD tta_log_integr_ctbl_online AS LOGICAL FORMAT "Sim/NÆo" LABEL "Integra‡Æo Online" COLUMN-LABEL "Integr Online" INITIAL NO FIELD ttv_rec_integr_lote_ctbl AS RECID FORMAT ">>>>>>9" INDEX tt_recid ttv_rec_integr_lote_ctbl ASCENDING. /*--------------------------- 2) TEMP-TABLE de Lan‡amentos Cont beis 2.1. N¡vel que agrupa os itens de lan‡amento (DB e CR) para um mesmo cen rio e data ---------------------------*/ DEF TEMP-TABLE tt_integr_lancto_ctbl_1 NO-UNDO FIELD tta_cod_cenar_ctbl AS CHARACTER FORMAT "x(8)" LABEL "Cen rio Cont bil" COLUMN-LABEL "Cen rio Cont bil" FIELD tta_log_lancto_conver AS LOGICAL FORMAT "Sim/NÆo" INITIAL NO LABEL "Lan‡amento ConversÆo" COLUMN-LABEL "Lan‡to Conv" FIELD tta_log_lancto_apurac_restdo AS LOGICAL FORMAT "Sim/NÆo" INITIAL NO LABEL "Lan‡amento Apura‡Æo" COLUMN-LABEL "Lancto Apura‡Æo" FIELD tta_cod_rat_ctbl AS CHARACTER FORMAT "x(8)" LABEL "Rateio Cont bil" COLUMN-LABEL "Rateio" FIELD ttv_rec_integr_lote_ctbl AS RECID FORMAT ">>>>>>9" FIELD tta_num_lancto_ctbl AS INTEGER FORMAT ">>,>>>,>>9" INITIAL 10 LABEL "Lan‡amento Cont bil" COLUMN-LABEL "Lan‡amento Cont bil" FIELD ttv_ind_erro_valid AS CHARACTER FORMAT "X(08)" INITIAL "NÆo" FIELD tta_dat_lancto_ctbl AS DATE FORMAT "99/99/9999" INITIAL ? LABEL "Data Lan‡amento" COLUMN-LABEL "Data Lan‡to" FIELD ttv_rec_integr_lancto_ctbl AS RECID FORMAT ">>>>>>9" INDEX tt_id IS PRIMARY UNIQUE ttv_rec_integr_lote_ctbl ASCENDING tta_num_lancto_ctbl ASCENDING INDEX tt_recid ttv_rec_integr_lancto_ctbl ASCENDING. /*--------------------------- 3) TEMP-TABLE de Itens de Lan‡amento Cont beis 3.1. Devem conter os d‚bitos e os cr‚ditos nas diversas contas cont beis, estabelecimento, centro de custo, unidade de neg¢cio ---------------------------*/ DEF TEMP-TABLE tt_integr_item_lancto_ctbl_1 NO-UNDO FIELD ttv_rec_integr_lancto_ctbl AS RECID FORMAT ">>>>>>9" FIELD tta_num_seq_lancto_ctbl AS INTEGER FORMAT ">>>>9" INITIAL 0 LABEL "Seq Lan‡to" COLUMN-LABEL "Sequˆncia Lan‡to" FIELD tta_ind_natur_lancto_ctbl AS CHARACTER FORMAT "X(02)" INITIAL "DB" LABEL "Natureza" COLUMN-LABEL "Natureza" FIELD tta_cod_plano_cta_ctbl AS CHARACTER FORMAT "x(8)" LABEL "Plano Contas" COLUMN-LABEL "Plano Contas" FIELD tta_cod_cta_ctbl AS CHARACTER FORMAT "x(20)" LABEL "Conta Cont bil" COLUMN-LABEL "Conta Cont bil" FIELD tta_cod_plano_ccusto AS CHARACTER FORMAT "x(8)" LABEL "Plano Centros Custo" COLUMN-LABEL "Plano Centros Custo" FIELD tta_cod_estab AS CHARACTER FORMAT "x(3)" LABEL "Estabelecimento" COLUMN-LABEL "Estab" FIELD tta_cod_unid_negoc AS CHARACTER FORMAT "x(3)" LABEL "Unid Neg¢cio" COLUMN-LABEL "Un Neg" FIELD tta_cod_histor_padr AS CHARACTER FORMAT "x(8)" LABEL "Hist¢rico PadrÆo" COLUMN-LABEL "Hist¢rico PadrÆo" FIELD tta_des_histor_lancto_ctbl AS CHARACTER FORMAT "x(2000)" LABEL "Hist¢rico Cont bil" COLUMN-LABEL "Hist¢rico Cont bil" FIELD tta_cod_espec_docto AS CHARACTER FORMAT "x(3)" LABEL "Esp‚cie Documento" COLUMN-LABEL "Esp‚cie" FIELD tta_dat_docto AS DATE FORMAT "99/99/9999" INITIAL ? LABEL "Data Documento" COLUMN-LABEL "Data Documento" FIELD tta_des_docto AS CHARACTER FORMAT "x(25)" LABEL "N£mero Documento" COLUMN-LABEL "N£mero Documento" FIELD tta_cod_imagem AS CHARACTER FORMAT "x(30)" LABEL "Imagem" COLUMN-LABEL "Imagem" FIELD tta_cod_indic_econ AS CHARACTER FORMAT "x(8)" LABEL "Moeda" COLUMN-LABEL "Moeda" FIELD tta_dat_lancto_ctbl AS DATE FORMAT "99/99/9999" INITIAL ? LABEL "Data Lan‡amento" COLUMN-LABEL "Data Lan‡to" FIELD tta_qtd_unid_lancto_ctbl AS DECIMAL FORMAT ">>,>>>,>>9.99" DECIMALS 2 INITIAL 0 LABEL "Qde" COLUMN-LABEL "Quantidade" FIELD tta_val_lancto_ctbl AS DECIMAL FORMAT ">>>>>,>>>,>>9.99" DECIMALS 2 INITIAL 0 LABEL "Vl Lcto" COLUMN-LABEL "Valor Lan‡amento" FIELD tta_num_seq_lancto_ctbl_cpart AS INTEGER FORMAT ">>>9" INITIAL 0 LABEL "Sequˆncia CPartida" COLUMN-LABEL "Sequˆncia CP" FIELD ttv_ind_erro_valid AS CHARACTER FORMAT "X(08)" INITIAL "NÆo" FIELD tta_cod_ccusto AS CHARACTER FORMAT "x(11)" LABEL "Centro Custo" COLUMN-LABEL "Centro Custo" FIELD tta_cod_proj_financ AS CHARACTER FORMAT "x(20)" LABEL "Projeto" COLUMN-LABEL "Projeto" FIELD ttv_rec_integr_item_lancto_ctbl AS RECID FORMAT ">>>>>>9" INDEX tt_id IS PRIMARY UNIQUE ttv_rec_integr_lancto_ctbl ASCENDING tta_num_seq_lancto_ctbl ASCENDING INDEX tt_recid ttv_rec_integr_item_lancto_ctbl ASCENDING. /*--------------------------- 4) TEMP-TABLE de Apropria‡äes Cont beis 4.1. Devem conter AS aberturas dos cr‚ditos ou d‚bitos por finalidades econ“micas. ---------------------------*/ DEF TEMP-TABLE tt_integr_aprop_lancto_ctbl_1 no-undo FIELD tta_cod_finalid_econ AS CHARACTER FORMAT "x(10)" LABEL "Finalidade" COLUMN-LABEL "Finalidade" FIELD tta_cod_unid_negoc AS CHARACTER FORMAT "x(3)" LABEL "Unid Neg¢cio" COLUMN-LABEL "Un Neg" FIELD tta_cod_plano_ccusto AS CHARACTER FORMAT "x(8)" LABEL "Plano Centros Custo" COLUMN-LABEL "Plano Centros Custo" FIELD tta_qtd_unid_lancto_ctbl AS decimal FORMAT ">>,>>>,>>9.99" decimals 2 INITIAL 0 LABEL "Quantidade" COLUMN-LABEL "Quantidade" FIELD tta_val_lancto_ctbl AS decimal FORMAT ">>>>>,>>>,>>9.99" decimals 2 INITIAL 0 LABEL "Valor Lan‡amento" COLUMN-LABEL "Valor Lan‡amento" FIELD tta_num_id_aprop_lancto_ctbl AS INTEGER FORMAT "9999999999" INITIAL 0 LABEL "Apropriacao Lan‡to" COLUMN-LABEL "Apropriacao Lan‡to" FIELD ttv_rec_integr_item_lancto_ctbl AS recid FORMAT ">>>>>>9" FIELD tta_dat_cotac_indic_econ AS date FORMAT "99/99/9999" INITIAL ? LABEL "Data Cota‡Æo" COLUMN-LABEL "Data Cota‡Æo" FIELD tta_val_cotac_indic_econ AS decimal FORMAT ">>>>,>>9.9999999999" decimals 10 INITIAL 0 LABEL "Cota‡Æo" COLUMN-LABEL "Cota‡Æo" FIELD ttv_ind_erro_valid AS CHARACTER FORMAT "X(08)" INITIAL "NÆo" FIELD tta_ind_orig_val_lancto_ctbl AS CHARACTER FORMAT "X(10)" INITIAL "Informado" LABEL "Origem Valor" COLUMN-LABEL "Origem Valor" FIELD tta_cod_ccusto AS CHARACTER FORMAT "x(11)" LABEL "Centro Custo" COLUMN-LABEL "Centro Custo" FIELD ttv_rec_integr_aprop_lancto_ctbl AS recid FORMAT ">>>>>>9" INDEX tt_id is primary unique ttv_rec_integr_item_lancto_ctbl ASCENDING tta_cod_finalid_econ ASCENDING tta_cod_unid_negoc ASCENDING tta_cod_plano_ccusto ASCENDING tta_cod_ccusto ASCENDING INDEX tt_recid ttv_rec_integr_aprop_lancto_ctbl AScending . /*--------------------------- 5) TEMP-TABLE com os Erros da Integra‡Æo ---------------------------*/ DEF TEMP-TABLE tt_integr_ctbl_valid_1 NO-UNDO FIELD ttv_rec_integr_ctbl AS recid FORMAT ">>>>>>9" FIELD ttv_num_mensagem AS INTEGER FORMAT ">>>>,>>9" LABEL "N£mero" COLUMN-LABEL "N£mero Mensagem" FIELD ttv_ind_pos_erro AS CHARACTER FORMAT "X(08)" LABEL "Posi‡Æo" INDEX tt_id IS PRIMARY UNIQUE ttv_rec_integr_ctbl ASCENDING ttv_num_mensagem ASCENDING. DEFINE BUFFER b-tt_integr_item_lancto_ctbl_1 FOR tt_integr_item_lancto_ctbl_1. DEFINE BUFFER b-tt_integr_aprop_lancto_ctbl_1 FOR tt_integr_aprop_lancto_ctbl_1. ASSIGN d-tot-lcto = 0. /*----- Limpa o arquivo ---------------*/ OUTPUT STREAM s_1 TO VALUE(c-arq-temp). OUTPUT STREAM s_1 CLOSE. /*-------------------------------------*/ FOR EACH tt-estab. RUN pi-estab. EMPTY TEMP-TABLE tt_integr_lote_ctbl_1. EMPTY TEMP-TABLE tt_integr_lancto_ctbl_1. EMPTY TEMP-TABLE tt_integr_item_lancto_ctbl_1. EMPTY TEMP-TABLE tt_integr_aprop_lancto_ctbl_1. EMPTY TEMP-TABLE tt_integr_ctbl_valid_1. CREATE tt_integr_lote_ctbl_1. ASSIGN tt_integr_lote_ctbl_1.tta_cod_modul_dtsul = 'FGL' /* histor_padr.cod_modul_dtsul /*"M¢dulo"*/*/ tt_integr_lote_ctbl_1.tta_num_lote_ctbl = 0 tt_integr_lote_ctbl_1.tta_des_lote_ctbl = 'LM:' + STRING(lm2_lcto.cod_lcto) + ' - DESC:' + CAPS(fn-free-accent(lm2_lcto.descricao)) tt_integr_lote_ctbl_1.tta_cod_empresa = ems505.trad_org_ext.cod_unid_organ tt_integr_lote_ctbl_1.tta_dat_lote_ctbl = lm2_lcto.dt_lcto tt_integr_lote_ctbl_1.ttv_ind_erro_valid = "NÆo" tt_integr_lote_ctbl_1.tta_log_integr_ctbl_online = NO tt_integr_lote_ctbl_1.ttv_rec_integr_lote_ctbl = RECID(TT_INTEGR_LOTE_CTBL_1). ASSIGN i-seq-lcto = 0. IF lm2_lcto.cod_grade_lcto <> 0 THEN FOR EACH lm2_tipo_grade OF lm2_grade_lcto NO-LOCK, EACH lm2_tipo_lcto OF lm2_tipo_grade NO-LOCK. RUN pi-impl_lcto. IF RETURN-VALUE = 'FAIL' THEN DO: ASSIGN l-erro-ger = YES. RETURN "FAIL". END. END. ELSE FOR EACH lm2_lcto_cta OF lm2_lcto NO-LOCK WHERE lm2_lcto_cta.cod-estabel = tt-estab.cod-estabel. RUN pi-impl_lcto. IF RETURN-VALUE = 'FAIL' THEN DO: ASSIGN l-erro-ger = YES. RETURN "FAIL". END. END. OUTPUT STREAM s_1 TO VALUE(c-arq-temp) APPEND. RUN prgfin/fgl/fgl900zl.py (INPUT 3, INPUT "Aborta Tudo", INPUT YES, INPUT 66, INPUT "Item", INPUT "Com Erro", INPUT YES, INPUT YES, INPUT-OUTPUT TABLE tt_integr_lote_ctbl_1, INPUT-OUTPUT TABLE tt_integr_lancto_ctbl_1, INPUT-OUTPUT TABLE tt_integr_item_lancto_ctbl_1, INPUT-OUTPUT TABLE tt_integr_aprop_lancto_ctbl_1, INPUT-OUTPUT TABLE tt_integr_ctbl_valid_1). OUTPUT STREAM s_1 CLOSE. /*--------------------------- - Se o atributo tt_integr_lote_ctbl.ttv_ind_erro_valid = "NÆo", o lote est na contabilidade do EMS 5.0 - SenÆo o lote apresentou inconsistˆncia, que podem ser vistas no relat¢rio (se impresso) ou nos registros da tabela tempor ria tt_integr_ctbl_valid_1 - Para que se tenha o rastreamento das apropria‡äes geradas, a TEMP-TABLE de apropria‡Æo retorna o atributo tta_num_id_aprop_lancto_ctbl com o valor do "token" da apropria‡Æo gerada na contabilidade; ---------------------------*/ FIND FIRST tt_integr_lote_ctbl_1 NO-ERROR. IF tt_integr_lote_ctbl_1.ttv_ind_erro_valid <> "NÆo" THEN DO: ASSIGN l-erro-ger = YES. RETURN "FAIL". END. END. IF l-erro-ger = NO THEN ASSIGN lm2_lcto.gerou_lote = YES lm2_lcto.gerou_acr = NO . RETURN 'OK'. /* Buscar Cenario Contabil e Finalidade Economica **********************/ FIND FIRST lm2_grade_lcto OF lm2_lcto NO-LOCK NO-ERROR. PROCEDURE pi-impl_lcto. ASSIGN i-seq-lcto = i-seq-lcto + 1. CREATE tt_integr_lancto_ctbl_1. ASSIGN tt_integr_lancto_ctbl_1.tta_cod_cenar_ctbl = lm2_grade_lcto.cod_cenar_ctbl /* Busca cenario da grade *****/ tt_integr_lancto_ctbl_1.tta_log_lancto_conver = NO tt_integr_lancto_ctbl_1.tta_log_lancto_apurac_restdo = NO tt_integr_lancto_ctbl_1.tta_cod_rat_ctbl = 'LM' + STRING(lm2_lcto.cod_lcto) tt_integr_lancto_ctbl_1.ttv_rec_integr_lote_ctbl = RECID(TT_INTEGR_LOTE_CTBL_1) tt_integr_lancto_ctbl_1.tta_num_lancto_ctbl = i-seq-lcto tt_integr_lancto_ctbl_1.ttv_ind_erro_valid = "NÆo" tt_integr_lancto_ctbl_1.tta_dat_lancto_ctbl = lm2_lcto.dt_lcto tt_integr_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl = RECID(TT_INTEGR_LANCTO_CTBL_1). ASSIGN i-seq = 0. RUN pi-soma-lcto. RUN pi-muda-s-cr. IF RETURN-VALUE = 'FAIL' THEN DO: ASSIGN l-erro-ger = YES. RETURN "FAIL". END. FIND FIRST ems505.ccusto NO-LOCK WHERE ems505.ccusto.cod_empresa = ems505.trad_org_ext.cod_unid_organ AND ems505.ccusto.cod_ccusto = c-cc-DB NO-ERROR. ASSIGN i-seq = i-seq + 1. CREATE tt_integr_item_lancto_ctbl_1. ASSIGN tt_integr_item_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl = RECID(TT_INTEGR_LANCTO_CTBL_1) tt_integr_item_lancto_ctbl_1.tta_num_seq_lancto_ctbl = i-seq /*lm2_lcto_item.num_seq_lancto_ctbl*/ tt_integr_item_lancto_ctbl_1.tta_ind_natur_lancto_ctbl = 'DB' tt_integr_item_lancto_ctbl_1.tta_cod_plano_cta_ctbl = c-plano tt_integr_item_lancto_ctbl_1.tta_cod_cta_ctbl = c-conta-DB /* Conta */ . ASSIGN tt_integr_item_lancto_ctbl_1.tta_cod_plano_ccusto = (IF AVAIL ems505.ccusto THEN ems505.ccusto.cod_plano_ccusto ELSE '') /*.cod_plano_cta_ctbl*/ . ASSIGN tt_integr_item_lancto_ctbl_1.tta_cod_estab = b-estabelecimento.cod_unid_organ /*lm2_lcto.cod-estabel*/ tt_integr_item_lancto_ctbl_1.tta_cod_unid_negoc = c-unneg-DB /*"Unid Neg¢cio" */ tt_integr_item_lancto_ctbl_1.tta_cod_histor_padr = '' /*histor_padr.cod_histor_padr*/ tt_integr_item_lancto_ctbl_1.tta_des_histor_lancto_ctbl = c-desc-lcto. ASSIGN tt_integr_item_lancto_ctbl_1.tta_cod_espec_docto = c-cod_espec_docto. ASSIGN tt_integr_item_lancto_ctbl_1.tta_dat_docto = ? /*nota-fiscal.dt-emis-nota*/ tt_integr_item_lancto_ctbl_1.tta_des_docto = '' /*nota-fiscal.nr-nota-fis*/ tt_integr_item_lancto_ctbl_1.tta_cod_imagem = '' /*"Imagem"*/ tt_integr_item_lancto_ctbl_1.tta_cod_indic_econ = c-ind-econ tt_integr_item_lancto_ctbl_1.tta_dat_lancto_ctbl = lm2_lcto.dt_lcto tt_integr_item_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl = 0 /*"Quantidade"*/ tt_integr_item_lancto_ctbl_1.tta_val_lancto_ctbl = d-tot-por-estab tt_integr_item_lancto_ctbl_1.tta_num_seq_lancto_ctbl_cpart = 0 /*it-nota-fisc.nr-seq-fat /*"Sequˆncia CPartida"*/ */ tt_integr_item_lancto_ctbl_1.ttv_ind_erro_valid = "NÆo" tt_integr_item_lancto_ctbl_1.tta_cod_ccusto = c-cc-DB /*SUBSTRING(.conta-contabil_DB,11,5) /* "Centro Custo" */ */ tt_integr_item_lancto_ctbl_1.tta_cod_proj_financ = '' /*"Projeto"*/ tt_integr_item_lancto_ctbl_1.ttv_rec_integr_item_lancto_ctbl = RECID(TT_INTEGR_ITEM_LANCTO_CTBL_1). CREATE tt_integr_aprop_lancto_ctbl_1. ASSIGN tt_integr_aprop_lancto_ctbl_1.tta_cod_finalid_econ = lm2_grade_lcto.cod_finalid_econ /*"Finalidade da Grade" */ tt_integr_aprop_lancto_ctbl_1.tta_cod_unid_negoc = tt_integr_item_lancto_ctbl_1.tta_cod_unid_negoc tt_integr_aprop_lancto_ctbl_1.tta_cod_plano_ccusto = tt_integr_item_lancto_ctbl_1.tta_cod_plano_ccusto tt_integr_aprop_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl /* "Quantidade" */ tt_integr_aprop_lancto_ctbl_1.tta_val_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_val_lancto_ctbl /* "Valor Lan‡amento" */ tt_integr_aprop_lancto_ctbl_1.tta_num_id_aprop_lancto_ctbl = 0 /* "Apropriacao Lan‡to" */ tt_integr_aprop_lancto_ctbl_1.ttv_rec_integr_item_lancto_ctbl = RECID(TT_INTEGR_ITEM_LANCTO_CTBL_1) tt_integr_aprop_lancto_ctbl_1.tta_dat_cotac_indic_econ = ? /*lm2_lctodt_lcto /* "Data Cota‡Æo" */ */ tt_integr_aprop_lancto_ctbl_1.tta_val_cotac_indic_econ = 0 /*decimal FORMAT ">>>>,>>9.9999999999" decimals 10 INITIAL 0 LABEL "Cota‡Æo" COLUMN-LABEL "Cota‡Æo" */ tt_integr_aprop_lancto_ctbl_1.ttv_ind_erro_valid = "NÆo" tt_integr_aprop_lancto_ctbl_1.tta_ind_orig_val_lancto_ctbl = "Informado" /*"Origem Valor"*/ tt_integr_aprop_lancto_ctbl_1.tta_cod_ccusto = tt_integr_item_lancto_ctbl_1.tta_cod_ccusto /* "Centro Custo" */ tt_integr_aprop_lancto_ctbl_1.ttv_rec_integr_aprop_lancto_ctbl = RECID(TT_INTEGR_APROP_LANCTO_CTBL_1). FIND FIRST ems505.ccusto NO-LOCK WHERE ems505.ccusto.cod_empresa = ems505.trad_org_ext.cod_unid_organ AND ems505.ccusto.cod_ccusto = c-cc-CR NO-ERROR. ASSIGN i-seq = i-seq + 1. CREATE b-tt_integr_item_lancto_ctbl_1. ASSIGN b-tt_integr_item_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl = tt_integr_item_lancto_ctbl_1.ttv_rec_integr_lancto_ctbl b-tt_integr_item_lancto_ctbl_1.tta_num_seq_lancto_ctbl = i-seq b-tt_integr_item_lancto_ctbl_1.tta_ind_natur_lancto_ctbl = 'CR' b-tt_integr_item_lancto_ctbl_1.tta_cod_plano_cta_ctbl = tt_integr_item_lancto_ctbl_1.tta_cod_plano_cta_ctbl b-tt_integr_item_lancto_ctbl_1.tta_cod_cta_ctbl = c-conta-CR /* Conta */ . ASSIGN b-tt_integr_item_lancto_ctbl_1.tta_cod_plano_ccusto = (IF AVAIL ems505.ccusto THEN ems505.ccusto.cod_plano_ccusto ELSE '') /*.cod_plano_cta_ctbl*/ . ASSIGN b-tt_integr_item_lancto_ctbl_1.tta_cod_estab = tt_integr_item_lancto_ctbl_1.tta_cod_estab b-tt_integr_item_lancto_ctbl_1.tta_cod_unid_negoc = c-unneg-CR /*"Unid Neg¢cio" */ b-tt_integr_item_lancto_ctbl_1.tta_cod_histor_padr = tt_integr_item_lancto_ctbl_1.tta_cod_histor_padr b-tt_integr_item_lancto_ctbl_1.tta_des_histor_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_des_histor_lancto_ctbl. ASSIGN b-tt_integr_item_lancto_ctbl_1.tta_cod_espec_docto = tt_integr_item_lancto_ctbl_1.tta_cod_espec_docto. ASSIGN b-tt_integr_item_lancto_ctbl_1.tta_dat_docto = tt_integr_item_lancto_ctbl_1.tta_dat_docto b-tt_integr_item_lancto_ctbl_1.tta_des_docto = tt_integr_item_lancto_ctbl_1.tta_des_docto b-tt_integr_item_lancto_ctbl_1.tta_cod_imagem = tt_integr_item_lancto_ctbl_1.tta_cod_imagem b-tt_integr_item_lancto_ctbl_1.tta_cod_indic_econ = tt_integr_item_lancto_ctbl_1.tta_cod_indic_econ b-tt_integr_item_lancto_ctbl_1.tta_dat_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_dat_lancto_ctbl b-tt_integr_item_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl b-tt_integr_item_lancto_ctbl_1.tta_val_lancto_ctbl = tt_integr_item_lancto_ctbl_1.tta_val_lancto_ctbl b-tt_integr_item_lancto_ctbl_1.tta_num_seq_lancto_ctbl_cpart = tt_integr_item_lancto_ctbl_1.tta_num_seq_lancto_ctbl_cpart b-tt_integr_item_lancto_ctbl_1.ttv_ind_erro_valid = tt_integr_item_lancto_ctbl_1.ttv_ind_erro_valid b-tt_integr_item_lancto_ctbl_1.tta_cod_ccusto = c-cc-CR /*SUBSTRING(.conta-contabil_CR,11,5) /* "Centro Custo" */ */ b-tt_integr_item_lancto_ctbl_1.tta_cod_proj_financ = tt_integr_item_lancto_ctbl_1.tta_cod_proj_financ b-tt_integr_item_lancto_ctbl_1.ttv_rec_integr_item_lancto_ctbl = RECID(b-TT_INTEGR_ITEM_LANCTO_CTBL_1) /*tt_integr_item_lancto_ctbl_1.ttv_rec_integr_item_lancto_ctbl*/ . CREATE b-tt_integr_aprop_lancto_ctbl_1. ASSIGN b-tt_integr_aprop_lancto_ctbl_1.tta_cod_finalid_econ = lm2_grade_lcto.cod_finalid_econ /* "Finalidade da Grade" */ b-tt_integr_aprop_lancto_ctbl_1.tta_cod_unid_negoc = b-tt_integr_item_lancto_ctbl_1.tta_cod_unid_negoc b-tt_integr_aprop_lancto_ctbl_1.tta_cod_plano_ccusto = b-tt_integr_item_lancto_ctbl_1.tta_cod_plano_ccusto b-tt_integr_aprop_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl = b-tt_integr_item_lancto_ctbl_1.tta_qtd_unid_lancto_ctbl /* "Quantidade" */ b-tt_integr_aprop_lancto_ctbl_1.tta_val_lancto_ctbl = b-tt_integr_item_lancto_ctbl_1.tta_val_lancto_ctbl /* "Valor Lan‡amento" */ b-tt_integr_aprop_lancto_ctbl_1.tta_num_id_aprop_lancto_ctbl = 0 /* "Apropriacao Lan‡to" */ b-tt_integr_aprop_lancto_ctbl_1.ttv_rec_integr_item_lancto_ctbl = RECID(b-TT_INTEGR_ITEM_LANCTO_CTBL_1) b-tt_integr_aprop_lancto_ctbl_1.tta_dat_cotac_indic_econ = ? /*lm2_lctodt_lcto /* "Data Cota‡Æo" */ */ b-tt_integr_aprop_lancto_ctbl_1.tta_val_cotac_indic_econ = 0 /*decimal FORMAT ">>>>,>>9.9999999999" decimals 10 INITIAL 0 LABEL "Cota‡Æo" COLUMN-LABEL "Cota‡Æo" */ b-tt_integr_aprop_lancto_ctbl_1.ttv_ind_erro_valid = "NÆo" b-tt_integr_aprop_lancto_ctbl_1.tta_ind_orig_val_lancto_ctbl = "Informado" /*"Origem Valor"*/ b-tt_integr_aprop_lancto_ctbl_1.tta_cod_ccusto = b-tt_integr_item_lancto_ctbl_1.tta_cod_ccusto /* "Centro Custo" */ b-tt_integr_aprop_lancto_ctbl_1.ttv_rec_integr_aprop_lancto_ctbl = RECID(b-TT_INTEGR_APROP_LANCTO_CTBL_1). END PROCEDURE. /* PROCEDURE pi-impl_lcto. */
