FAQ - SAPE ITEM

ITEM COMEÇADO COM 60 NÃO INTEGRA DO SAPE E PRECISA SER CADASTRADO NO TOTVS DIRETO.

Se o código do item começar com 47, na integração, já configura com item faturável no TOTVS

MDM (Código diferente do SAPE) - > SAPE          - > TOTVS

10404627                                        - > 39102898 - > 39102898

Existem dois SAPE, o SAPE Governo, integra com a Moderna e o outro SAPE integra com a Santillana.

Campo1 Venda

Campo8 Contrato DA

Campo9 Volume\Edições

Campo12 Volume\Edições

Campo14 Livro

SANTIBR-64116 CADASTRO NA BASE DE SOLUÇÕES

Caros, bom dia! Solicito cadastro na base de soluções do item da planilha em anexo. Origem: Moderna. Destino Soluções. OBS: Material trata-se de uma caixa de Prefeitura.

 

SANTIBR-59278 – MOCG009 + qg DuplicaItensEntreEmpresas.p - Copia Códigos de Itens de uma empresa para outra - Duplicar Códigos

Solicitar as informações abaixo referente aos itens a serem copiados:

• Empresa de origem

• Empresa de destino

• Código dos Itens

• Família Comercial que será usado na empresa destino

--- Preparar arquivo Excel

Salvar em CSV (MS-DOS) (*.csv) com o nome abaixo para facilitar futuras consultas DuplItemSantibr59278.csv

Obs.: Descrição não precisa, mas o campo tem que estar, porque o qg precisa.

Acessar a empresa de origem, abrir o editor e chamar o qg no caminho W:\ESP2\qgp\DuplicaItensEntreEmpresas.p.

/* Programa deve ser excutado na empresa origem  */ 
/* Conectar banco mgcad da empresa destino    */ 

IF NOT CONNECTED ("mgcad1") THEN DO:
FIND FIRST bco_empres WHERE
               bco_empres.cod_empresa   = '8' AND    /* empresa destino */
               bco_empres.cod_bco_logic = "mgcad"  NO-LOCK NO-ERROR.
IF AVAIL bco_empres THEN
      CONNECT -db VALUE(bco_empres.cod_bco_fisic) -ld mgcad1 VALUE(bco_empres.cod_param_conex).
END.

DEF TEMP-TABLE tt-item
    FIELD ep-origem         AS INT
    FIELD ep-destino        AS INT
    FIELD it-codigo         LIKE mgcad1.ITEM.it-codigo
    FIELD des-item          LIKE mgcad1.ITEM.desc-item
    FIELD fm-codigo         LIKE mgcad1.ITEM.fm-codigo.

INPUT FROM I:\Leopoldo\Duplica_Item_SANTIBR-65026.csv.
REPEAT:
    CREATE tt-item.
    IMPORT DELIMITER ";" tt-item.
END.
FIND FIRST tt-item WHERE tt-item.it-codigo = "" no-lock NO-ERROR.
IF AVAIL tt-item THEN DELETE tt-item.

DEF BUFFER bf-it-sape-int FOR  modlog.mocd-it-sape-int.

