PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
ENDERECAMENTO DE PRODUTO
Versão:
12.1.8
Plataforma:
Microsoft
Complemento:
DB:
SQL Server
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário IZILDINHAK IZILDINHAK em 20/12/2018, 11:01 h
Local: SP  Registro: 06/12/2011  Postagens: 57
Bom dia,

Sera que alguem saberia me ajudar,

estou precisando fazer endereçamento de produto com nr de serie.
Os nr de series serão obtidos através de um arquivo txt.

Peguei um exemplo de de programa de endereçamento e gostaria de saber se alguém sabe de onde deve ser chamado este codigo ?


Segue o programa que achei de exemplo:
-----------------------------------------------------------------------------
User Function fMta265I()

Local aCab := {}
Local aItem:= {}

lMsErroAuto := .F.

aCab := {     {"DA_PRODUTO","000000000000001",NIL},;
          {"DA_LOCAL","01",NIL}}

aAdd(aItem, {     {"DB_ITEM","001",NIL},;
          {"DB_LOCALIZ","TESTE",NIL},;
          {"DB_DATA",dDataBase,NIL},;
          {"DB_QUANT",25,NIL}})

MSExecAuto({|x,y,z| mata265(x,y,z)},aCab,aItem,3) //Distribui

If lMsErroAuto
   MostraErro()
Else
   Alert("Ok")
Endif

Return
-------------------------------------------------------------------------

Izildinha R. A. Kavai
MACKSYS TECNOLOGIA LTDA - EPP
Tel.: 999516022

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal