#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function MyMata920() Local aCabec := {} Local aItens := {} Local aLinha := {} Local nX := 0 Local nY := 0 Local cDoc := "" Local lOk := .T. PRIVATE lMsErroAuto := .F. //-- Abertura do ambienteApertura del entorno ConOut(Repl("-",80)) ConOut(PadC("Teste Prueba de Inclusao inclusión de 10 documentos de entrada com con 30 itens ítems cada uno",80)) PREPARE ENVIRONMENT EMPRESA "99" FILIAL SUCURSAL "01" MODULO MÓDULO "FIS" TABLES "SF2","SD2","SA1","SA2","SB1","SB2","SF4" dbSelectArea("SB1") dbSetOrder(1) If !SB1->(MsSeek(xFilial("SB1")+"PA001")) lOk := .F. ConOut("Cadastrar produtoRegistrar producto: PA001") EndIf dbSelectArea("SF4") dbSetOrder(1) If !SF4->(MsSeek(xFilial("SF4")+"501")) lOk := .F. ConOut("Cadastrar Registrar TES: 501") EndIf dbSelectArea("SE4") dbSetOrder(1) If !SE4->(MsSeek(xFilial("SE4")+"001")) lOk := .F. ConOut("Cadastrar condicao Registrar condición de pagamentopago: 001") EndIf dbSelectArea("SA1") dbSetOrder(1) If !SA1->(MsSeek(xFilial("SA1")+PADR("CL0001",Len(SA1->A1_COD))+"01")) lOk := .F. ConOut("Cadastrar Registrar cliente: CL000101") EndIf If lOk ConOut("Inicio: "+Time()) //--Verifica o ultimo el último documento valido válido para um fornecedorun proveedor dbSelectArea("SF2") dbSetOrder(2) MsSeek(xFilial("SF2")+Padr("CL0001",Len(SA1->A1_COD))+"01z",.T.) dbSkip(-1) cDoc := SF2->F2_DOC For nY := 1 To 10 aCabec := {} aItens := {} If Empty(cDoc) cDoc := StrZero(1,Len(SD2->D2_DOC)) Else cDoc := Soma1(cDoc) EndIf aadd(aCabec,{"F2_TIPO" ,"N"}) aadd(aCabec,{"F2_FORMUL" ,"N"}) aadd(aCabec,{"F2_DOC" ,(cDoc)}) aadd(aCabec,{"F2_SERIE" ,"UNI"}) aadd(aCabec,{"F2_EMISSAO",dDataBase}) aadd(aCabec,{"F2_CLIENTE",Padr("CL0001",Len(SA1->A1_COD))}) aadd(aCabec,{"F2_LOJA" ,"01"}) aadd(aCabec,{"F2_ESPECIE","NF"}) aadd(aCabec,{"F2_COND","001"}) aadd(aCabec,{"F2_DESCONT",0}) aadd(aCabec,{"F2_FRETE",0}) aadd(aCabec,{"F2_SEGURO",0}) aadd(aCabec,{"F2_DESPESA",0}) If cPaisLoc == "PTG" aadd(aCabec,{"F2_DESNTRB",0}) aadd(aCabec,{"F2_TARA",0}) Endif For nX := 1 To 30 aLinha := {} aadd(aLinha,{"D2_COD" ,"PA001",Nil}) aadd(aLinha,{"D2_ITEM" ,StrZero(nX,2),Nil}) aadd(aLinha,{"D2_QUANT",1,Nil}) aadd(aLinha,{"D2_PRCVEN",100,Nil}) aadd(aLinha,{"D2_TOTAL",100,Nil}) aadd(aLinha,{"D2_TES","501",Nil}) aadd(aItens,aLinha) Next nX //-- Teste Prueba de Inclusaoinclusión MATA920(aCabec,aItens) If !lMsErroAuto ConOut("Incluido com sucesso¡Incluido con éxito! "+cDoc) Else MostraErro() ConOut("Erro na inclusao¡Error en la inclusión!") EndIf Next nY ConOut("Fim Final : "+Time()) //-- Teste Prueba de exclusaoborrado aCabec := {} aItens := {} aadd(aCabec,{"F2_TIPO" ,"N"}) aadd(aCabec,{"F2_FORMUL" ,"N"}) aadd(aCabec,{"F2_DOC" ,(cDoc)}) aadd(aCabec,{"F2_SERIE" ,"UNI"}) aadd(aCabec,{"F2_EMISSAO",dDataBase}) aadd(aCabec,{"F2_CLIENTE","CL0001"}) aadd(aCabec,{"F2_LOJA" ,"01"}) aadd(aCabec,{"F2_ESPECIE","NFE"}) aadd(aCabec,{"F2_DESCONT",0}) aadd(aCabec,{"F2_FRETE",10}) aadd(aCabec,{"F2_SEGURO",20}) aadd(aCabec,{"F2_DESPESA",30}) If cPaisLoc == "PTG" aadd(aCabec,{"F2_DESNTRB",40}) aadd(aCabec,{"F2_TARA",50}) Endif For nX := 1 To 30 aLinha := {} aadd(aLinha,{"D2_ITEM",StrZero(nX,Len(SD1->D1_ITEM)),Nil}) aadd(aLinha,{"D2_COD","PA002",Nil}) aadd(aLinha,{"D2_QUANT",2,Nil}) aadd(aLinha,{"D2_PRCVEN",100,Nil}) aadd(aLinha,{"D2_TOTAL",200,Nil}) aadd(aItens,aLinha) Next nX //-- Teste Prueba de Exclusaoborrado ConOut(PadC("Teste Prueba de exclusaoborrado",80)) ConOut("Inicio: "+Time()) MATA920(aCabec,aItens,5) If !lMsErroAuto ConOut("Exclusao com sucesso¡Borrado con éxito! "+cDoc) Else MostraErro() ConOut("Erro na exclusao¡Error en el borrado!") EndIf ConOut("Fim : "+Time()) ConOut(Repl("-",80)) EndIf RESET ENVIRONMENT Return(.T.) Static Function ProcH(cCampo) Return aScan(aAutoCab,{|x|Trim(x[1])== cCampo }) |