FOR EACH tt-item:

   /* verifica se item ja existe na empresa destino */
   FIND mgcad1.ITEM WHERE mgcad1.ITEM.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.
   IF AVAIL mgcad1.ITEM  THEN  DO:
      MESSAGE tt-item.it-codigo + " Item ja existe na empresa destino"
         VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
      UNDO, RETRY.
   END.

   /* Consulta cadastro para gerar registro de integração */
   FIND mgcad.ITEM WHERE mgcad.ITEM.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.
   IF NOT AVAIL mgcad.ITEM  THEN DO:
      MESSAGE "Nao localizado na empresa origem o item " + tt-item.it-codigo
          VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
      UNDO, RETRY.
   END.

  FIND LAST modlog.mocd-it-sape-int WHERE modlog.mocd-it-sape-int.acao = "I" AND
                                          modlog.mocd-it-sape-int.empresa = string(tt-item.ep-origem) AND
                                          modlog.mocd-it-sape-int.campo1 = tt-item.it-codigo NO-LOCK NO-ERROR.
  IF AVAIL modlog.mocd-it-sape-int THEN DO:
     CREATE bf-it-sape-int.
     BUFFER-COPY modlog.mocd-it-sape-int EXCEPT empresa dt-recebido campo8 ident hr-recebido dt-processado hr-processado l-processado TO bf-it-sape-int.
     ASSIGN bf-it-sape-int.dt-recebido = TODAY
            bf-it-sape-int.hr-recebido = STRING(TIME, "hh:MM")
            bf-it-sape-int.l-processado = NO
            bf-it-sape-int.empresa = string(tt-item.ep-destino)
            bf-it-sape-int.campo5 = tt-item.fm-codigo.

       DISP bf-it-sape-int.campo1 FORMAT "x(25)".

   END.
   ELSE DO:

      /* criando integração do item  */
      FIND mgcad.ITEM WHERE mgcad.ITEM.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.
      FIND FIRST moe-item WHERE moe-item.it-codigo = tt-item.it-codigo   NO-LOCK NO-ERROR.
      FIND FIRST item-lanc WHERE item-lanc.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.
      FIND FIRST item-agrupa WHERE item-agrupa.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.

      CREATE mocd-it-sape-int.
      ASSIGN mocd-it-sape-int.nome   = "LIVRO"
             mocd-it-sape-int.acao   = "I"

             mocd-it-sape-int.campo1 = mgcad.ITEM.it-codigo
             mocd-it-sape-int.campo2 = mgcad.ITEM.desc-item
             mocd-it-sape-int.campo4 = mgcad.ITEM.fm-codigo
             mocd-it-sape-int.campo9 = IF AVAIL item-agrupa THEN item-agrupa.item-volume ELSE ""

             mocd-it-sape-int.campo14 = IF AVAIL moe-item THEN string(moe-item.cod-mdm) ELSE ""
             mocd-it-sape-int.campo17 = IF AVAIL moe-item THEN moe-item.cod-tipo-livro ELSE ""
             mocd-it-sape-int.campo6  = IF AVAIL moe-item THEN string(moe-item.editoria) ELSE ""

             mocd-it-sape-int.campo7  = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-prev-lanc),"9999")  + "-" +
                                                                STRING(MONTH(item-lanc.dt-prev-lanc),"99") + "-" +
                                                                STRING(DAY(item-lanc.dt-prev-lanc),"99")    ELSE ""
             mocd-it-sape-int.campo10 = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-lim-venda),"9999")  + "-" +
                                                                STRING(MONTH(item-lanc.dt-lim-venda),"99") + "-" +
                                                                STRING(DAY(item-lanc.dt-lim-venda),"99")    ELSE ""
             mocd-it-sape-int.campo11 = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-distrato),"9999")  + "-" +
                                                                STRING(MONTH(item-lanc.dt-distrato),"99") + "-" +
                                                                STRING(DAY(item-lanc.dt-distrato),"99")    ELSE ""
             mocd-it-sape-int.campo12 = IF AVAIL item-lanc THEN item-lanc.it-titulo ELSE ""
             mocd-it-sape-int.campo13 = IF AVAIL item-lanc THEN item-lanc.situ-projeto ELSE ""

             mocd-it-sape-int.dt-recebido = TODAY
             mocd-it-sape-int.hr-recebido = STRING(TIME, "hh:MM")
             mocd-it-sape-int.l-processado = NO
             mocd-it-sape-int.empresa = string(tt-item.ep-destino)
             mocd-it-sape-int.campo5 = tt-item.fm-codigo.

   END.

   IF NOT tt-item.it-codigo BEGINS "22" AND NOT tt-item.it-codigo BEGINS "23" THEN DO:

      FIND item-agrupa WHERE item-agrupa.it-codigo = tt-item.it-codigo NO-LOCK NO-ERROR.
      IF NOT AVAIL item-agrupa THEN DO:
         MESSAGE "Não localizado cadastro do volume para o item " tt-item.it-codigo
             VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
         UNDO, RETRY.
      END.

      /* Criando Integração do volume */
      IF CAN-FIND(FIRST mgcad1.ITEM WHERE mgcad1.ITEM.it-codigo = item-agrupa.item-volume) THEN DO:
         MESSAGE "Volume do item ja cadastrado " + item-agrupa.item-volume
           VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

      END.
      ELSE DO:

         FIND mgcad.ITEM WHERE mgcad.ITEM.it-codigo = item-agrupa.item-volume NO-LOCK NO-ERROR.
         FIND FIRST moe-item WHERE moe-item.it-codigo = item-agrupa.item-volume NO-LOCK NO-ERROR.
         FIND FIRST item-lanc WHERE item-lanc.it-codigo = item-agrupa.item-volume NO-LOCK NO-ERROR.

         CREATE mocd-it-sape-int.
         ASSIGN mocd-it-sape-int.nome   = "LIVRO"
                mocd-it-sape-int.acao   = "I"
                mocd-it-sape-int.campo1 = mgcad.ITEM.it-codigo
                mocd-it-sape-int.campo2 = mgcad.ITEM.desc-item
                mocd-it-sape-int.campo4 = mgcad.ITEM.fm-codigo
                mocd-it-sape-int.campo9 = item-agrupa.item-volume

                mocd-it-sape-int.campo14 = IF AVAIL moe-item THEN string(moe-item.cod-mdm) ELSE ""
                mocd-it-sape-int.campo17 = IF AVAIL moe-item THEN moe-item.cod-tipo-livro ELSE ""
                mocd-it-sape-int.campo6  = IF AVAIL moe-item THEN string(moe-item.editoria) ELSE ""

                mocd-it-sape-int.campo7  = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-prev-lanc),"9999")  + "-" +
                                                                   STRING(MONTH(item-lanc.dt-prev-lanc),"99") + "-" +
                                                                   STRING(DAY(item-lanc.dt-prev-lanc),"99")    ELSE ""
                mocd-it-sape-int.campo10 = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-lim-venda),"9999")  + "-" +
                                                                   STRING(MONTH(item-lanc.dt-lim-venda),"99") + "-" +
                                                                   STRING(DAY(item-lanc.dt-lim-venda),"99")    ELSE ""
                mocd-it-sape-int.campo11 = IF AVAIL item-lanc THEN STRING(YEAR(item-lan.dt-distrato),"9999")  + "-" +
                                                                   STRING(MONTH(item-lanc.dt-distrato),"99") + "-" +
                                                                   STRING(DAY(item-lanc.dt-distrato),"99")    ELSE ""
                mocd-it-sape-int.campo12 = IF AVAIL item-lanc THEN item-lanc.it-titulo ELSE ""
                mocd-it-sape-int.campo13 = IF AVAIL item-lanc THEN item-lanc.situ-projeto ELSE ""

                mocd-it-sape-int.dt-recebido = TODAY
                mocd-it-sape-int.hr-recebido = STRING(TIME, "hh:MM")
                mocd-it-sape-int.l-processado = NO
                mocd-it-sape-int.empresa = string(tt-item.ep-destino)
                mocd-it-sape-int.campo5 = tt-item.fm-codigo.
      END.
   END.
