Page Comparison

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.

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 R:\ESP2\qgp\DuplicaItensEntreEmpresas.p.

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.