#include "protheus.ch"
#include "apwebsrv.ch"
#include "TOTVSWebSrv.ch"
#include "Totvs.ch"

WSSTRUCT _Retorno
	WSDATA _sStatus  AS String
ENDWSSTRUCT

WSSTRUCT Telefone
	WSDATA phoneTp 		AS Float // Tipo 1 = Comercial 2 = Celular
	WSDATA areaCd 		AS String // DDD
	WSDATA phoneNr 		AS Float // Número de Telefone
ENDWSSTRUCT


WSSTRUCT Endereco
	WSDATA recipientNm 		AS String // Nome do Destinatário
	WSDATA address 			AS String // Logradouro
	WSDATA addressNr 		AS String // Número
	WSDATA additionalInfo 	AS String // COmplemento
	WSDATA quarter  		AS String // Bairro
	WSDATA city  			AS String // Cidade
	WSDATA state  			AS String // UF
	WSDATA postalCd  		AS String  //CEP
ENDWSSTRUCT

WSSTRUCT Customer
	WSDATA name  			 AS String  // Nome do Cliente
	WSDATA email 			 AS String optional // Email
	WSDATA documentNr 		 AS String optional // CGC
	WSDATA stateSubscription AS String optional // Inscrição Estadual
	WSDATA representativeNm  AS String optional // Nome do Vendedor
	WSDATA createDate 		 AS Date   optional // Data de Criação
    WSDATA addressList  	 AS Array Of Endereco //Array de Endereços
    WSDATA phoneList  		 AS Array Of Telefone // Array de Telefones
	
ENDWSSTRUCT
  
WSSERVICE WSCUSTOMERSERVICES DESCRIPTION "Webservice de Clientes" 
  //Propriedades
  WSDATA oCustomer  As Customer
  WSDATA _status    AS String
 
  //Métodos
  WSMETHOD notifyCustomerCreation 
 
ENDWSSERVICE


WSMETHOD notifyCustomerCreation WSRECEIVE oCustomer WSSEND _status WSSERVICE WSCUSTOMERSERVICES  
  Local _nI := 0
  Local _sCGC := ""
  
   conout("vvvvvvvvvvvvvvvvvvvvvvvvvvvvv  Entrou no Metodo   gggggggggggggggggggggggggggggggg")
  
  _sCGC := notifyCustomerCreation:documentNr
  
  If !Empty(Posicione ("SA1", 3, xFilial("SA1")+_sCGC, "A1_NOME"))
  	::_status := "APV"
  Else
  	::_status := "REP"
  EndIf
  

Return .T.