END.

Verificar se a empresa destino está informada corretamente, que neste caso é a 8 e rodar o qg para conectar os bancos  empresa de origem e destino e rodar a parte do programa que está selecionado a baixo.

Depois que rodar o programa, comentar o trecho do programa como abaixo

Descomentar o programa a linha DEF TEMP-TABLE até o final do programe e informar o local onde o arquivo *csv está gavado para que o qg possa acessá-lo, como exemplo abaixo e executar o programa.

Acessar a empresa de destino e rodar o mocg009 e executar

Deve abrir um arquivo de log informando os itens que foram importados, com a letra I de importados, como abaixo

Letra A é referente a advertência e E de erros

OBS: QG da Cristina Jorge

 Pode rodar o qg G:\Leopoldo\Consulta_Mocd_It_Sape_Int.p para verificar se os itens foram criados na tabela para o mocg009 importar.

 Se o item não copiar de primeira, pode consultar se o item está na tabela , mocd-it-sape-in

qg-consulta-item-sape-dts.p

FOR EACH mocd-it-sape-int
    WHERE campo1 = '46801074':
    DISP mocd-it-sape-int
        EXCEPT desc-erro log-env-sape
        WITH WIDTH 300 1 COLUMN.
END

dt-recebido > 08/11/2023  // mm/dd/aaaa

/*     WHERE campo1 = '46801074' OR campo1 = '10224720':  */

/* MOCG009 */

Se estiver e estiver com sim no campo l-processado, rodar este qg, para mudar o item para não processado para então rodar o mocg009 novamente. As vezes, tenta importar o item, antes do volume.

FOR EACH mocd-it-sape-int WHERE campo1 = "120003585":
l-processado = NO.
END.

Rodar o mocg009 novamente

************************* Consultar da Lista os itens que foram integrados

DEF TEMP-TABLE tt-item
    FIELD itens LIKE item.it-codigo.

INPUT FROM "I:\Leopoldo\item.csv". // Lista de códigos de pedidos e código dos emitentes

REPEAT:
    CREATE tt-item.
    IMPORT DELIMITER ";" tt-item.
END.

INPUT CLOSE.

