TMKXCPAT - Conteúdo dos campos do Wizard da cópia do atendimento

Ponto de entrada que permite, ao abrir a dialog de cópia de atendimento, escolher a opção "copiar" no menu do browser da rotina, trazendo as informações nos Gets da dialog.

TMKXFUNC

TMKXCPAT - Conteúdo dos campos do Wizard da cópia do atendimento ( [ ParamIXB ] ) --> aRet

aRet(array_of_record)
• [1] dData
  [2] cCodCli
  [3] cCodLoja
  [4] cOperad
  [5] dDataEntrega
  [6] lMantemDataEntrega
  [7] lEditCmps

#Include "Protheus.ch"User Function TMKXCPAT()Local dData := ParamIXB[1]Local cCodCli := ParamIXB[2]Local cCodLoja := ParamIXB[3]Local cOperad := ParamIXB[4]Local dDataEntrega := ParamIXB[5]Local lMantemDataEntrega := ParamIXB[6]Local lEditCmps := ParamIXB[7]If Aviso("Ponto de entrada TMKXCPAT!!","Altera conteúdo padrão dos campos? ",{"Sim","Nao"}) == 1    dData := Date()    cCodCli := "000001"    cCodLoja := "01"    cOperad := "000001"    dDataEntrega := Date()+30    lMantemDataEntrega := .T.    lEditCmps := Aviso("Ponto de entrada TMKXCPAT!!","Permite edição do campos na tela do Wizard? ",{"Sim","Nao"}) == 1EndIfReturn {dData,cCodCli,cCodLoja,cOperad,dDataEntrega,lMantemDataEntrega,lEditCmps}