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
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:
--- Preparar arquivo Excel
Emp Origem | Emp Destino | cod item | Descr Item | Familia Comercial |
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.