OUTPUT TO I:\Leopoldo\itens_importados.csv.

PUT UNFORMATTED
               "itens" SKIP.

FOR EACH tt-item WHERE
         tt-item.itens <> "": //Diferente de branco na tt-pedido

    PROCESS EVENTS. // Para não travar a tela quando lê muitos dados

    FIND FIRST ITEM WHERE // find first ler o primeiro item da tabela
               ITEM.it-codigo = tt-item.itens NO-LOCK NO-ERROR.

    IF AVAIL ITEM  THEN DO:
        PUT UNFORMATTED                    
                        ITEM.it-codigo SKIP.    
    END.
END.

OUTPUT CLOSE.

Chamar no Teams a BR, Equipe SIMM para verificar a integração.

MDM (Código diferente do SAPE) - > SAPE          - > TOTVS

10404627                                       - > 39102898 - > 39102898

SANTIBR-59886- MMOCG009 + QG Consulta Item SAPE DTS - Item do SAPE não integrou no TOTVS

Se buscar os itens pelo qg-consulta-item-sape-dts.p (qg no final deste documento) e também os logs de integração, nas pastas  S:\Prod\integr\CorporatSant, mas pode ser \CorporatMod ou \CorporatGov ou \CorporatSeu ou \CorporatSol, solicitar ao Jorge verificar no SAPE a exportação.

Boa tarde!

Não consigo abrir OPs no Totvs, aparece a mensagem de erro que envio no print anexado.

Na verdade, o erro está na integração do SAPE com o TOTVS que não foi feita. Volume 10029667. Podem verificar, por favor?

Verificamos, os logs de integração, na pasta S:\Prod\integr\CorporatSant, mas pode ser \CorporatMod ou \CorporatGov ou \CorporatSeu ou \CorporatSol que o item não tinha integrado, porque não foi localizada a Família Comercial, como podemos ver abaixo:

Temos o programa Search and Replace sr32.exe que pode procurar mais rapidamente, como exemplo abaixo

Após identificar que o problema foi não ter encontrado a Família Comercial e receber da usuária do chamado que a família deveria ser 40240020, verificamos que não existia no TOTVS e solicitamos que ela fizesse a alteração para uma Família Comercial que já existe ou o cadastro de uma nova.

Após a alteração da Família no SAPE, dentro de 30 minutos o item foi integrado.

qg-consulta-item-sape-dts.p

FOR EACH mocd-it-sape-int
    WHERE campo1 = '46801074':
    DISP mocd-it-sape-int
        EXCEPT desc-erro log-env-sape
        WITH WIDTH 300 1 COLUMN.
END

dt-recebido > 08/11/2023  // mm/dd/aaaa
/*     WHERE campo1 = '46801074' OR campo1 = '10224720':  */
/* MOCG009 */

MDM (Código diferente do SAPE) - > SAPE          - > TOTVS

10404627                                            - > 39102898 - > 39102898

O MOCG009 está apresentando o resultado em branco.

Verificar se os itens estão na tabela mocd com o qg

FOR EACH mocd-it-sape-int WHERE empresa = '8' AND //empresa onde o item deve ser copiado
    dt-recebido = TODAY AND campo1 = "120003585": //código do item
    DISP mocd-it-sape-int EXCEPT desc-erro log-env-sape WITH WIDTH 300 1 COL.
END.

Mudar para não com o qg abaixo

FOR EACH mocd-it-sape-int WHERE campo1 = "120003585":
l-processado = NO.
END.

 Rodar o mocg009 novamente

SANTIBR-62497 - Classificar itens como digital

Preciso que os itens da relação anexa estejam classificados como digital para que possam ser faturados corretamente. Compartilho um exemplo de um dos itens, na imagem consta como Físico.

 

Verificamos que o Grupo de estoque e o tipo de controle estavam errados. Deveriam ser GE 52 e Tipo de Controle Não Definido. Então trocamos com o qg:

W:\ESP2\qgp\AlteraGrEstoqueItem.p

 

SANTIBR-70705 Integração pedidos PWM

Boa tarde, Por gentileza, verificar os erros abaixo: Descrição do Erro: Ao tentar integrar alguns pedidos do PWM, encontramos o seguinte erro no log:

piLogWrite "*** Erro: Conta ~Conta : 19101004 Pedido Cliente: 6512444 Cliente: 29132596855 Item: 39102918" [pi-criar-pedido - moapi/mopdapi010.p @ 3424] Return from piLogWrite [moapi/mopdapi010.p] Run piLogWrite "*** ERROPedido: . 2-ERROR EMS - Não encontrado(a) Conta para chave informada." [pi-criar-pedido - moapi/mopdapi010.p @ 3423] Itens Afetados:Até o momento, identificamos que os seguintes itens estão apresentando o problema de integração:

39102802, 39102806, 39102808, 39102812, 39102902, 39102906, 39102918, 39102920

Os pedidos do PWM, que tem itens digitais, não estão integrando ao ERP e criando pedido porque, os itens digitais estão cadastrados com o tipo de controle debito direto e com isso o sistema pede a conta aplicação, mas o certo era, estes itens, estarem cadastrados com tipo de controle Não Definido e desta forma não vai pedir conta e os pedidos serão integrados.

Verificamos que o Grupo de estoque e o tipo de controle estavam errados. Então trocamos com o qg:

R:\ESP2\qgp\AlteraGrEstoqueItem.p

Pedidos integrados

Todos os dias chegam 4 e-mails sobre os cadastros dos itens.

Sendo eles os itens pertencentes aos seguintes cenários:

• "C" itens Sob Medida;

• "E" Kit itens “47” com componente “38”;

• "F" itens Farias Brito;

• "G" item iniciado com “22”.

Os arquivos também ficam disponíveis na pasta da rede “(\\SBRTOTVSAPP1) (S:)”, para cada empresa:

1. A mensagem "Característica do item não cadastrado" no MOCG020E para itens que iniciam em “38”, pode ser desconsiderada, porque são itens digitais e não é controlado. Se for para outros itens, será necessário verificar no “CD0204”, se não possuir o cadastro, solicitar o cadastro para o Wendell (Produção).

2. A mensagem "Nao localizada Obra no cadastro de Estrutura Farias Brito" significa que o item não tem cadastro no programa “MOPL040”

3. A mensagem "Nao localizado Contrato Comercializacao ou Pedido Web para o KIT". Verificar se existe o contrato para o Cliente e se no contrato, há o item. Assim que fizerem o contrato, tem que atualizar o “mod-ger-stat” e rodar o “MOCG020” novamente para certificar que não vai aparecer novamente.

FOR EACH mod-ger-estat WHERE

         mod-ger-estat.data-estat >= 06/01/2023 AND

         mod-ger-estat.cod-estabel = "99" AND

         mod-ger-estat.serie = "1" AND

         mod-ger-estat.nr-nota-fis = "0017540":

    UPDATE mod-ger-estat.it-codigo

           mod-ger-estat.cod-contr

           mod-ger-estat.nro-anexo

           mod-ger-estat.ano-refer

           mod-ger-estat.u-char WITH WIDTH 300.

END.

O livro está na tabela “mocd-it-sape-int”, porém o volume não está e, com isso, o livro não é importado.

Confirmar se a família comercial esta cadastrada:]

Alterar o livro para “não processado” com o “qg” abaixo:

FOR EACH mocd-it-sape-int WHERE campo1 = "120003585":

l-processado = NO.

END.

Executar o “MOCG009”, para este caso foi apresentado erro de volume não localizado:

Enviar o volume não localizado, (neste exemplo 10029837), para o TOTVS novamente, colocando um ponto e tirando na descrição.

O Volume apareceu na tabela “mocd-it-sape-int”:

Depois executado o MOCG020, os itens foram importados:

O item 42103509 está com um título diferente no Totvs (Soluções Moderna) do cadastrado no Sape.

Se o usuário possuir acesso ao SAPE, solicitar que altere alguma informação na descrição do item, no SAPE, no campo "Nome Magnus". Salvar está alteração e depois alterar a descrição do item para a forma correta. Desta forma o item é forçado a uma nova integração, sendo atualizado:

Tentativa de integrar OP 23648 no volume abaixo no TOTVS. Foi efetuada alteração no SAPE, mas não integrou no TOTVS:

Não é possível alterar o volume já cadastrado no OP 23648, pois essa OP foi iniciada no mês 07/21 e o pedido de compra associado a ela.

Inclusive foi identificado que o 10026086 está ativo no TOTVS e contrato de DA Nro: 2476 da Ruth Rocha, Qq alteração deste deve ser informado a área de DA:

Verificar se estão acontecendo as atualizações de forma automática, dos itens que foram direcionados para Aparas ou Distrato. Notamos no PWM, no campo “avise me quando puder” que há 2 itens:

https://loja.moderna.com.br/varejista//

Esta loja plataforma é da Gestão do Andrews Guedes, junto com PWM, PWV, Sob Medida, Telepedido

Uesley é do time do PWV, desenvolvedor, mas chamar o Andrews primeiro.

SANTIBR-65816 - Rotina de Atualização de itens - Canal Responsável - Tabela PWMP1

Pessoal, boa tarde! Por gentileza verificar se estão acontecendo as atualizações de forma automática, dos itens que foram direcionados para Aparas ou Distrato. Notamos no PWM, no campo “avise me quando puder” que há 2 itens:

Porém os mesmos apontam com * na frente e isso significa que não serão comercializados. É possível avaliar o ocorrido e confirmar se essa rotina de atualização esteja acontecendo?

Porém os mesmos apontam com * na frente e isso significa que não serão comercializados.

O item está distratado no SAPE e sem data limite de comercialização. Na item-lanc não temos uma data limite de venda e nem data de distrato

Precisa atualizar a negociação para tirar este produto da venda, mas como eles ainda estão vigentes, não podem tirar da loja. Então abriram chamado para analisar se conseguem tirar esses dois, pontualmente, do estoque de obsoletos para entregar. 

Para atualizar a negociação destes itens para tirar eles da venda, é necessário retirar o item do contrato ou o contrato vencer. Está rotina é feita pela equipe de contratos do Administrativo.

 Ao realizar uma integração como ERP para cadastrar os códigos ISBN dos Livros do Aluno e Livro do Professor,  a plataforma não retorna os códigos. Foi realizado teste com outras escolas, porém sem sucesso.

Escola do projeto com erro: ASSOCIAÇÃO FRANCISCANA DE ENS SENHOR BOM JESUS ID pedido: 1874 Nome do projeto: Matemática - Bom Jesus - 1.ª série

Foi necessário entrar em contato com a equipe do SAPE (SIMM) e analisaram este serviço:

Ao acessar o link http://integracaosape.netmoderna.com.br/api/Tokens deverá ser exibida a página abaixo:

Após entrar em contato com a equipe, o erro foi solucionado e a integração gerada:

Alterar o tipo de controle estoque para os item anexo. DE (2-Controle Total),PARA (4-Débito Direto)

Após a aprovação do Araújo - Setor Fiscal, Marcelo - Diretor de TI e Fábo Pelaio - Coord de Sistemas, executar o Qg abaixo:

R:\ESP2\qgp\altera controle estoque item.p

DEF TEMP-TABLE tt-item

    FIELD it-cod   LIKE item.it-codigo

    FIELD tp-contr LIKE item.tipo-contr.

INPUT FROM I:\Leopoldo\Alterar_Controle_Estoque_Grupo30_TI.csv.

REPEAT:

    CREATE tt-item.

    IMPORT DELIMITER ";" tt-item.it-cod.

END.

INPUT CLOSE.

FIND FIRST tt-item WHERE tt-item.it-cod = '' NO-ERROR.

IF AVAIL tt-item  THEN DELETE tt-item. //SEMPRE QUE CRIAMOS UMA TEMPORÁRIA ELE GRAVA UM REGISTRO EM BRANCO, ESSE BLOCO É PRA ELIMINAR ESSE REGISTOR BRANCO DA TEMPORÁRIA

FOR EACH tt-item:

    FIND FIRST ITEM WHERE ITEM.it-codigo = tt-item.it-cod  NO-ERROR.

    IF AVAIL ITEM THEN DO:

       FIND FIRST movto-estoq WHERE movto-estoq.it-codigo = tt-item.it-cod NO-LOCK NO-ERROR.

       IF NOT AVAIL movto-estoq  THEN DO:

          ASSIGN tt-item.tp-contr  = ITEM.tipo-contr.

          IF ITEM.tipo-contr <> 4 THEN ASSIGN ITEM.tipo-contr = 4.

        END.

    END.   

END.       

OUTPUT TO I:\Leopoldo\Alterar_Controle_Estoque_Grupo30_TI_alterado.csv.

FOR EACH tt-item:

    EXPORT DELIMITER ";" tt-item.

END.

OUTPUT CLOSE.

Será alterado o tipo de controle estoque para o solicitado

Os itens abaixo estão sem o flag de item faturável no cadastro, é possível flegar? (Empresa Moderna)

Este cadastro é realizado pelo grupo BR, Fiscal Mercantil.

FOR EACH ITEM WHERE

         ITEM.it-codigo = "69020":

    DISP usuario-alt

         responsavel

         cod-comprado.

END.